Ho fatto delle prove, ma è andata peggio
Richiamo la funzione sotto da un pulsante o evento BeforeUpdate pero ricevo tale errore:
Impossibile salvare i dati nel campo a causa della macro o funzione impostata sulla proprietà prima di aggiornare
PrivateFunction save_record()
On Error GoTo Err_save_reocord_Click
If Me.Dirty Then
Dim risposta
risposta = MsgBox("Salvare le modifiche?" & vbCrLf & "(Si=Salva, No=Elimina modifice, Annulla=Continua modifiche", vbYesNoCancel, "Salva modifiche " & Me.name)
If risposta = vbNo Then
Me.Undo
Me.Requery
cambio_su_modifica Me.name, "M&odifica", False
Me.Refresh
ElseIf risposta = vbCancel Then
Exit Function
Else
DoCmd.RunCommand acCmdSaveRecord
'cambio_su_modifica Me.name, "M&odifica", False
End If
Else
MsgBox "Nessuna modifica", vbInformation
cambio_su_modifica Me.name, "M&odifica", False
End If
Exit_save_reocord_Click:
Exit Function
Err_save_reocord_Click:
MsgBox Err.Description
Resume Exit_save_reocord_Click
End Function