Hola, de tanto confinamiento creo que estoy espeso....me suena que alguna vez lo he hecho pero en estos momentos estoy atascado.
Quiero que una serie de campos sean obligatorios y lo quiero hacer por vba, para que me saque un mensaje pesonalizado y me mande el foco al campo que es necesario. Tengo esto y si que me saca el aviso pero despues me cierra el formulario cuando no deberia.... a ver si me iluminais...
Private Sub Form_BeforeUpdate(Cancel As Integer)
Dim strMsg As String
If IsNull(Me.TipoRevision) Or Me.TipoRevision = "" Then
strMsg = "Se debe rellenar TipoRevision, pulsa escape si quieres deshacer registro." & vbCrLf
Me.TipoRevision.SetFocus
Cancel = True
End If
If IsNull(Me.FechaRevision) Or Me.FechaRevision = "" Then
strMsg = "Se debe rellenar FechaRevision, pulsa escape si quieres deshacer registro." & vbCrLf
Me.FechaRevision.SetFocus
Cancel = True
End if
If strMsg <> "" Then MsgBox strMsg, vbExclamation
End Sub