CLOSE button warning

[KMEscherich]

Using Access '97

Hi there, am wondering how I can incorporate the code for a CLOSE button and also a warning that some fields are missing data. I have the following, but it seems to be wrong. Can someone please give me some help on this??

In regards to the missing fields code, I have associated this with a button and it works, but I also need this to be associated with the CLOSE button.

Thank you VERY MUCH.

Private Sub Command161_Click()
On Error GoTo Err_Command161_Click
 
    DoCmd.Close
 
Exit_Command161_Click:
    Exit Sub
 
Err_Command161_Click:
    MsgBox Err.DESCRIPTION
    Resume Exit_Command161_Click
 
 
    If Nz(Me.Communicated_Date) = "" Then
    MsgBox "MISSING: Communicated Date on 1st tab."
    End If
 
    If Nz(Me.DescribeInjury) = "" Then
    MsgBox "MISSING: Description of Injury on 2nd tab."
    End If
 
    If Nz(Me.BODY_PART_ID) = "" Then
    MsgBox "MISSING: Selection of Body Part on 2nd tab."
    End If
 
    If Nz(Me.F_MEASURES!DATE_COMPL) = "" Then
    MsgBox "MISSING: Actual Completion Date on 6th tab."
    End If
 
    If Nz(Me.F_MEASURES!FINISHED) = "" Then
    MsgBox "MISSING: Finished with Measure? on 6th tab."
    End If
 
    If Nz(Me.F_SME_INVEST_TEAM!SME_NAME) = "" Then
    MsgBox "MISSING: SME Name on 7th tab."
    End If
 
    If Nz(Me.F_SME_INVEST_TEAM!SME_TITLE) = "" Then
    MsgBox "MISSING: SME Title on 7th tab."
    End If
 
    If Nz(Me.INV_TEAM_REVIEWED) = "" Then
    MsgBox "MISSING: Team reviewed this report? on 7th tab."
    End If
 
End Sub

[JKing]

As a you are full member now I must ask that you please enclose your posted code in [code] tags (See How to Ask a Question)

This makes it easier for our Experts to read and understand it. Failing to do so creates extra work for the moderators, thus wasting resources, otherwise available to answer the members' questions.

Please use [code] tags in future.

MODERATOR.

[MMcCarthy]

You are trapping an error on Close. This will only trigger if for some reason the form won't close. These error have specific number identifiers none of which are being trapped by your code. Change your code as follows:

Private Sub Command161_Click()
On Error GoTo Err_Command161_Click
Dim strMissing As String
 
    If Nz(Me.Communicated_Date) = "" Then
    strMissing = strMissing & "Communicated Date on 1st tab." & Chr(13)
    End If
 
    If Nz(Me.DescribeInjury) = "" Then
    strMissing = strMissing & "Description of Injury on 2nd tab." & Chr(13)
    End If
 
    If Nz(Me.BODY_PART_ID) = "" Then
    strMissing = strMissing & "Selection of Body Part on 2nd tab." & Chr(13)
    End If
 
    If Nz(Me.F_MEASURES!DATE_COMPL) = "" Then
    strMissing = strMissing & "Actual Completion Date on 6th tab." & Chr(13)
    End If
 
    If Nz(Me.F_MEASURES!FINISHED) = "" Then
    strMissing = strMissing & "Finished with Measure? on 6th tab." & Chr(13)
    End If
 
    If Nz(Me.F_SME_INVEST_TEAM!SME_NAME) = "" Then
    strMissing = strMissing & "SME Name on 7th tab." & Chr(13)
    End If
 
    If Nz(Me.F_SME_INVEST_TEAM!SME_TITLE) = "" Then
    strMissing = strMissing & "SME Title on 7th tab." & Chr(13)
    End If
 
    If Nz(Me.INV_TEAM_REVIEWED) = "" Then
    strMissing = strMissing & "Team reviewed this report? on 7th tab." & Chr(13)
    End If
 
    If strMissing <> "" Then
        MsgBox "The following are missing:" & Chr(13) & strMissing
        Exit Sub
    Else
        DoCmd.Close
    End If
 
Exit_Command161_Click:
    Exit Sub
 
Err_Command161_Click:
    MsgBox Err.Description
    Resume Exit_Command161_Click
 
End Sub