Fecha repetida

Buenas noches experto Manuel Pacha, funciona al 100% la siguiente instrucción que hiciste favor de enviarme.
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 = ""
El problema es que funciona únicamente con el registro actual, como podría hacerle para que busque en registros anteriores y posteriores. Con los mismos campos.
Saludos Raúl

1 Respuesta

Respuesta
1
Prueba con el código en campo1>Evento>Después de actualizar sabiendo que Tabla2 es el nombre de la tabla de datos (deberás poner el nombre de tu tabla)
Evento Campo1
Refresh
If DCount("[campo2]", "Tabla2", "[campo2] =#" & Me.Campo1 & "#") + DCount("[campo3]", "Tabla2", "[campo3] =#" & Me.Campo1 & "#") > 0 Then
    MsgBox "Fecha repetida", vbCritical, "Hola"
    Me.Campo1 = ""
End If
Lo que hace es que al actualizar el dato del campo1 cuenta las fechas iguales a si mismo en la tabla2 campo2 y campo3, y si es mayor que cero se supone que existe.
Una aperta

Añade tu respuesta

Haz clic para o

Más respuestas relacionadas

Agregue un tercer combobox de búsqueda y dar problema

Sigo aprendiendo a través de su ayuda. Resulta que sigo con mi data y en un formulario utilizo dos combobox para filtrar registros por Año y por Mes, gracias a la ayuda de Don Eduardo y Julián que me orientaron a la perfección funcionan a la pinta ya...
2 respuestas

Problema al sumar varios textbox independientes a uno en Access

Mi problema se presenta en un formulario independiente en donde tengo varios textbox independientes enumerados del 1 al 5, donde les agrego registros numéricos de una consulta en listbox, cada vez que agrego un dato a estos textbox, necesito que en...
3 respuestas

Importación desde Access 2007 de un fichero Excel 2007 con 900.000 filas

Que me parece 'de locos'. La base del problema es que quiero importar desde Access un fichero Excel con unas 900,000 filas. Y a partir de ahí, me encuentro con que en mi PC 'de siempre' lo puedo hacer sin ningún tipo de problemas, pero cuando lo...
2 respuestas

Código VBA para crear un botón y guardar en PDF

Tengo un archivo word con 7 capturas, una en cada página (1-7), cual seria el código para crear un botón en la barra de herramientas de acceso rápido para convertir en PDF cada página. El resultado seria 7 pdf.
2 respuestas

Ejecutar la base de datos sin que se muestre el entorno de Access.

Ya he terminado mi base de datos. Ahora quiero abrirla pero que no se vea nada del entorno de Access, ni pestañas. Que el formulario de inicio se vea, por ejemplo, sobre la pantalla del escritorio. Alguien me da el paso a paso
5 respuestas

Generar tres números al azar para una rifa

1. Pregunta Estoy elaborando una aplicación de una rifa y necesito crear una función para llenar una tabla con 3 números generados al azar, ningún número se puede repetir en la tabla, si el vendedor tiene activo el campo juegacuatro se le asignarán...
3 respuestas

Intentando sumar campos moneda de totales en informe de Access.

Estoy tratando de sumar dos campos de sumas totales en un informe de Access y no lo logro. Creo que he agotado todas las variantes. La situación es la siguiente: El informe es para emitir una factura al cliente. A un cliente se les puede hacer mas de...
2 respuestas

Base de datos Access se bloquea al trabajar en simultaneo

En contexto tengo una base de datos donde se ingresan datos en un formulario y este a su vez tiene un subformulario. Al inicio solo era utilizada por un usuario. Pero ahora es usada por 4 usuarios más. Tengo una computadora principal donde tengo la...
3 respuestas

Añadir búsqueda al azar en formularios de Access

Tengo un archivo de Access que quiero modificar y actualizar para añadir nuevas preguntas a una base de datos. He visto que en el formulario hay una casilla como de verificación para seleccionar al azar las preguntas de toda la base de datos pero...
2 respuestas

Como puedo añadir registros desde un formulario de búsqueda a un subformulario de otro formulario de registros de artículos

Tengo un formulario [Entrada_almacen] con un subformulario [Subformulario entradas almacen] en el que quiero que se vallan añadiendo los registros; Código (es un campo calculado), Artículo (combobox, porque también lo puedo seleccionar y si lo hago...
2 respuestas