save prompt new record help - Microsoft Access Forum


	Back to Access Forum Comments List

Upload Images @Reply Bookmark Link Email Next Unseen

save prompt new record help

Sean Sweeney

4 years ago

Is there a way to bypass this code for new records? I was hoping to use this to protect entries in a continuous form from being accidentally changed

Private Sub Form_BeforeUpdate(Cancel As Integer)
 Dim ctl As Control

 On Error GoTo Err_BeforeUpdate

 If Me.Dirty Then
   If MsgBox("Do you want to save?", vbYesNo + vbQuestion, _
           "Save Record") = vbNo Then
      Me.Undo
   End If
 End If

Exit_BeforeUpdate:
 Exit Sub

Err_BeforeUpdate:
 MsgBox Err.Number & " " & Err.Description
 Resume Exit_BeforeUpdate
End Sub

	Adam Schwanz @Reply 4 years ago
You could check with DMAX vs the ID. `If ID >= DMAX("ID","Table") Then 'it's a new record Else 'stuff End If`

	Adam Schwanz @Reply 4 years ago
DMax

Sean Sweeney OP @Reply

4 years ago

Genius! Just Plugged that in before the function, then ended/exited the routine for Dmax Value.

Private Sub LastName_BeforeUpdate(Cancel As Integer)
Dim ctl As Control

On Error GoTo Err_BeforeUpdate
  If TechID >= DMax("PersonID", "TableT") Then
Exit Sub
Else
If Me.Dirty Then
   If MsgBox("Do you want to save?", vbYesNo + vbQuestion, _
           "Save Record") = vbNo Then
      Me.Undo
   End If
End If
End If
Exit_BeforeUpdate:
Exit Sub
Err_BeforeUpdate:
MsgBox Err.Number & " " & Err.Description
Resume Exit_BeforeUpdate
End Sub

Thanks a bunch, Adam!

	Sean Sweeney OP @Reply 4 years ago
.. Meant to take out the "TechID" and replace it with "PersonID" but I was all excited that it worked that I forgot. I actually never worked with Dmax before - so that's such an easy/brilliant solution.

	Adam Schwanz @Reply 4 years ago
Glad it worked :).

This thread is now CLOSED. If you wish to comment, start a NEW discussion in Access Forum.

Next Unseen

New Feature: Comment Live View