Buscar registro en Formulario |
Responder | Página 12> |
Autor | |
Weapon
Habitual Unido: 18/Octubre/2006 Localización: España Estado: Sin conexión Puntos: 116 |
Tema: Buscar registro en Formulario Enviado: 14/Octubre/2019 a las 12:21 |
Un saludo a todos, solicito vuestra ayuda con lo siguiente: En un Formulario llamado "FIncidenciasMto_Nuevas" que se alimenta de la Tabla "tblDatos_Averías" tengo un campo txt con formato "Fecha corta" llamado "FechaAvería_BUSQUEDA", al insertar una fecha mediante el evento "Al cambiar" pretendo que busque en la Tabla citada anteriormente si existe un registro con la fecha coincidente y muestre los datos en el formulario y si no lo encuentra lanze un MSGBOX en el que diga que no encuentra un registro coincidente. Lo he intentado hacer pero me da el siguiente error. Texto del error: Se ha producido el error '3077' en tiempo de ejecución: Error de sintaxis en la fecha en la exprexión Codigo: Private Sub FechaAvería_BUSQUEDA_Change() Dim rs As Object Set rs = Me.Recordset.Clone rs.FindFirst "[FechaAvería] = #" & Me![FechaAvería_BUSQUEDA] & "#" If Not rs.EOF Then Me.Bookmark = rs.Bookmark Me.FechaAvería_BUSQUEDA = "" End Sub Error en esta línea de código: rs.FindFirst "[FechaAvería] = #" & Me![FechaAvería_BUSQUEDA] & "#" Gracias de antemano, un saludo
|
|
Saludos desde Torrejón de Ardoz, Madrid, España!!
Domingo |
|
Mihura
Ver perfil usuario
Enviar mensaje privado
Ver los mensajes del usuario
Visite la página de los usuarios
Añadir a la lista de amigos
Administrador Unido: 06/Mayo/2005 Localización: En la dehesa Estado: Sin conexión Puntos: 13990 |
Enviado: 14/Octubre/2019 a las 12:53 |
Las fechas en formato yanki:
rs.FindFirst "[FechaAvería] = #" & Format(Me![FechaAvería_BUSQUEDA], "mm/dd/yyyy") & "#"
|
|
Weapon
Habitual Unido: 18/Octubre/2006 Localización: España Estado: Sin conexión Puntos: 116 |
Enviado: 14/Octubre/2019 a las 13:19 |
Gracias Jesús por tu atención, sigue dándome el mismo error.
|
|
Saludos desde Torrejón de Ardoz, Madrid, España!!
Domingo |
|
Mihura
Ver perfil usuario
Enviar mensaje privado
Ver los mensajes del usuario
Visite la página de los usuarios
Añadir a la lista de amigos
Administrador Unido: 06/Mayo/2005 Localización: En la dehesa Estado: Sin conexión Puntos: 13990 |
Enviado: 14/Octubre/2019 a las 14:00 |
Pon un punto de interrupción y comprueba el valor de la expresión construida.
|
|
Weapon
Habitual Unido: 18/Octubre/2006 Localización: España Estado: Sin conexión Puntos: 116 |
Enviado: 14/Octubre/2019 a las 14:40 |
Me has dejado pillado, como lo hago?
|
|
Saludos desde Torrejón de Ardoz, Madrid, España!!
Domingo |
|
Weapon
Habitual Unido: 18/Octubre/2006 Localización: España Estado: Sin conexión Puntos: 116 |
Enviado: 14/Octubre/2019 a las 14:43 |
Se poner un punto de interrupción, pero luego donde compruebo el valor de la expresión construida.
|
|
Saludos desde Torrejón de Ardoz, Madrid, España!!
Domingo |
|
Mihura
Ver perfil usuario
Enviar mensaje privado
Ver los mensajes del usuario
Visite la página de los usuarios
Añadir a la lista de amigos
Administrador Unido: 06/Mayo/2005 Localización: En la dehesa Estado: Sin conexión Puntos: 13990 |
Enviado: 14/Octubre/2019 a las 15:33 |
En la ventana inmediato haces un print de lo que quieras comprobar:
? "[FechaAvería] = #" & Format(Me![FechaAvería_BUSQUEDA], "mm/dd/yyyy") & "#"
|
|
prga
Moderador Unido: 16/Noviembre/2004 Localización: España Estado: Sin conexión Puntos: 3523 |
Enviado: 14/Octubre/2019 a las 15:52 |
Hola.
Sin entrar en otras consideraciones, creo que en el evento change habría que utilizar Me![FechaAvería_BUSQUEDA].text Si no es así, siempre nos saldrá el valor "original" del cuadro de texto y no los cambios hechos. Espero que ayude a resolver la duda. Ya comentas. Un saludo a todos |
|
Mihura
Ver perfil usuario
Enviar mensaje privado
Ver los mensajes del usuario
Visite la página de los usuarios
Añadir a la lista de amigos
Administrador Unido: 06/Mayo/2005 Localización: En la dehesa Estado: Sin conexión Puntos: 13990 |
Enviado: 14/Octubre/2019 a las 16:13 |
Lo del change no me había percatado yo ... , gracias prga.
|
|
rokoko
Colaborador Unido: 16/Febrero/2008 Localización: Pamplona Estado: Sin conexión Puntos: 3062 |
Enviado: 14/Octubre/2019 a las 16:18 |
Y en el evento despues de actualizar utilizando un DCount y como criterio la fecha?
If DCount("nombrecampofecha","nombretabla","nombrecampofecha=#me.FechaAvería_BUSQUEDA#") > 0 then Msgbox"existe" Else Msgbox"no existe" End if Editado por rokoko - 14/Octubre/2019 a las 16:20 |
|
Weapon
Habitual Unido: 18/Octubre/2006 Localización: España Estado: Sin conexión Puntos: 116 |
Enviado: 14/Octubre/2019 a las 17:30 |
Utilizando el DCount de "rokoko" ahora lanza el siguiente error: Texto del error: Se ha producido el error '3075' en tiempo de ejecución: Error de sintaxis en la fecha en la exprexión de consulta 'FechaAvería=#me.FechaAvería_BUSQUEDA" Error en esta línea de código: If DCount("FechaAvería", "tblDatos_Averías", "FechaAvería=#me.FechaAvería_BUSQUEDA#") > 0 Then Gracias por vuestra ayuda y paciencia
|
|
Saludos desde Torrejón de Ardoz, Madrid, España!!
Domingo |
|
rokoko
Colaborador Unido: 16/Febrero/2008 Localización: Pamplona Estado: Sin conexión Puntos: 3062 |
Enviado: 14/Octubre/2019 a las 17:52 |
Prueba asi a ver, de memoria suelo fallar.... Y quizas debas darle formato americano para que access no se lie... # " & Format(me.FechaAvería_BUSQUEDA,"mm/dd/yyyy") & "# Saludos Edito. Lo acabo de probar y asi funciona. Con formato americano, si no access se lia. If DCount("FechaAvería", "tblDatos_Averías", "FechaAvería=# " & Format(Me.FechaAvería_BUSQUEDA, "mm/dd/yyyy") & "#") > 0 Then MsgBox "Existe" Else MsgBox "No existe" End If En SQL y VBA siempre formato americano!!!!! le he pasado la fecha 02/01/2019 sabiendo que esta en tabla y me dice que no esta, eso pasa por no darle formato americano, lo identifica como 02/01/2019...... Editado por rokoko - 14/Octubre/2019 a las 18:04 |
|
rokoko
Colaborador Unido: 16/Febrero/2008 Localización: Pamplona Estado: Sin conexión Puntos: 3062 |
Enviado: 14/Octubre/2019 a las 18:06 |
Y ya por tocarte un poco mas las narices, nunca dejes espacios o pongas tildes o cosas raras a los nombre de campos o tablas.....solo te daran dolores de cabeza....
Sobre fechas del maestro Mihura.... Editado por rokoko - 14/Octubre/2019 a las 18:11 |
|
Weapon
Habitual Unido: 18/Octubre/2006 Localización: España Estado: Sin conexión Puntos: 116 |
Enviado: 14/Octubre/2019 a las 18:07 |
Sigue dando el mismo error y en la misma línea de código. |
|
Saludos desde Torrejón de Ardoz, Madrid, España!!
Domingo |
|
rokoko
Colaborador Unido: 16/Febrero/2008 Localización: Pamplona Estado: Sin conexión Puntos: 3062 |
Enviado: 14/Octubre/2019 a las 18:15 |
Pues a mi me a funcinado y con esos mismos nombre de tabla y campos.. https://www.dropbox.com/s/gzyxm0jl7hlizzh/Buscar%20registro%20x%20fecha.mdb?dl=0
|
|
Responder | Página 12> |
Tweet
|
Ir al foro | Permisos de foro Usted No puede publicar nuevos temas en este foro Usted No puede responder a temas en este foro Usted No puede borrar sus mensajes en este foro Usted No puede editar sus mensajes en este foro Usted No puede crear encuestas en este foro Usted No puede votar en encuestas en este foro |