Hi,

I'm new to using modules so I don't know how to fix what I'm doing wrong. Basically, I want a Yes/No Message box to run on exit from a required field. I have five of these fields, so I'd rather not have to copy/paste the same stuff five times but rather call the same code from a module. I'd like to assign names in the OnExit sub then just call the module. Regular hardcoding works just fine, it's just when I'm trying to assign aliases that thing stop working, specifically I get a "Argument not optional" error at the line in red below. I know this is wrong, but how should it be coded? And can I even do this this way?

Also, any good online reference for beginner module-users would be much appreciated. Thanks!


On Exit sub
Private Sub StudyID_Exit(Cancel As Integer)

Dim stDocName As String
stDocName = "StudyID"

Dim stExit As Integer
stExit = StudyID_Exit

Call Clear(Me)

End Sub

module
Public Sub Clear(objform As Form)

Dim stDocName As String
Dim stExit As Integer

If IsNull(objform.stDocName) Or objform.stDocName = "" Then
stExit = MsgBox("A required field is missing. You need to fill in the field or you will lose the record. Do you want to keep this record?" _
     , vbYesNo, "Stop")
  If stExit = vbYes Then
         DoCmd.CancelEvent
  ElseIf stExit = vbNo Then
       DoCmd.DoMenuItem acFormBar, acEditMenu, 8, , acMenuVer70
       DoCmd.DoMenuItem acFormBar, acEditMenu, 6, , acMenuVer70
       If SelTop = 1 Then
            DoCmd.GoToRecord , , acNext
            StudyID.SetFocus
       Else
            DoCmd.GoToRecord , , acPrevious
            StudyID.SetFocus
       End If


End If
End If
End Sub

First of all, I don't see any line in red! Keep in mind that most of the time your messages will be viewed as just plain text.

You really need to brush up on the idea of variable scope. Any of the beginning Access VBA books by Wrox should be quite useful.

Without getting too heavily into your code I would suspect that it has a problem with the line:

stExit = StudyID_Exit (the red one?)

It probably thinks that you are calling this routine without the parameter (and as a function!).

-Phil-

Thanks, that was the line in red, actually.

And I have been poring over the Wrox Beginning Access VBA book -- I wouldn't have written a question to a forum if I'd found my answer there. But I seem to have found a way around it without having to fiddle with a module, so nevermind. Thanks!