
13-09-15, 23:17
|
| Όνομα: Γιώργος Έκδοση λογισμικού Office: Ms-Office 2007 Γλώσσα λογισμικού Office: Ελληνική | | Εγγραφή: 05-02-2010
Μηνύματα: 196
| |
Γιώργο σε ευχάριστο πολύ λειτουργεί άψογα με την προσθήκη: Κώδικας: ElseIf exp_type = 2 Then
If node = "Εξ' ίσου" Then
Calculate_exp_part = 1 / diam
Exit Function
Else
rs.Open el_mm, cn, adOpenKeyset, adLockOptimistic
End If
|