hey
i get an error when try to add or edit a new product path not fond of a photo.
now i put some code but something is missing in the code
this is the code
tnx for the help
i get an error when try to add or edit a new product path not fond of a photo.
now i put some code but something is missing in the code
this is the code
Code:
Private Sub Cmb4_Click()
Set RS = CN.Execute("SELECT InvID, InvPhoto, InvForCust, InvItem FROM Inventory WHERE InvItem='" & Cmb4.text & "'")
While Not RS.EOF
Txt(0).text = RS!InvItem
Set BttnPhoto.Picture = LoadPicture(RS!InvPhoto)
RS.MoveNext
Wend
Set RS = CN.Execute("SELECT Photo FROM Customers WHERE ID= " & FrmCusts.LsVw.SelectedItem.Tag)
CustPhoto = RS!Photo
If Dir$(RS!Photo) <> "" Then
Set BttnPhoto.Picture = LoadPicture(RS!Photo)
CustPhoto = RS!Photo
Else
MsgBox "photo is missing or removed", vbExclamation
CustPhoto = ""
Set BttnPhoto.Picture = Nothing
End With
End If
End Sub