-
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
-
[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
-
No Worky
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
-
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
-
That did it
That worked perfect, thank you very much