Inserting Pictures into Command Button from a Table

[howser99]

Hi All
Ive got an issue with inserting images into a command button from a table that I have embedded a OLE object into. The following is the code Im am trying to use;

If bolMenuVisible Then
                    Me("Option" & rst![ItemNumber]).Visible = True
   '                 Me("Option" & rst![ItemNumber]).Picture = rst![Icon]            ' icon
          '          Me("Option" & rst![ItemNumber]).PictureData = cmd1.PictureData  ' icon
                    Me("Option" & rst![ItemNumber]).PictureData = DLookup("IImage", "tblImage") ' icon
                    Me("OptionLabel" & rst![ItemNumber]).Visible = True
                    Me("OptionLabel" & rst![ItemNumber]).Caption = rst![ItemText]
 
            Else
                If (rst![ItemNumber] < 7) Or (rst![ItemNumber] > 9) Then
  '                  Me("Option" & rst![ItemNumber]).Picture = rst![Icon]            ' icon
   '                 Me("Option" & rst![ItemNumber]).PictureData = cmd1.PictureData  ' icon
                    Me("Option" & rst![ItemNumber]).PictureData = DLookup("IImage", "tblImage") ' icon
                   Me("Option" & rst![ItemNumber]).Visible = True
                    Me("OptionLabel" & rst![ItemNumber]).Visible = True
                    Me("OptionLabel" & rst![ItemNumber]).Caption = rst![ItemText]
                End If
            End If
 

However, this returns an error that the image is not a device independant bitmap (which it is). Any ideas?

[MMcCarthy]

Try this ...

If bolMenuVisible Then
  Me("Option" & rst![ItemNumber]).Visible = True
  Me("Option" & rst![ItemNumber]).Picture = "'" & rst![Icon] & "'"
  Me("OptionLabel" & rst![ItemNumber]).Visible = True
  Me("OptionLabel" & rst![ItemNumber]).Caption = "'" & rst![ItemText] & "'"
Else
  If (rst![ItemNumber] < 7) Or (rst![ItemNumber] > 9) Then
    Me("Option" & rst![ItemNumber]).Picture = "'" & rst![Icon] & "'"
    Me("Option" & rst![ItemNumber]).Visible = True
    Me("OptionLabel" & rst![ItemNumber]).Visible = True
    Me("OptionLabel" & rst![ItemNumber]).Caption = "'" & rst![ItemText] & "'"
  End If
End If
 

Mary

[howser99]

Try this ...

If bolMenuVisible Then
  Me("Option" & rst![ItemNumber]).Visible = True
  Me("Option" & rst![ItemNumber]).Picture = "'" & rst![Icon] & "'"
  Me("OptionLabel" & rst![ItemNumber]).Visible = True
  Me("OptionLabel" & rst![ItemNumber]).Caption = "'" & rst![ItemText] & "'"
Else
  If (rst![ItemNumber] < 7) Or (rst![ItemNumber] > 9) Then
    Me("Option" & rst![ItemNumber]).Picture = "'" & rst![Icon] & "'"
    Me("Option" & rst![ItemNumber]).Visible = True
    Me("OptionLabel" & rst![ItemNumber]).Visible = True
    Me("OptionLabel" & rst![ItemNumber]).Caption = "'" & rst![ItemText] & "'"
  End If
End If
 

Mary

Hi Mary
Thanks for that. However, it doesnt seem to do want I want. Im trying to lookup an embedded OLE value from tblImage, and place it in a command button.

Me("Option" & rst![ItemNumber]).PictureData = DLookup("IImage", "tblImage")

When this is executed, it returns an error about incorrect picture format.

Thanks

[MMcCarthy]

Hi Mary
Thanks for that. However, it doesnt seem to do want I want. Im trying to lookup an embedded OLE value from tblImage, and place it in a command button.

Me("Option" & rst![ItemNumber]).PictureData = DLookup("IImage", "tblImage")

When this is executed, it returns an error about incorrect picture format.

Thanks

How are you identifying which image record to return. There is normally a third criteria statement on the DLookup function?

Can you give me an example of the embedded image file (i.e.) the value stored in the record.

Mary

[howser99]

How are you identifying which image record to return. There is normally a third criteria statement on the DLookup function?

Can you give me an example of the embedded image file (i.e.) the value stored in the record.

Mary

Even with the criteria set I still receive the same error (ie:)


Me("Option" & rst![ItemNumber]).PictureData = DLookup("IImage", "tblImage", "[IID] = 1")

The value stored in tblIImage is a .bmp file that I embedded in the table. The data type is OLE object, and I embedded simply by clicking insert new object.

[MMcCarthy]

Even with the criteria set I still receive the same error (ie:)


Me("Option" & rst![ItemNumber]).PictureData = DLookup("IImage", "tblImage", "[IID] = 1")

The value stored in tblIImage is a .bmp file that I embedded in the table. The data type is OLE object, and I embedded simply by clicking insert new object.

Picture data is still looking for a string value. Try ...

 Me("Option" & rst![ItemNumber]).PictureData = "'" & DLookup("IImage", "tblImage", "[IID] = 1") & "'"

Failing this, open the bitmap in some image editing software and run save as to save the picture as a Windows Bitmap rather than any other type of bitmap just in case.

Change the OLE object from embedded to linked and see if that makes any difference.

The only other alternative (assuming the command button just can't reference an OLE object) is to create a bound OLE object on the form and change it to look like a command button. You should still be able to code a click event on it.

Mary