Using dlookup twice

[John]

To prevent the null-error from showing up when dlookup returns false I
created the code beneath which doesn't seem very elegant. How can I code
this without having to use the dlookup twice?

If Not IsNull(DLookup("[Bestandsnaam]", "tbSoortVerzoek", "[Soort_verzoek] =
""" & Forms![frmVerzoek]!Soort_verzoek & """")) Then
strForm = DLookup("[Bestandsnaam]", "tbSoortVerzoek",
"[Soort_verzoek] = """ & Forms![frmVerzoek]!Soort_verzoek & """")
Else
MsgBox ("There is no form available")
Exit Sub
End If

Thanks,
john

[Rick Brandt]

John wrote:

To prevent the null-error from showing up when dlookup returns false I
created the code beneath which doesn't seem very elegant. How can I
code this without having to use the dlookup twice?

If Not IsNull(DLookup("[Bestandsnaam]", "tbSoortVerzoek",
"[Soort_verzoek] = """ & Forms![frmVerzoek]!Soort_verzoek & """"))
Then strForm = DLookup("[Bestandsnaam]", "tbSoortVerzoek",
"[Soort_verzoek] = """ & Forms![frmVerzoek]!Soort_verzoek & """")
Else
MsgBox ("There is no form available")
Exit Sub
End If

Dim VariableName as Variant
VariableName = DLookup(...

If Not IsNull(VariableName ) Then
strForm = VariableName
....

--
Rick Brandt, Microsoft Access MVP
Email (as appropriate) to...
RBrandt at Hunter dot com

[John]

Got it. Thanks.
john

"Rick Brandt" <ri*********@hotmail.comschreef in bericht
news:xv*****************@newssvr19.news.prodigy.ne t...

John wrote:

>To prevent the null-error from showing up when dlookup returns false I
created the code beneath which doesn't seem very elegant. How can I
code this without having to use the dlookup twice?

If Not IsNull(DLookup("[Bestandsnaam]", "tbSoortVerzoek",
"[Soort_verzoek] = """ & Forms![frmVerzoek]!Soort_verzoek & """"))
Then strForm = DLookup("[Bestandsnaam]", "tbSoortVerzoek",
"[Soort_verzoek] = """ & Forms![frmVerzoek]!Soort_verzoek & """")
Else
MsgBox ("There is no form available")
Exit Sub
End If

Dim VariableName as Variant
VariableName = DLookup(...

If Not IsNull(VariableName ) Then
strForm = VariableName
...

--
Rick Brandt, Microsoft Access MVP
Email (as appropriate) to...
RBrandt at Hunter dot com