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
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
