(or does it not matter) ?
Code:
Private Sub Form_Open(Cancel As Integer)
With Me
.cboGoToMfr.Visible = True
.lblGoToMfr.Visible = True
.cmdDelete.Visible = True
.cmdNewRecord.Visible = True
If Not IsNull(Me.OpenArgs) Then
.cboGoToMfr.Visible = False
.lblGoToMfr.Visible = False
.cmdDelete.Visible = False
.cmdNewRecord.Visible = False
With .fsubManufacturer_info_entry
' <...>
End With
End If
End With
End Sub
-or-
Code:
Private Sub Form_Open(Cancel As Integer)
With Me
If Not IsNull(Me.OpenArgs) Then
.cboGoToMfr.Visible = False
.lblGoToMfr.Visible = False
.cmdDelete.Visible = False
.cmdNewRecord.Visible = False
With .fsubManufacturer_info_entry
' <...>
End With
Else
.cboGoToMfr.Visible = True
.lblGoToMfr.Visible = True
.cmdDelete.Visible = True
.cmdNewRecord.Visible = True
End If
End With
End Sub
-or-
Code:
Private Sub Form_Open(Cancel As Integer)
With Me
.cboGoToMfr.Visible = IsNull(Me.OpenArgs)
.lblGoToMfr.Visible = IsNull(Me.OpenArgs)
.cmdDelete.Visible = IsNull(Me.OpenArgs)
.cmdNewRecord.Visible = IsNull(Me.OpenArgs)
If Not IsNull(Me.OpenArgs) Then
With .fsubManufacturer_info_entry
' <...>
End With
End If
End With
End Sub
...as always, with appreciation in advance,
m.