Bonjours,
voila je realise un programme de facturier.
J'ai une base de données access avec 3 tables : client, facture, et produit.
Dans une datalist j'affiche toute la liste des clients de ma base de données.
Ce que je voudrais faire c'est afficher dans une autre datalist toutes les factures correspondants au client que j'ai cliquer dans la premiere liste.
Voila le code que j'ia fais pour le moment.
Je pense que ca devrait marcher normalement mais j'ia un message d'erreur :Dim str As String
Dim bd As Database
Dim tbl As Recordset
str = "SELECT Document.Date FROM Document, CLient WHERE Client.Nom = " + txtNom.text + " AND Document.Id_client = Client.Id client"
Set bd = OpenDatabase(".\bd1.mdb")
Set tbl = bd.OpenRecordset(str)
While Not tbl.EOF
List1.AddItem tbl.Fields("Date")
tbl.MoveNext
Wend
tbl.Close
"Erreur 3343, format de base de données non reconnu"
Aves la ligne "OpenDatabase(".\bd1.mdb")" surlignée.
Je ne sais vraiment pas d'ou ca peut venir donc si quelqu'un pourrait m'aider, merci.
Partager