Fecha duplicada

Buenas tardes experto Manuel Pacha, solicito tu ayuda para lo siguiente:
En un formulario tengo 3 campos fecha con su respectivo campo hora entre otros.
Como podría hacerle para que me muestre un mensaje cuando introduzco una fecha en el campo1 o campo2 o campo3, indicando que esa fecha y hora ya existen en tal campo.
Por ejemplo si agrego una fecha en campo1, me salga un mensaje de que esa fecha ya existe en el campo2 o en el campo3 o en ambos campos.
Si la agrego en el campo2, que me indique que existen en Campo1 y Campo3, y así con cada uno de ellos.
Saludos y buenas noches
Raul.
Respuesta
1
En propiedades del campo1>Evento>Después de actualizar incorpora el código
Refresh
If Me.Campo1 = Me.Campo2 Or Me.Campo1 = Me.campo3 Then
    MsgBox "Fecha repetida", vbCritical, "Hola"
    Me.Campo1 = ""
End If
En Campo2
Refresh
If Me.Campo2 = Me.Campo3 Or Me.Campo1 = Me.campo3 Then
    MsgBox "Fecha repetida", vbCritical, "Hola"
    Me.Campo2 = ""
End If
Y en campo3
Refresh
If Me.Campo3 = Me.Campo2 Or Me.Campo1 = Me.campo1 Then
    MsgBox "Fecha repetida", vbCritical, "Hola"
    Me.Campo3 = ""
End If
Una aperta
Buenas noches experto Manuel Pacha, te agradezco infinitamente la rapidez de tu respuesta, no tienes idea la gran ayuda que me has proporcionado, con tu explicación.
Saludos desde México
Raúl

Añade tu respuesta

Haz clic para o

Más respuestas relacionadas