Εμφάνιση ενός μόνο μηνύματος
  #2  
Παλιά 06-01-13, 22:54
Το avatar του χρήστη Tasos
Tasos Ο χρήστης Tasos δεν είναι συνδεδεμένος
Διαχειριστής
Όνομα: Τάσος Φιλοξενιδης
Έκδοση λογισμικού 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
Ανάπτυξη επαγγελματικών εφαρμογών
Απάντηση με παράθεση