DLookup for Yes/No field

[Lockrin]

Hello all, I would like to do a DLookup to reference a Yes/No field in my VBA code. My problem is that I don't know what to reference it as. I want to use something like



Dim iBeamNumber As Integer
Dim stWhere As String '-- Criteria for DLookup
Dim stYesNo As "I don't know what to put here"

iBeamNumber = Me.BeamNumber

stWhere = "[qryBeamNumberNeeded].[BeamNumber] = " & "'" & iBeamNumber & "'"
stYesNo = DLookup("[EmailNeeded]", "qryBeamNumberNeeded", stWhere)


The rest of my code will be used to send an email based on the value of the Yes/No field. I also need to know what value it will return (Usually it is "-1" for true and "0" for false)

Thanks in advance

[pbaldy]

The variable data type equivalent of Yes/No is Boolean. Be careful though, since if the DLookup() can't find a value, it will return Null, and the only type that can handle Null is Variant. You could get around that by wrapping the DLookup() in the Nz() function as well.

[Lockrin]

That is giving me error 3464 "Data type mismatch in criteria expression."
Here is exactly what I have



Dim iShipment As Integer '-- Reference to tblStopCardDeviations
Dim stWhere As String '-- Criteria for DLookup
Dim stStamp As Boolean

iShipment = Me.Shipment_Number

stWhere = "[qryShipmentRequirements].[Shipment Number] = " & "'" & iShipment & "'"
stStamp = Nz(DLookup("[SDI]", "qryShipmentRequirements", stWhere))

If stStamp = "-1" Then
Me.SDIStampLabel1.Visible = False
Else
Me.SDIStampLabel1.Visible = False
End If

[pbaldy]

If the data type of [Shipment Number] is numeric, you don't want the single quotes around the value:

DLookup Usage Samples