Obligar en un campo FechaHora a introducir la fecha, sin valor predeterminado y sin ir a la tabla e indicar Requerido: Sí

Javier: En el evento antes de Actualizar del Formulario

Private Sub Form_BeforeUpdate(Cancel As Integer)
If IsNull(Me.ElControlFecha) Or Me.EControlFecha = "" Then 
   MsgBox "La fecha es obligatoria",vbCritical,"FALTA DATO"
   Cancel = True
End If
End Sub

Un saludo >> Jacinto

Gracias Jacinto! Lo he probado y me da error de compilación en 'Or Me'. Gracias de todos modos y disculpa por tu tiempo.

Saludos!

Javier: En esa línea yo quería poner los dos Nombres iguales y he omitido una letra.

Ignoro si has nombrado tu Control, como ElControlFecha, porque si es así, después del Or, ha de ir lo mismo, o sea que falta la "ele"

If IsNull(Me.ElControlFecha) Or Me.ElControlFecha = "" Then 

En cualquier caso prueba también si quieres con solo la primera parte.

If IsNull(Me.ElControlFecha) Then

Mis saludos >>Jacinto

Gracias de nuevo Jacinto. En el transcurso de mañana lo probaré y te cuento. Mil gracias y buenas noches.

Saludos!

Javier. 

Hola Jacinto! Por fin funciona, esto es lo que tengo puesto:

Private Sub Form_AfterUpdate()
If IsNull(Me.FechaPedido) Or Me.FechaPedido = "" Then
MsgBox "Por favor, anote la Fecha de Pedido", vbCritical, "¡Aviso!"
FechaPedido.SetFocus
End If
End Sub

Ahora lo que no entiendo es por qué no me funciona el SetFocus en el campo FechaPedido, no hay manera. He probado de ponerlo en otro campo y tampoco funciona. Iré probando. Gracias por compartir tu tiempo y conocimiento. Yo llevo un tiempo con Access, pero ahora debo de emplearme en VBA, pues si se quiere avanzar lo encuentro imprescindible. Saludos desde Barcelona! y gracias!.

Javier.

Javier: Un par de cuestiones>>

1.- Yo sigo pensando que sería mejor en el Evento BeforeUpdate, porque en realidad con el After, recibes el aviso, pero si cambias de registro, te dejará la fecha vacía.

2.- Si lo que pretendes es enfocar FechaPedido, después del aviso, prueba haciendo un rebote, por ejemplo llevando el Foco a otro control y después enfocando FechaPedido.

Mas o menos así:

Me.OtroControl.SetFocus

Me. FechaPedido. SetFocus

Un saludo >> Jacinto