Hi all,
I am trying to merge the below 2 codes, somehow not working, is my continuation correct?
my try
I am trying to merge the below 2 codes, somehow not working, is my continuation correct?
Private Sub Form_Current()
If Forms![Menu]![StatusRegFilter]![OpenCSOrdersFromMenuRegistration].Form.RecordsetClone.RecordCount = 0 Then
Forms![Menu]![StatusRegFilter]![OpenCSOrdersFromMenuRegistration].Form.Visible = False
Else
Forms![Menu]![StatusRegFilter]![OpenCSOrdersFromMenuRegistration].Form.Visible = True
End If
'If IsNull(Me.Registration) Then
'Me.OpenCSOrdersFromMenuRegistration.Visible = False
'Me.StatusBtn.Visible = False
'Else
'Me.OpenCSOrdersFromMenuRegistration.Visible = True
'Me.StatusBtn.Visible = True
'End If
my try
If Forms![Menu]![StatusRegFilter]![OpenCSOrdersFromMenuRegistration].Form.RecordsetClone.RecordCount = 0 And IsNull(Me.Registration) Then
Forms![Menu]![StatusRegFilter]![OpenCSOrdersFromMenuRegistration].Form.Visible = False
Me.StatusBtn.Visible = False
Else
Forms![Menu]![StatusRegFilter]![OpenCSOrdersFromMenuRegistration].Form.Visible = True
Me.StatusBtn.Visible = True
End If