05-02-17, 12:33
|
| Όνομα: Γιώργος Έκδοση λογισμικού Office: Ms-Office 2007 Γλώσσα λογισμικού Office: Ελληνική | | Εγγραφή: 05-02-2010
Μηνύματα: 196
| |
Private Sub CODE1_AfterUpdate()
If Me.CODE1 = 1 Then
Me.ONOM.Value = "ΧΑΛΙ"
Me.SIZE.Value = "μέτρα3>"
ElseIf Me.CODE1 = 4 Then
Me.ONOM.Value = "ΚΟΥΒΕΡΤΑ"
Me.SIZE.Value = "μέτρα0,8<"
ElseIf Me.CODE1 = ; Then
Me.ONOM.Value = ";"
Me.SIZE.Value = ";"
End If
End Sub
πρόσθεσε και όλα τα υπόλοιπα πεδία με ElseIf όπως τα θέλεις
Τελευταία επεξεργασία από το χρήστη anestaki : 05-02-17 στις 14:32.
|