
Como actualizar un registro en base de datos access sin error de duplicado
Publicado por james (3 intervenciones) el 04/04/2015 22:56:28
saludos, la cuestión es esta, al dar doble click sobre una de las entradas en un msflexgrid de el form1 pasa los datos de esa entrada a los textbox respectivos en el form2, hasta ahí todo bien, este form2 es específicamente para editar una entrada; de manera que lo que quiero lograr es poder cambiar cualquiera de los datos de el registro en cuestión y al dar click en un botón que eh agregado y llamado save1, guarde los cambios (sobrescriba) ese registro. El problema es que me bota un error por que obviamente el campo index, que llame control; lo configure para no permitir duplicados.... La pregunta es: como hacer para "sobrescribir" un registro sin que lo tome como uno nuevo o duplicado, sino que lo asocie a el mismo y solo guarde los cambios por asi decir. El código que uso en el boton de guardar es el siguiente:
Private Sub save1_Click()
Label7.ForeColor = &HFF&
If Text6 = "" Then MsgBox "El Campo Control no puede estar vacio", vbCritical, ""
If Text6 = "" Then Exit Sub
Text6.SetFocus
Label7.ForeColor = &H0&
'----------------------------
Data1.Recordset.Update
Data1.Refresh
'----------------------------
MsgBox "El Trabajo: " & Text6 & Chr(13) + "Se Guardó en la Base de Datos" + Chr(13), vbInformation, "LabCtrl 1.0"
'----------------------------
edit1.Hide
arc1.Show
End Sub
de igual manera al dar doble click en el msflexgrid de el form1 puse el comando form2.data1.recordset.edit.
agradezco de antemano vuestra ayuda....
Private Sub save1_Click()
Label7.ForeColor = &HFF&
If Text6 = "" Then MsgBox "El Campo Control no puede estar vacio", vbCritical, ""
If Text6 = "" Then Exit Sub
Text6.SetFocus
Label7.ForeColor = &H0&
'----------------------------
Data1.Recordset.Update
Data1.Refresh
'----------------------------
MsgBox "El Trabajo: " & Text6 & Chr(13) + "Se Guardó en la Base de Datos" + Chr(13), vbInformation, "LabCtrl 1.0"
'----------------------------
edit1.Hide
arc1.Show
End Sub
de igual manera al dar doble click en el msflexgrid de el form1 puse el comando form2.data1.recordset.edit.
agradezco de antemano vuestra ayuda....
Valora esta pregunta


0