Botón eliminar en formulario
Por favor es urgente ayuda para realizar un botón modificar registro de acuerdo a un clic que envía los datos de un grid a unas cajas de texto..
Tengo algo así:
UPDATE dpersonal SET nombre_reg = THISFORM.Txt_nom.Value,apaterno_reg = THISFORM.Txt_apaterno.Value,amaterno_reg = THISFORM.Txt_amaterno.Value,rfc_reg = THISFORM.Txt_rfc.Value,hijo_reg = VAL(THISFORM.TXT_HIjos.Value);
sexo_reg = THISFORM.Cmb_sexo.Value, edocivil_reg = THISFORM.txt_edociv.Value,edo_reg = THISFORM.Cmb_edo.Value, mun_reg = VAL(THISFORM.TXT_Idmun.Value),dom_reg = THISFORM.Txt_domicilio.Value;
telpart_reg = THISFORM.Txt_telpart.Value;
telcel_reg = THISFORM.Txt_celular.Value;
email_reg = THISFORM.Txt_email.Value;
contacto = thisform.txt_medio.Value;
fecha_nac = CTOD(thisform.txt_fnac.Value);
nombre = alltrim(apaterno_reg)+' '+ alltrim(amaterno_reg)+' '+ alltrim(nombre_reg);
año_nac = YEAR(fecha_nac);
MESSAGEBOX("Datos Personales modificados");
WHERE rfc_reg=alltrim(thisform.txt_prfcB.Value);
Me marca error pero no se que es...
Si tienes uno mejor o una solución para esto te lo agradecería siempre...
Tengo algo así:
UPDATE dpersonal SET nombre_reg = THISFORM.Txt_nom.Value,apaterno_reg = THISFORM.Txt_apaterno.Value,amaterno_reg = THISFORM.Txt_amaterno.Value,rfc_reg = THISFORM.Txt_rfc.Value,hijo_reg = VAL(THISFORM.TXT_HIjos.Value);
sexo_reg = THISFORM.Cmb_sexo.Value, edocivil_reg = THISFORM.txt_edociv.Value,edo_reg = THISFORM.Cmb_edo.Value, mun_reg = VAL(THISFORM.TXT_Idmun.Value),dom_reg = THISFORM.Txt_domicilio.Value;
telpart_reg = THISFORM.Txt_telpart.Value;
telcel_reg = THISFORM.Txt_celular.Value;
email_reg = THISFORM.Txt_email.Value;
contacto = thisform.txt_medio.Value;
fecha_nac = CTOD(thisform.txt_fnac.Value);
nombre = alltrim(apaterno_reg)+' '+ alltrim(amaterno_reg)+' '+ alltrim(nombre_reg);
año_nac = YEAR(fecha_nac);
MESSAGEBOX("Datos Personales modificados");
WHERE rfc_reg=alltrim(thisform.txt_prfcB.Value);
Me marca error pero no se que es...
Si tienes uno mejor o una solución para esto te lo agradecería siempre...
1 Respuesta
Respuesta de jahs1982
1
yo tuve el mismo problema y lo solucione creando variables y asignando a estas el valor de los controles , ejemplo
nom1= thisform.txt_nom.value
......
update dpersonal set nombre_reg = nom1, .........
Checalo, la respuesta de porque es esto no estoy muy seguro, he leído un poco pero no me queda claro y no quiero confundirte.
nom1= thisform.txt_nom.value
......
update dpersonal set nombre_reg = nom1, .........
Checalo, la respuesta de porque es esto no estoy muy seguro, he leído un poco pero no me queda claro y no quiero confundirte.
