** NORMAS DEL FORO **
Inicio del foro Inicio del foro > Access y VBA > Access y VBA
  Mensajes nuevos Mensajes nuevos RSS - Buscar registro en Formulario
  Preguntas frecuentes Preguntas frecuentes  Buscar en el foro   Eventos   Registro Registro  Iniciar sesion Iniciar sesion

Tema cerradoBuscar registro en Formulario

 Responder Responder Página  12>
Autor
Mensaje
Weapon Ver desplegable
Habitual
Habitual
Avatar

Unido: 18/Octubre/2006
Localización: España
Estado: Sin conexión
Puntos: 116
Enlace directo a este mensaje 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
Arriba
Mihura Ver desplegable
Administrador
Administrador
Avatar

Unido: 06/Mayo/2005
Localización: En la dehesa
Estado: Sin conexión
Puntos: 13990
Enlace directo a este mensaje 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") & "#"
Jesús Mansilla Castells.
Saludos desde Móstoles.

Access Aplicaciones
Tecsys.es
Arriba
Weapon Ver desplegable
Habitual
Habitual
Avatar

Unido: 18/Octubre/2006
Localización: España
Estado: Sin conexión
Puntos: 116
Enlace directo a este mensaje 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
Arriba
Mihura Ver desplegable
Administrador
Administrador
Avatar

Unido: 06/Mayo/2005
Localización: En la dehesa
Estado: Sin conexión
Puntos: 13990
Enlace directo a este mensaje Enviado: 14/Octubre/2019 a las 14:00
Pon un punto de interrupción y comprueba el valor de la expresión construida.
Jesús Mansilla Castells.
Saludos desde Móstoles.

Access Aplicaciones
Tecsys.es
Arriba
Weapon Ver desplegable
Habitual
Habitual
Avatar

Unido: 18/Octubre/2006
Localización: España
Estado: Sin conexión
Puntos: 116
Enlace directo a este mensaje 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
Arriba
Weapon Ver desplegable
Habitual
Habitual
Avatar

Unido: 18/Octubre/2006
Localización: España
Estado: Sin conexión
Puntos: 116
Enlace directo a este mensaje 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
Arriba
Mihura Ver desplegable
Administrador
Administrador
Avatar

Unido: 06/Mayo/2005
Localización: En la dehesa
Estado: Sin conexión
Puntos: 13990
Enlace directo a este mensaje 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") & "#"
Jesús Mansilla Castells.
Saludos desde Móstoles.

Access Aplicaciones
Tecsys.es
Arriba
prga Ver desplegable
Moderador
Moderador


Unido: 16/Noviembre/2004
Localización: España
Estado: Sin conexión
Puntos: 3523
Enlace directo a este mensaje 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


Arriba
Mihura Ver desplegable
Administrador
Administrador
Avatar

Unido: 06/Mayo/2005
Localización: En la dehesa
Estado: Sin conexión
Puntos: 13990
Enlace directo a este mensaje Enviado: 14/Octubre/2019 a las 16:13
Lo del change no me había percatado yo ... Ouch, gracias prga.

Jesús Mansilla Castells.
Saludos desde Móstoles.

Access Aplicaciones
Tecsys.es
Arriba
rokoko Ver desplegable
Colaborador
Colaborador
Avatar

Unido: 16/Febrero/2008
Localización: Pamplona
Estado: Sin conexión
Puntos: 3062
Enlace directo a este mensaje 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
Arriba
Weapon Ver desplegable
Habitual
Habitual
Avatar

Unido: 18/Octubre/2006
Localización: España
Estado: Sin conexión
Puntos: 116
Enlace directo a este mensaje 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
Arriba
rokoko Ver desplegable
Colaborador
Colaborador
Avatar

Unido: 16/Febrero/2008
Localización: Pamplona
Estado: Sin conexión
Puntos: 3062
Enlace directo a este mensaje Enviado: 14/Octubre/2019 a las 17:52
Prueba asi a ver, de memoria suelo fallar....

If DCount("FechaAvería", "tblDatos_Averías", "FechaAvería=# " & me.FechaAvería_BUSQUEDA & "#") > 0 Then


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
Arriba
rokoko Ver desplegable
Colaborador
Colaborador
Avatar

Unido: 16/Febrero/2008
Localización: Pamplona
Estado: Sin conexión
Puntos: 3062
Enlace directo a este mensaje Enviado: 14/Octubre/2019 a las 18:06
Y ya por tocarte un poco mas las naricesBig smile, 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
Arriba
Weapon Ver desplegable
Habitual
Habitual
Avatar

Unido: 18/Octubre/2006
Localización: España
Estado: Sin conexión
Puntos: 116
Enlace directo a este mensaje 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
Arriba
rokoko Ver desplegable
Colaborador
Colaborador
Avatar

Unido: 16/Febrero/2008
Localización: Pamplona
Estado: Sin conexión
Puntos: 3062
Enlace directo a este mensaje Enviado: 14/Octubre/2019 a las 18:15
Publicado originalmente por Weapon Weapon escribió:

Sigue dando el mismo error y en la misma línea de código.


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
Arriba
 Responder Responder Página  12>
  Compartir tema   

Ir al foro Permisos de foro Ver desplegable