Bonjour,
Je dois faire une bibliothèque avec Access 2003. Cela fait longtemps que je n'ai plus touché à VB !
Pour l'instant j'ai choisi l'option de mettre les images dans la base. La raison principale est de pouvoir envoyer un fichier Access, de la même manière qu'un document Word ou Excel. Ma base de données contient seulement une table, la table des livres. S'il n'y avait pas cette histoire d'images, cela aurait pu être un fichier Excel ! Il devrait y avoir une cinquantaine d'enregistrement, et ne pas « grandir » rapidement.
Lorsque je crée un formulaire en utilisant le « Wizard », tout marche bien, mes images s'affichent correctement. L'objet de mon formulaire est un « Bound Object Frame »
Lorsque je crée mon propre formulaire, j'ai une erreur lors de l'affichage des images, alors ques les autres champs s'affichent sans problèmes. Le message d'erreur est :
Mon objet du formulaire est un Unbound Object FrameRun-time error '-2147352567 (80020009):
You can't assign a value to this object
OLE Class: Paint (mes images sont des bmp)
Display type: Content
Update Options: Automatic
OLE Type: Embedded
OLE Type Allowed: Either
Class: Paint-Picture
Et voici le code associé:
Si quelqu'un a une piste, merci.
Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11
12
13 Private Sub Command33_Click() Dim db As DAO.Database Dim rs As DAO.Recordset Dim strSQL As String Set db = DBEngine(0)(0) strSQL = "Select * from book where ID=1" Set rs = db.OpenRecordset(strSQL) AuthorBox = rs!Author CoverPageBox = rs!CoverPage End Sub
Alexandre
Partager