help with IF and AND statments

[bigmac]

hi all, i am new to vba and need some help please ,
i have the folloing code
Private Sub Report_Load()
If lngMyEmpID = 1 Then
Me.pm1.Visible = True
this works ok but what i would like after checking lngMyEmpID to see if its true i also want to be able to look at another cell [date1] and compare the date in that cell with todays date and if it is older than todays date only then will Me.pm1.Visible = True
can you help please

 

[pr2-eugin]

So add another If..

Private Sub Report_Load()
    If lngMyEmpID = 1 Then
        If Me.date1 > Date() Then
            Me.pm1.Visible = True
        End If
    End If
End Sub

EDIT: Reading the topic again.. You can also do..

Private Sub Report_Load()
    If lngMyEmpID = 1 And Me.date1 > Date() Then
            Me.pm1.Visible = True
    End If
End Sub

 

[Pat Hartman]

Depending on where you are doing this, you may have to account for the else case as well.

Private Sub Report_Load()
    If lngMyEmpID = 1 And Me.date1 > Date() Then
            Me.pm1.Visible = True
    Else
        Me.pm1.Visible = False
    End If
End Sub

 

[Mihail]

Or, a bit condensed:

 Me.pm1.Visible = ( lngMyEmpID = 1 And Me.date1 > Date() )