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 :
Run-time error '-2147352567 (80020009):
You can't assign a value to this object
Mon objet du formulaire est un Unbound Object Frame
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é:
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
Si quelqu'un a une piste, merci.

Alexandre