Buscar sin parpadeo en campos de Form
Impreso de: Foro de Access y VBA
Categoría: Access y VBA
Nombre del foro: Access y VBA
Descripción del foro: Foro de programacion en Access (Con código y sin código)
URL: http://www.mvp-access.com/foro/forum_posts.asp?TID=84774
Fecha de impresión: 19/Abril/2024 a las 16:48
Tema: Buscar sin parpadeo en campos de Form
Publicado por: CacoMarco
Asunto: Buscar sin parpadeo en campos de Form
Fecha de publicación: 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 |
Respuestas:
Publicado por: emiliove
Fecha de publicación: 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 |
Publicado por: CacoMarco
Fecha de publicación: 24/Octubre/2019 a las 21:30
 Perfecto, funciona perfecto.Un abrazo gigante desde Chile Pueden cerrar el hilo ------------- CacoMarco/Chile |