runtime error 3024

salut;
j'ai ce probleme avec ce code c'est que j'ai cette erreur
"runtime error 3024 couldn't find file 't.mdb'"
et je ne sais pas pourquoi

Code:

---

1 2 3 4 5 6 7 8

Data1.DatabaseName = "t.mdb" Data1.RecordSource = "SELECT DISTINCT a FROM tous WHERE a LIKE '" & a.Text & "*' ORDER BY a asc" Data1.Refresh Combo1.Clear Do While Not Data1.Recordset.EOF Combo1.AddItem Data1.Recordset.Fields(0).Value Data1.Recordset.MoveNext Loop

---

salut, et tu est sur de l'emplacement de ta base de donnée..?

Code:

---

1 2 3

MSgbox "Ma base de donnee : " & dir( "t.mdb") Data1.DatabaseName = "t.mdb"

---

Citation:

---

Envoyé par bbil

salut, et tu est sur de l'emplacement de ta base de donnée..?

Code:

---

1 2 3

MSgbox "Ma base de donnee : " & dir( "t.mdb") Data1.DatabaseName = "t.mdb"

---

---

oui l'emplacement est exacte

Et l'emplacement exact depuis la racine du disque est ?
Question subsidiare, est-ce bien le même que celui de ton éxécurtable ?

Géneralement on utilise

Code:

---

Data1.DatabaseName = App.Path & "\t.mdb""

---

App.Path donnant le chemin de l'exécutable, on est sur, quelque soit son emplacement, de retrouver la base de données. sutout si on a joué avec ChDir, ou modifié le raccourci en donnant un autre nom de répertoire d'exécution.

Citation:

---

Envoyé par bailamos

oui l'emplacement est exacte

---

as tu fait l'essai avec le code dir .... ?