** NORMAS DEL FORO **
Inicio del foro Inicio del foro > Access y VBA > Access y VBA
  Mensajes nuevos Mensajes nuevos RSS - Buscar sin parpadeo en campos de Form
  Preguntas frecuentes Preguntas frecuentes  Buscar en el foro   Eventos   Registro Registro  Iniciar sesion Iniciar sesion

Tema cerradoBuscar sin parpadeo en campos de Form

 Responder Responder
Autor
Mensaje
CacoMarco Ver desplegable
Asiduo
Asiduo


Unido: 12/Octubre/2011
Localización: Chile
Estado: Sin conexión
Puntos: 283
Enlace directo a este mensaje Tema: Buscar sin parpadeo en campos de Form
    Enviado: 24/Octubre/2019 a las 21:10
Buenas tardes estimados,
En Access 2016, tengo un formulario basado en una Tabla (TbVelocity).
Puse un cuadro de texto de nombre NumeroOTC y un botón para búsqueda de nombre BuscarOTC con el siguiente código en el evento al hacer click:

If DCount("*", "TbVelocity", "NroOTC=" & Me.NumeroOTC) = 0 Then
   MsgBox "NO SE ENCONTRO OTC DIGITADA....", vbOKOnly + vbInformation, "ATENCION !!!"
   Me.NumeroOTC = ""
Else
   DoCmd.SearchForRecord acForm, "FrmVelocity", acFirst, "NroOTC = " & Me.NumeroOTC
End If

En la tabla TbVelocity tengo un campo de nombre NroOTC indexado.
El código funciona bien para cuando busca el primer registro / NroOTC de la tabla, sin embargo cuando busca NroOTC que está más abajo en la tabla, los campos del formulario comienzan a parpadear (seguramente porque pasa registro por registro hasta encontrar el deseado) hasta que lo encuentra, muestra los campos del registro y los campos dejan de parpadear.
Cómo puedo evitar ese parpadeo de cada campo mientras busca un registro que no sea el primero de la tabla ?

Saludos y un abrazo desde Chile (la hemos pasado mal últimamente pero con mucha fuerza la gente está saliendo adelante)


CacoMarco/Chile
Arriba
emiliove Ver desplegable
Moderador
Moderador


Unido: 16/Junio/2009
Localización: Mexico
Estado: Sin conexión
Puntos: 5202
Enlace directo a este mensaje Enviado: 24/Octubre/2019 a las 21:23
Intenta con Echo algo así:

Application.Echo False
If DCount("*", "TbVelocity", "NroOTC=" & Me.NumeroOTC) = 0 Then
   MsgBox "NO SE ENCONTRO OTC DIGITADA....", vbOKOnly + vbInformation, "ATENCION !!!"
   Me.NumeroOTC = ""
Else
   DoCmd.SearchForRecord acForm, "FrmVelocity", acFirst, "NroOTC = " & Me.NumeroOTC
End If
Application.Echo True Saludos y mucho animo, por aquellos rumbos.


Arriba
CacoMarco Ver desplegable
Asiduo
Asiduo


Unido: 12/Octubre/2011
Localización: Chile
Estado: Sin conexión
Puntos: 283
Enlace directo a este mensaje Enviado: 24/Octubre/2019 a las 21:30
Thumbs Up Perfecto, funciona perfecto.
Un abrazo gigante desde Chile

Pueden cerrar el hilo
CacoMarco/Chile
Arriba
 Responder Responder
  Compartir tema   

Ir al foro Permisos de foro Ver desplegable