
06-01-13, 22:54
|
 | Διαχειριστής Όνομα: Τάσος Φιλοξενιδης Έκδοση λογισμικού Office: Ms-Office 365 Γλώσσα λογισμικού Office: Ελληνική, Αγγλική, Γερμανική | | Εγγραφή: 21-10-2009
Μηνύματα: 2.030
| |
Καλησπέρα Γιώργο και χρόνια πολλά!
Στο συμβάν "Μετά την ενημέρωση" του πεδίου "ΚΑΤΟΙΚΙΑ_ΠΑΡΑΔΟΣΗ" δοκίμασε τον παρακάτω κώδικα: Κώδικας: Private Sub ΚΑΤΟΙΚΙΑ_ΠΑΡΑΔΟΣΗ_AfterUpdate()
If Me.ΚΑΤΟΙΚΙΑ_ΠΑΡΑΔΟΣΗ Then
Me.ΔΙΕΥΘΥΝΣΗ_ΠΑΡΑΔΟΣΗΣ = Me.ΔΙΕΥΘΥΝΣΗ
Me.ΠΕΡΙΟΧΗ_ΠΑΡΑΔΟΣΗΣ = Me.ΠΕΡΙΟΧΗ
Me.ΝΟΜΟΣ_ΠΑΡΑΔΟΣΗΣ = Me.ΝΟΜΟΣ
Me.ΤΚ_ΠΑΡΑΔΟΣΗΣ = Me.ΤΚ
Else
Me.ΔΙΕΥΘΥΝΣΗ_ΠΑΡΑΔΟΣΗΣ = Null
Me.ΠΕΡΙΟΧΗ_ΠΑΡΑΔΟΣΗΣ = Null
Me.ΝΟΜΟΣ_ΠΑΡΑΔΟΣΗΣ = Null
Me.ΤΚ_ΠΑΡΑΔΟΣΗΣ = Null
End If
End Sub
Καλή συνέχεια!
Τάσος
__________________ Ms-Office Development Team Ανάπτυξη επαγγελματικών εφαρμογών |