validar un boton
Publicado por anahi rodriguez sandate (17 intervenciones) el 04/04/2013 22:06:00
hola buenas tardes tengo un formulario y le agrege un boton para guardar con todo y validacion este es el codigo :
y = MsgBox("desea guardar el registro?", vbYesNo, "sistema de correspondencia")
If y = vbYes Then
y = MsgBox("los datos se han guardado correctamente", vbOKOnly, "sistema de correspondencia")
On Error Resume Next
Me!Prueba2 = Me!Prueba2
DoCmd.RunCommand acCmdSaveRecord
DoCmd.GoToRecord , , acNewRec
With Me
.[numoficio].Enabled = False
.[fenvio].Enabled = False
.[frecibido].Enabled = False
.[proviene].Enabled = False
.[asunto].Enabled = False
.[remitente].Enabled = False
.[puesto].Enabled = False
.[turnadoA].Enabled = False
.[filtro].Enabled = False
.[tipo].Enabled = False
.[comentario].Enabled = False
.[Comando32].Enabled = False
.[Comando25].Enabled = False
.[Comando26].Enabled = False
.[Comando27].Enabled = False
.[Comando28].Enabled = False
.[listado].Enabled = False
End With
End If
yo lo que quisiera saver es al momento de dar clic en guardar y decirle que no me los guarde pero que me deje el valor que modifique al principio o que no este segura de guardar ese registro y tambien quiero que me actualice la informacion muchas gracias saludos.
anahi
y = MsgBox("desea guardar el registro?", vbYesNo, "sistema de correspondencia")
If y = vbYes Then
y = MsgBox("los datos se han guardado correctamente", vbOKOnly, "sistema de correspondencia")
On Error Resume Next
Me!Prueba2 = Me!Prueba2
DoCmd.RunCommand acCmdSaveRecord
DoCmd.GoToRecord , , acNewRec
With Me
.[numoficio].Enabled = False
.[fenvio].Enabled = False
.[frecibido].Enabled = False
.[proviene].Enabled = False
.[asunto].Enabled = False
.[remitente].Enabled = False
.[puesto].Enabled = False
.[turnadoA].Enabled = False
.[filtro].Enabled = False
.[tipo].Enabled = False
.[comentario].Enabled = False
.[Comando32].Enabled = False
.[Comando25].Enabled = False
.[Comando26].Enabled = False
.[Comando27].Enabled = False
.[Comando28].Enabled = False
.[listado].Enabled = False
End With
End If
yo lo que quisiera saver es al momento de dar clic en guardar y decirle que no me los guarde pero que me deje el valor que modifique al principio o que no este segura de guardar ese registro y tambien quiero que me actualice la informacion muchas gracias saludos.
anahi
Valora esta pregunta


0