johngalt69austin
Technical User
What am I missing here?
Private Sub CloseForm_Click()
On Error GoTo Err_CloseForm_Click
Dim STCA As String
If Me!STCA Is Null Then
MsgBox "You Did Not Enter A Short Term Corrective Action", , vbCritical
DoCmd.GoToControl Me.STCA
Else
DoCmd.Close acForm, frmEngByNCNo, acSaveYes
End If
Exit_CloseForm_Click:
Exit Sub
Err_CloseForm_Click:
MsgBox Err.Description
Resume Exit_CloseForm_Click
End Sub
Private Sub CloseForm_Click()
On Error GoTo Err_CloseForm_Click
Dim STCA As String
If Me!STCA Is Null Then
MsgBox "You Did Not Enter A Short Term Corrective Action", , vbCritical
DoCmd.GoToControl Me.STCA
Else
DoCmd.Close acForm, frmEngByNCNo, acSaveYes
End If
Exit_CloseForm_Click:
Exit Sub
Err_CloseForm_Click:
MsgBox Err.Description
Resume Exit_CloseForm_Click
End Sub