Uso del Keydown
//Validando la entrada de datos que no sea nula
IF (KeyDown(KeyTab!) OR KeyDown(KeyEnter!) ) then
if Trim(this.text)="" or IsNull(this.text) then
Messagebox("Mensaje", "Campo no puede ser Nulo")
this.setfocus()
else
Tab_Plan1.tabpage_p2.em_busqueda.enabled=true
lb_Listado.enabled=true
lb_listado.Setfocus()
end if
else
messagebox("Error","Mensaje de error")
End if
Puse este código en el modified y resulta que no se dispara la validación al presionar la telca enter o Tab a que se debe
IF (KeyDown(KeyTab!) OR KeyDown(KeyEnter!) ) then
if Trim(this.text)="" or IsNull(this.text) then
Messagebox("Mensaje", "Campo no puede ser Nulo")
this.setfocus()
else
Tab_Plan1.tabpage_p2.em_busqueda.enabled=true
lb_Listado.enabled=true
lb_listado.Setfocus()
end if
else
messagebox("Error","Mensaje de error")
End if
Puse este código en el modified y resulta que no se dispara la validación al presionar la telca enter o Tab a que se debe
1 respuesta
Respuesta de carloscharly
1