How give user an opportunity to exit a form

I have a form with one required field (in the table setup).  And I have the following code in the onclose event of the form.  But I want to give the user the opportunity to exit the form with no data entry if they want to do so.  Here is my code so far:

Private Sub Form_Close()

    If Nz(Me.txtCompanyName, "") = "" Then
        MsgBox "You must enter a company name!!!"
    Exit Sub
    End If

End Sub

How can I present them with a message box that will either let them stay in the form but return the focus to the txtCompanyName field, OR, let them leave the form with no data entry?
SteveL13Asked:
Who is Participating?
 
Rey Obrero (Capricorn1)Connect With a Mentor Commented:
try using the unload event of the form instead of the close event

Private Sub Form_Unload(Cancel As Integer)
    If Nz(Me.txtCompanyName, "") = "" Then
        If (MsgBox("You must enter a company name!!!" & vbCrLf & "Do you want to continue?", vbYesNo)) = vbYes Then
               Cancel = True
               Me.txtCompanyName.SetFocus
         Else
               Exit Sub
          End If
    End If
End Sub
0
Question has a verified solution.

Are you are experiencing a similar issue? Get a personalized answer when you ask a related question.

Have a better answer? Share it in a comment.

All Courses

From novice to tech pro — start learning today.