What is wrong with my DLookup?

[BRV]

I've been working hard to get this straight. I've tried it a bunch of different ways. Please help!

I have a report based on the table (Inventory). In the report I have an empty image placeholder (img.Logo). This table also contains a field (Make).
In another table (tblLogos), I have 2 fields (Manufacturer) & (txtPath).
(Make) & (Manufacturer) are related. In my form, the rowsource for (Make) is a query from (Manufacturer) in the (tblLogos). (I'm not sure if any of this is related to the problem)

In the Report OnLoad Event, I'm attempting to use Dlookup to compare the Manufacturer to the Make, Find the record in which they match, and return the string - which is a file path to the image to the .Picture property of the imgLogo placeholder. In all the different ways I've tried, I've seen many different errors, but currently:
Run-time error '2428':
You entered an invalid argument in a domain aggregate function.

'Load logo image based on make selected in current record
Dim logoPath As String
logoPath = DLookup("txtPath", tblLogos, "[Manufacturer] = & [Inventory]![Make]")
imgLogo.Picture = logo_path

Also, when in debug mode (which I know little about), if I mouse over "tblLogos" in the code, it brings up "tblLogos=Empty" in the pointer tips.

[BRV]

I think I fixed some messed up syntax. This is what I have now:

Private Sub Report_Load()
'Load logo image based on make selected in current record
Dim logoPath As Variant
logoPath = DLookup("txtPath", "tblLogos", "Manufacturer" = "Inventory.Make")
imgLogo.Picture = logoPath
End Sub

Better? I Don't know. Now I'm getting "invalid use of Null" at the imgLogo.Picture = logoPath

I'll be looking forward to your responses!

[CraigDolphin]

if the data in the Manufacturer and Make fiels are numeric, then you would use:
logoPath = DLookup("txtPath", "tblLogos", "[Manufacturer] =" & [Make])
if they are text strings then you'd use:
logoPath = DLookup("txtPath", "tblLogos", "[Manufacturer] ='" & [Make] & "'")

[boblarson]

Just change to have an alternate path for a default image which shows if there is no actual image available.

Private Sub Report_Load() 
'Load logo image based on make selected in current record 
Dim logoPath As String
 
Const AltDefault As String = "C:\WhateverPathYouHaveAlternateAt.jpg"
 
logoPath = Nz(DLookup("txtPath", "tblLogos", "Manufacturer = " & Chr(34) & Inventory.Make & Chr(34)), AltDefault)
imgLogo.Picture = logoPath 
End Sub

[orange]

Try
DLookup("txtPath", "tblLogos", "Manufacturer = '" & Inventory.Make & "'")


Oops I see others have posted while I was typing.....

[BRV]

Ok, I've tried this:

if the data in the Manufacturer and Make fiels are numeric, then you would use:
logoPath = DLookup("txtPath", "tblLogos", "[Manufacturer] =" & [Make])
if they are text strings then you'd use:
logoPath = DLookup("txtPath", "tblLogos", "[Manufacturer] ='" & [Make] & "'")

And this:

Try
DLookup("txtPath", "tblLogos", "Manufacturer = '" & Inventory.Make & "'")


Oops I see others have posted while I was typing.....

Neither works.

Just change to have an alternate path for a default image which shows if there is no actual image available.

Private Sub Report_Load() 
'Load logo image based on make selected in current record 
Dim logoPath As String
 
Const AltDefault As String = "C:\WhateverPathYouHaveAlternateAt.jpg"
 
logoPath = Nz(DLookup("txtPath", "tblLogos", "Manufacturer = " & Chr(34) & Inventory.Make & Chr(34)), AltDefault)
imgLogo.Picture = logoPath 
End Sub

Having an alt image doesn't really do me any good in this particular situation. The logos must match the make/manufacturer or the report is worthless.

I'm concerned that there's something in the "structure" of this db that I did wrong. I'm also wondering if there is a better function to find the right record.

Any other ideas?

[BRV]

Ok. I got it now.

The problem was that the "Make" Field was not on the report. I was having trouble calling it from the table. The simplest solution for me was simply to add the field and set the visible property to no.

It works perfectly now.

I cleaned it up and added a msgbox for if it doesn't return a path:

Private Sub Report_Load()
Dim logoPath As String
'Load logo image based on make selected in current record
logoPath = Nz(DLookup("txtPath", "tblLogos", "[Manufacturer] ='" & [Make] & "'"))
If LenB(logoPath) <> 0 Then
imgLogo.Picture = logoPath
Else
MsgBox "There is no logo set up for this manufacturer. Check the Make or set up a logo", vbExclamation + vbOKOnly, "Missing Logo Image"
End If
logoPath = vbNullString
End Sub

Thank you all for your help!

[boblarson]

Having an alt image doesn't really do me any good in this particular situation. The logos must match the make/manufacturer or the report is worthless.

Just an FYI -

If you are opening only ONE manufacturer report at a time then it is no issue. But if you are opening a report that has several together and you wanted to have their logo on their page, and there wasn't one available for one of them, then in my experience it ends up showing the last assigned one instead. Having a default image (1 pixel of white) is a good way to avoid that.

[BRV]

Just an FYI -

If you are opening only ONE manufacturer report at a time then it is no issue. But if you are opening a report that has several together and you wanted to have their logo on their page, and there wasn't one available for one of them, then in my experience it ends up showing the last assigned one instead. Having a default image (1 pixel of white) is a good way to avoid that.

Hey Bob,
I see what you mean. In this instance, the report will be for a single record, so I should be fine, but what you say makes sense.

Thanks for your help!