Access - validar un boton

   
Vista:

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
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