Turn Before Update Into a Public Function - Microsoft Access Forum


	Back to Access Forum Comments List

Upload Images @Reply Bookmark Link Email Next Unseen

Turn Before Update Into a Public Function

Monica Jones

22 hours ago

Hi all,

I have a form that I want users to be very careful about editing. I built the following to test out (yes that's Richard's AreYouSure function) (Side quest, how do y'all do the Detail with the down arrow for code?):

Private Sub AHPPH_ACT_FRQ_BeforeUpdate(Cancel As Integer)
    If Not IsNull(Screen.ActiveControl.Name) Then
        If AreYouSure() Then
            'User procedes
            Exit Sub
        Else
            'User stays put
            Cancel = True
      End If
    End If
End Sub

This works just fine. I realized I could move this to the GlobalMod and not copy/paste all over the place. I changed Exit Sub to Exit Function, and it no longer stops me from doing whatever. I figure this has to be because "Cancel = True" only works in a BeforeUpdate setting. How do I translate for a GlobalMod situation?

TIA,
Monica

Donald Blackwell @Reply

21 hours ago

Monica
I don't think it works to move the actual BeforeUpdate event into the global mod and have it work because the globalmod isn't listening for the events of the form, only if a sub or function that is there is called does it activate.

However, you can make a function in your global mod that does whatever you're trying to do and return a boolean to the beforeupdate event in a form which will then do what you want. For instance

Form:
Private Sub AHPPH_ACT_FRQ_BeforeUpdate(Cancel As Integer)

   If OKtoContinue() Then Exit Sub ' Value Entered, continue

   ' The nothing was entered
   Cancel = True

End Sub

GlobalMod:
Public Function OKtoContinue() as Boolean

   OKtoContinue= False

   If Not IsNull(Screen.ActiveControl.Name) Then
      If AreYouSure() Then OKtoContinue= True
   end if

End Function

Mike Wolf has a good article on this type of functioning called Guard Clauses

Next Unseen

New Feature: Comment Live View