Como guardar y limpiar textbox con propiedad numerica
Publicado por Adrian (4 intervenciones) el 09/03/2018 17:07:25
Hola tengo un pequeño problema soy nuevo trabajando con visual , tengo un problema con 2 botones de comando
uno es el botón Nuevo, botón Guardar, al formulario permanece desactivado el botón de guardar, el segundo botón nuevo nos permite activar el botón de guardado y nos lleva al primer textbox, y al precionar guardar se guarda directamente en la tabla pero me sale error en dos textbox que son de propiedad numeria.
este es mi formulario:

estos son los codigos del boton de nuevo

estos son los codigos del boton de guardar
USE AlmacenMedicamentos
replace tipo WITH thisform.timedi.Value
replace medicament WITH thisform.txtmedi.Value
thisform.Refresh
**************************************************************************************
ThisForm.Refresh
IF delet() then
thisform.txtclav.Value=""
thisform.timedi.Value=""
thisform.txtmedi.Value=""
thisform.txtcan.value=""
MESSAGEBOX("No se guardaron correctamente")
ELSE
MESSAGEBOX("Se Guardaron Correctamente")
ENDIF
**********************************************************************************************
this.Enabled= .F.
thisform.command4.Enabled= .T.
**************************************************************
thisform.txtclav.Enabled= .F.
thisform.timedi.Enabled= .F.
thisform.txtmedi.Enabled= .F.
thisform.txtcant.Enabled= .F.
thisform.Refresh
Boton Nuevo
SELECT AlmacenMedicamentos
APPEND BLANK
this.Enabled= .F.
thisform.command1.Enabled= .T.
*********************************
thisform.txtclav.Enabled= .T.
thisform.timedi.Enabled= .T.
thisform.txtmedi.Enabled= .T.
thisform.txtcant.Enabled= .T.
*************************************
ThisForm.Refresh
IF delet() then
thisform.txtclav.Value=""
thisform.timedi.Value=""
thisform.txtmedi.Value=""
thisform.txtcan.value=""
MESSAGEBOX("No Se Ha Creado Registro")
ELSE
MESSAGEBOX("Crear Registro")
ENDIF
Espero y puedan ayudarme si estoy mal agradecería que me ayudaran
uno es el botón Nuevo, botón Guardar, al formulario permanece desactivado el botón de guardar, el segundo botón nuevo nos permite activar el botón de guardado y nos lleva al primer textbox, y al precionar guardar se guarda directamente en la tabla pero me sale error en dos textbox que son de propiedad numeria.
este es mi formulario:

estos son los codigos del boton de nuevo

estos son los codigos del boton de guardar
USE AlmacenMedicamentos
replace tipo WITH thisform.timedi.Value
replace medicament WITH thisform.txtmedi.Value
thisform.Refresh
**************************************************************************************
ThisForm.Refresh
IF delet() then
thisform.txtclav.Value=""
thisform.timedi.Value=""
thisform.txtmedi.Value=""
thisform.txtcan.value=""
MESSAGEBOX("No se guardaron correctamente")
ELSE
MESSAGEBOX("Se Guardaron Correctamente")
ENDIF
**********************************************************************************************
this.Enabled= .F.
thisform.command4.Enabled= .T.
**************************************************************
thisform.txtclav.Enabled= .F.
thisform.timedi.Enabled= .F.
thisform.txtmedi.Enabled= .F.
thisform.txtcant.Enabled= .F.
thisform.Refresh
Boton Nuevo
SELECT AlmacenMedicamentos
APPEND BLANK
this.Enabled= .F.
thisform.command1.Enabled= .T.
*********************************
thisform.txtclav.Enabled= .T.
thisform.timedi.Enabled= .T.
thisform.txtmedi.Enabled= .T.
thisform.txtcant.Enabled= .T.
*************************************
ThisForm.Refresh
IF delet() then
thisform.txtclav.Value=""
thisform.timedi.Value=""
thisform.txtmedi.Value=""
thisform.txtcan.value=""
MESSAGEBOX("No Se Ha Creado Registro")
ELSE
MESSAGEBOX("Crear Registro")
ENDIF
Espero y puedan ayudarme si estoy mal agradecería que me ayudaran
Valora esta pregunta


0