Interro et Ajout dans BDD access soucis

Re : Interro et Ajout dans BDD access soucis

Bonjour,

le soucis est dans le chemin d'accès, essayez ça, j'ai fait l'essai et ça fonctionne:

ch = ActiveWorkbook.Path
Set cnn = New ADODB.Connection
cnn.Open "DRIVER={Microsoft Access Driver (*.mdb)};DBQ=" & ch & "/" & "Access2000.mdb"

Modif à faire dans Userform4_intitialize et procedure "Choix_change"

Re : Interro et Ajout dans BDD access soucis

Bonjour et merci de ta réponse
je viens d'essayer soit sur ma deuxiéme partition de mon disque principale sur le PC
et aussi sur le disque externe en Usb ça ne fonctionne pas
désolé

Re : Interro et Ajout dans BDD access soucis

La base de donnée est-elle sur le même répertoire que le fichier Excel?

J'avais le bug évoqué avant modif.

Mon test a été fait avec les 2 sur le même répertoire et ça fonctionne quelque soit l'endroit.

Sinon il faut indiquer précisément le répertoire dans lequel se trouve la base de donnée, à la place du "Ch" dans l'exemple donné.

En espérant que ces informations seront utiles,

Cordialement

Re : Interro et Ajout dans BDD access soucis

merci de ton aide mais vraiment comme tu le disait en premier, ça ne fonctionne pas
Quand tu dis, noter le chemin complet,
peut-tu donner un exemple s'il te plait
Merci beaucoup en avance

Re : Interro et Ajout dans BDD access soucis

Bonjour,

Voici un exemple. En "Ch" j'insdique le chemin complet d'accès à la base de donnée.

Ci-dessous les 2 procédures concernées avec le chemin qui correspond à un répertoire local.



Private Sub Choix_Change()
ChDir ActiveWorkbook.Path
Dim rs As ADODB.Recordset

Set cnn = New ADODB.Connection
ch = "P:\Nouveau Dossier compressé\Excel-Access DAO Lire Ecrire Valider via Usf Imp"

cnn.Open "DRIVER={Microsoft Access Driver (*.mdb)};DBQ=" & ch & "/" & "Access2000.mdb"
Sql = "SELECT * FROM Client WHERE nom_client='" & Me.Choix & "'"
Set rs = cnn.Execute(Sql)

Me.Ville = rs!Ville
Me.Salaire = rs!Salaire
Me.TextBox1 = rs!Date
Me.TextBox2 = rs!Code_Postal
Me.TextBox3 = rs!Prenom
rs.Close
cnn.Close
Set rs = Nothing
Set cnn = Nothing
End Sub

Private Sub UserForm_Initialize()
ChDir ActiveWorkbook.Path
Dim rs As ADODB.Recordset
Set cnn = New ADODB.Connection
ch = "P:\Nouveau Dossier compressé\Excel-Access DAO Lire Ecrire Valider via Usf Imp"

cnn.Open "DRIVER={Microsoft Access Driver (*.mdb)};DBQ=" & ch & "/" & "Access2000.mdb"

Set rs = cnn.Execute("SELECT nom_client FROM Client ORDER BY nom_client")
Do While Not rs.EOF
Me.Choix.AddItem rs!Nom_Client
rs.MoveNext
Loop
rs.Close
cnn.Close
Set rs = Nothing
Set cnn = Nothing
End Sub

En espérant que ça t'aidera.

Cordialement

Re : Interro et Ajout dans BDD access soucis

Bonsoir smotty et a tout le forum

Merci , milles fois de ta réponse, j'ai essayé , la ,,,,enfin c'est bon ça fonctionne

A une autre fois peut-être
Bonne soirée