[kapetang]

Καλησπέρα

Δημήτρη, θα πρότεινα τον κώδικα:

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

Φιλικά/Γιώργος