28-10-14, 20:19
|
Όνομα: Γιώργος Έκδοση λογισμικού Office: Ms-Office 2010 Γλώσσα λογισμικού Office: Ελληνική, Αγγλική | | Εγγραφή: 18-06-2010
Μηνύματα: 3.674
| |
Καλησπέρα
Δημήτρη, θα πρότεινα τον κώδικα: Κώδικας: Private Sub ΗΜΕR_LHXHS_LostFocus()
Me.Requery
If Not (Nz(Me.MM, 0) = 3 Or Nz(Me.MM, 0) = 6 Or Nz(Me.MM, 0) = 12) Then
MsgBox "Λάθος καταχώρηση της Ημερομηνίας Λήξης!"
Me.ΗΜΕR_LHXHS.SetFocus
End If
End Sub
Φιλικά/Γιώργος
|