Access - no guardar datos automaticamente al dar click

 
Vista:

no guardar datos automaticamente al dar click

Publicado por anahi (17 intervenciones) el 09/04/2013 23:10:59
buenas tardes tengo un formulario en el cual tengo un boton para registrar y otro para guardar en el boton registrar habilito los textbox y los cuadros combinados y los botones y en el boton de guardar solo me guarda los datos que tengo capturados pero al momento de registrar le doy clic y me aparece para dar un nuevo registro y en el guardar tambien pero yo lo que quiero es que el boton registrar no me guarde datos solo me recorra un campo que nada sea el boton guardar el que me permita almacenar los datos en la base de datos no el registrar porfavor alguien que me pueda ayudar??? se los agradeceria de verdad les dejo el codigo de los botones para que lo analicen

boton guardar:
Private Sub Comando82_Click()
DoCmd.DoMenuItem acFormBar, acRecordsMenu, acSaveRecord, , acMenuVer70
x = MsgBox("los datos se han guardado satisfactoriamente...", vbOKOnly, "sistema de correspondencia")
On Error GoTo Err_comando82_Click
DoCmd.GoToRecord , , acNewRec
Exit_comando82_Click:
Exit Sub
Err_comando82_Click:
MsgBox Err.Description
Resume Exit_comando82_Click
End Sub

boton registrar:
Private Sub Comando23_Click()
With Me
.[numoficio].Enabled = True
.[fenvio].Enabled = True
.[frecibido].Enabled = True
.[proviene].Enabled = True
.[asunto].Enabled = True
.[remitente].Enabled = True
.[puesto].Enabled = True
.[turnadoA].Enabled = True
.[filtro].Enabled = True
.[tipo].Enabled = True
.[comentario].Enabled = True
.[Comando32].Enabled = True
.[Comando25].Enabled = True
.[Comando26].Enabled = True
.[Comando27].Enabled = True
.[Comando28].Enabled = True
.[listado].Enabled = True
.Comando82.Enabled = True
End With
On Error GoTo Err_comando23_Click
DoCmd.GoToRecord , , acNewRec
Exit_comando23_Click:
Exit Sub
Err_comando23_Click:
MsgBox Err.Description
Resume Exit_comando23_Click
DoCmd.DoMenuItem acFormBar, acEditMenu, acUndo, , acMenuVer70
End Sub

saludos.
anahi
Valora esta pregunta
Me gusta: Está pregunta es útil y esta claraNo me gusta: Está pregunta no esta clara o no es útil
0
Responder