problemas con código
Publicado por Marga (10 intervenciones) el 15/11/2009 16:38:28
Hola, llevo una semana con el mismo problema, pensaba que estaba resuelto, pero después de toda una mañana agregando registros, al duplicar los registros he perdido toda la información de los campos, que me salen en blanco. Solo guarda 1 en las tablas
Creo que me falta algo,
1. ordena copia registro
2, excluye codig-cantidad-precio-articulo
y me debe faltar que recoja ó cambie, los cambios efectuados en ese regsitro
si alguien me pudiese ayudar, se lo agradecería mucho
os paso el código
Private Sub Comando65_Click()
CODIG.SetFocus
CODIG.Text = ""
QUANTITAT.SetFocus
QUANTITAT.Text = ""
PREU.SetFocus
PREU.Text = ""
ARTICLE.SetFocus
ARTICLE.Text = ""
DoCmd.DoMenuItem acFormBar, acEditMenu, 8, , acMenuVer70
DoCmd.DoMenuItem acFormBar, acEditMenu, 2, , acMenuVer70
DoCmd.DoMenuItem acFormBar, acEditMenu, 5, , acMenuVer70 'duplicar añadir
Exit_Duplicar_Clik:
Exit Sub
Err_Duplicar_Clik:
MsgBox Err.Description
Resume Exit_Duplicar_Clik
End Sub
Un saludo
Marga
Creo que me falta algo,
1. ordena copia registro
2, excluye codig-cantidad-precio-articulo
y me debe faltar que recoja ó cambie, los cambios efectuados en ese regsitro
si alguien me pudiese ayudar, se lo agradecería mucho
os paso el código
Private Sub Comando65_Click()
CODIG.SetFocus
CODIG.Text = ""
QUANTITAT.SetFocus
QUANTITAT.Text = ""
PREU.SetFocus
PREU.Text = ""
ARTICLE.SetFocus
ARTICLE.Text = ""
DoCmd.DoMenuItem acFormBar, acEditMenu, 8, , acMenuVer70
DoCmd.DoMenuItem acFormBar, acEditMenu, 2, , acMenuVer70
DoCmd.DoMenuItem acFormBar, acEditMenu, 5, , acMenuVer70 'duplicar añadir
Exit_Duplicar_Clik:
Exit Sub
Err_Duplicar_Clik:
MsgBox Err.Description
Resume Exit_Duplicar_Clik
End Sub
Un saludo
Marga
Valora esta pregunta


0