Fill Fields Before Reports (2 Viewers)

Cronk · Jul 11, 2019

The code in #12 has issues. The line Cancel = true is not appropriate in a button Click event. Also, the form will be opened anyway as there is nothing to skip it should the control be blank.

Modified code

Code:

Private Sub PreviewTearDown_Click()
    If Me.Dirty Then Me.Dirty = False
    If IsNull(Me![AFRNumber]) Then
 
       ' Alert the user.
       MsgBox "You must enter an AFR Number."
 
      ' Cancel the update.
      '--Cancel = True
      Me.AFRNumber.SetFocus
      exit sub
    End If
    
    Dim strDocName As String
    Dim strWhere As String
    strDocName = "Tear Down"
    strWhere = "AFRsID=" & Me!AFRsID
    DoCmd.OpenReport strDocName, acPreview, , strWhere
End Sub

Fill Fields Before Reports (2 Viewers)

Cronk

Registered User.

Similar threads

Users who are viewing this thread