guardar sin hacer cambios
Publicado por salva (44 intervenciones) el 29/11/2020 12:10:05
tengo el siguiente codigo;
el problema viene cuando le doy a modificar un registro pero no modifico nada, por ejemplo por error. no me deja salir hasta que hago un cambio, ¿Qué le puedo añadir para que me deje salir sin hacer cambios?
gracias,
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
Private Sub GUARDAR_Click()
Dim Respuesta As Integer
If (IsNull(cultivo) Or cultivo = "") Then
MsgBox "El registro " & CurrentRecord & " no se ha guardar " & _
Chr(10) & "porque hay campos vacios.", vbInformation, "Grabacion cancelada"
On Error Resume Next
Me.cultivo.SetFocus
Else
If Me.Dirty ThenRespuesta = MsgBox("El registro ha sido modificado" & vbCrLf & vbCrLf & _
"¿Deseas guardar los cambios?", vbQuestion + vbYesNo, "DATOS MODIFICADOS")
If Respuesta = vbNo ThenMe.Undo 'No relizo los cambios
DoCmd.GoToRecord , , acLast
Forms!forcultivos!txtbuscar.SetFocus
Me.AllowEdits = False
Me.NUEVO.Enabled = True
Me.SALIR.Enabled = True
Me.MODIFICAR.Enabled = True
Me.GUARDAR.Enabled = False
Else
DoCmd.RunCommand acCmdRefreshForms!forcultivos!txtbuscar.SetFocus
Me.AllowEdits = False
Me.NUEVO.Enabled = True
Me.SALIR.Enabled = True
Me.MODIFICAR.Enabled = True
Me.GUARDAR.Enabled = False
End If
End If
End If
End Sub
el problema viene cuando le doy a modificar un registro pero no modifico nada, por ejemplo por error. no me deja salir hasta que hago un cambio, ¿Qué le puedo añadir para que me deje salir sin hacer cambios?
gracias,
Valora esta pregunta
0