Programar en evento change

Necesito que me ayudes con lo siguiente:
Tengo un texbox en basic 6.0 en donde en el evento change le tengo una consulta para que me busque un dato:
Ejemplo:
Private Sub Text1_Change()
Select * from table where ….
If recorset > 0 then
Muestre datos
Else
Mgsbox (“no hay datos”)
Endif
Hasta aquí toda va bien, solo un problema. Por estar en el evento change, cada vez que dígito un carácter me lanza el mgsbox y yo quiero que me lo lance si no encuentra nada pero después de terminar de digitar una cadena de texto, por ejemplo; 010101
Como puedo hacer

1 respuesta

Respuesta
1

Cambia de evento y utiliza el enter como disparador

Private Sub Text1_KeyPress(KeyAscii As Integer)
If KeyAscii = 13 Then
Select * from table where ….
If recorset > 0 Then
Muestre datos
Else
Mgsbox (“no hay datos”)
End If
End If
End Sub

Añade tu respuesta

Haz clic para o

Más respuestas relacionadas