Originariamente inviato da IoMe
Sì
Guarda:
codice:
 
Private Sub DATA_LostFocus()
    If IsNull(Me.DATA.Value) Or Me.DATA.Text = "" Then
        MsgBox "Il campo data non può essere vuoto.", vbCritical, "ATTENZIONE"
        Me.DATA.SetFocus
    End If
End Sub
però il campo data non riprende lo stato attivo

dove/quando devo dirglielo di tornare sul campo data?
Grazie.

PS: scusate se aveveo postato nella sezione sbagliata.
Prova con
codice:
 
Private Sub DATA_Exit(Cancel as Integer)
    If IsNull(Me.DATA.Value) Or Me.DATA.Text = "" Then
        MsgBox "Il campo data non può essere vuoto.", vbCritical, "ATTENZIONE"
        Cancel = True
    End If
End Sub