Capturar dato usando la tecla Enter
Publicado por pedro (54 intervenciones) el 03/05/2017 06:00:45
Hola comunidad, tengo un inconveniente al momento de capturar datos de un cuadro de texto, lo cual quiero utilizar para una consulta. A continuación expongo el problema y el codigo que uso.
Cuando presiono la tecla Enter y el campo esta vacío me aparece un mensaje el cual yo quiero que aparezca cuando el cuadro este vacío, avisando que no puede realiza dicha operación por que esta vacío.
Si escribo un numero y le presiono Enter, la primera vez me muestra el mensaje diciendo que no hay nada, pero si presiono de nuevo, entonces me muestra el mensaje diciendo el contenido del cuadro de texto.
Luego si borro el contenido, y le doy Enter, me vuelve a mostrar el numero de contenido, cuando en realidad ya no esta.
Pero si presiono Enter de nuevo, me dice que esta vacío por decirlo asi.
Este codigo ocurre con el evento
Cuando presiono la tecla Enter y el campo esta vacío me aparece un mensaje el cual yo quiero que aparezca cuando el cuadro este vacío, avisando que no puede realiza dicha operación por que esta vacío.
Si escribo un numero y le presiono Enter, la primera vez me muestra el mensaje diciendo que no hay nada, pero si presiono de nuevo, entonces me muestra el mensaje diciendo el contenido del cuadro de texto.
Luego si borro el contenido, y le doy Enter, me vuelve a mostrar el numero de contenido, cuando en realidad ya no esta.
Pero si presiono Enter de nuevo, me dice que esta vacío por decirlo asi.
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
Dim codigo_venta As Variant
If (KeyCode = 13) Then
codigo_venta = Me.txt_codigo_rv.Value
If (IsNull(codigo_venta) = True Or codigo_venta = "") Then
MsgBox "No hay un codigo de venta para realizar la operacion de busqueda"Else
MsgBox "El codigo es: " & codigo_venta
End If
End If
Este codigo ocurre con el evento
1
Al baja una tecla
Valora esta pregunta
0