30-05-11, 00:02
|
 | Συντονιστής Όνομα: Νίκος Έκδοση λογισμικού Office: Ms-Office 2007 Γλώσσα λογισμικού Office: Ελληνική | | Εγγραφή: 28-12-2008 Περιοχή: Θεσσαλονίκη
Μηνύματα: 1.033
| |
Απλά, προσθέτεις μια γραμμή Γιώργη!
Private Sub κατάσταση_AfterUpdate()
If Me.NewRecord Then Exit Sub
If Me.κατάσταση = "ανανέωση" Then
Me.έναρξη = Me.λήξη
me.ΑΡ_ΑΝΑΝΕΩΣΗΣ = me.ΑΡ_ΑΝΑΝΕΩΣΗΣ +1
comboDiarkia_AfterUpdate
End If
End Sub
Το πεδίο [ΑΡ_ΑΝΑΝΕΩΣΗΣ] δεν ξέρω αν το γράφω σωστά...
Καλή συνέχεια.
Νίκος Δ.
|