Why Won't this work?

[Ed_Farias]

OK, I have this code, pretty straight forward I thought.

Dim TempImage as String
TempImage = rsName.Fields("Image").Value
If TempImage = "" Then
picComic.Picture = LoadPicture(App.Path & "\blank.gif")
Else
picComic.Picture = LoadPicture(rsName.Fields("Image").Value)
End If

In other words I have a MSaccess Database with an Image field. I want the code to load a standard image when nothing is in the image field. The other half of the statement works when there something in the field. Or in I add like "none" to the image field, and change the code from

If TempImage = "" TO If TempImage = "none"

Then it works fine.

Any suggestions are helpful. Thanks

Ed

[makai]

[code]
If rsName.Fields("Image").FieldSize > 20 Then
Set picComic.Picture = LoadPicture(App.Path & "\blank.gif")
Else
SetpicComic.Picture = LoadPicture(rsName.Fields("Image").Value)
End If
[code]

http://pages.about.com/vbmakai/dao5.htm

[Ed_Farias]

Makai,
Thank for the attempt, but that does not work either. That causes it to do neither of the statements.



Anyone else have an idea? Please

[Bigley]

I think what you need to do here is change the second line to

TempImage = "" & rsName.Fields("Image").Value

and optionally, for efficiency change the 3rd line to
If TempImage = vbnullstring Then

I am guessing somewhat though because you haven't actually said what happens when there is nothing in the field. If I am wrong give some more detail and sure we'll sort it out

[Ed_Farias]

That worked perfect, thank you very much