AndAlso equivalent in VBA?

[Heatshiver]

I have a piece of code that requires a logical operator like AndAlso in VB.net.


I can circumvent this by creating another form, but I am trying to reuse forms where possible as there will be many more to add later.


The code is a simple If statement with the first line involving both a DLookup for date validation and a second part checking if a field is locked (I've also tried enabled).




I tried using the And operator, and it gives me an error to the DLookup part (and rightfully so).


I just need the code to check to make sure both parts of the statement are true, and if not, to proceed with the rest of the code statements.

[Robeen]

Could you post the code here for us to see?

[Heatshiver]

If DLookup("Days", "tblDailyReport", "[Days] = #" & [End Date] & "#") Then
'Do Nothing
Else
MsgBox "No report with that End Date has been filled out."
Exit Sub
End If

At the moment I have duplicated the form and taken out this piece. This does work, but I would still like to figure out a way to skip over this somehow.

[Robeen]

The code is a simple If statement with the first line involving both a DLookup for date validation and a second part checking if a field is locked (I've also tried enabled).

If I understand you correctly, you want:
If
[Days] = [EndDate]
And
Your_TextBox is Locked
Then
Do Something?
Else
Exit Sub

Is that correct?

If so . . .
Will something like this work for you?

If DLookup("Days", "tblDailyReport", "[Days] = #" & [End Date] & "#") Then
    If Me.TextBoxName.Locked Then
          'Do Something
    End If
Else
MsgBox "No report with that End Date has been filled out."
Exit Sub
End If

[Heatshiver]

I tried that, but still get an error. I think the DLookup still expects an answer no matter what. I have to try to skip over it somehow.

I am going to try something like this tomorrow and see what results I get:

Dim b As Boolean
If Me.[End Date].Locked = False Then b = (DCount("*", "tblDailyReport", "[Days] = #" & Me![End Date] & "#") > 0)
If b Then
'Do Nothing
Else
MsgBox "No report with that Start Date has been filled out."
Exit Sub
End If