C
Cougar
Guest
Bonjour à tous,
Lorsque je clique sur mon combobox, ma liste n'est pas là ?
Où se trouve mon erreur :
Private Sub CboNuméroPièce_Change()
ListNuméroPièce.RowSource = ('données!Pièce')
Photo = Application.GetOpenFilename('Fichiers gif ou jpg,*.gif;*.jpg')
If Photo = False Then Exit Sub
ImgPhoto.Picture = LoadPicture(Photo)
ImgPhoto.Visible = True
CmdChemin.Visible = False
End Sub
Merci de votre aide.
Lorsque je clique sur mon combobox, ma liste n'est pas là ?
Où se trouve mon erreur :
Private Sub CboNuméroPièce_Change()
ListNuméroPièce.RowSource = ('données!Pièce')
Photo = Application.GetOpenFilename('Fichiers gif ou jpg,*.gif;*.jpg')
If Photo = False Then Exit Sub
ImgPhoto.Picture = LoadPicture(Photo)
ImgPhoto.Visible = True
CmdChemin.Visible = False
End Sub
Merci de votre aide.