probleme ds connection dao

la cnx dao a bien fonctionne seule.
mais quand il existait une cnx data environnement dans le meme form
(ou projet )elle ne fonctionne pas .
l err ds la ligne blue 'type incompatible'

j ai ajoute la referance ms dao 3.6 a cote des
ms data envr,report ,formatting,binding et ms activex data...

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19

Public db1 As Database Public rsFilm As Recordset .......... Private Sub Command2_Click() Set db1 = DBEngine.OpenDatabase(App.Path & "\db22.mdb") Set rsFilm = db1.OpenRecordset("intmed") With rsFilm .MoveLast .AddNew !nomfr = List2 .Update .Close End With db1.Close End Sub

---

salut,
ton "intmed" c'est quoi ? :P

slt
intmed est un tableau access de db22
j indique que le meme code a fonctionne seul

j hesite si l emplacement des declarations database et recordset intervient?

Si le probleme est avec la cnx, alors tu doit nous donner la partie du code qui utilise cnx.

voici le code de cnx data envr ds form load
le projet contient seul form +concepteur data envr+data report(denver)

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18

.............................. Private Sub Form_Load() DataEnvironment1.Connections("Connection1").Open DataEnvironment1.Recordsets("Command3").Open   With DataEnvironment1.Recordsets("Command3") .MoveFirst   Do While Not .EOF   If Not .EOF Then List2.AddItem (!nomfr) .MoveNext End If Loop End With   End Sub

---

j ai trouve la solution enfin
merci pour ceux qui m ont envoye des suggestions
j ai l intension que je pose et je repond seul aux questions
et j' etais decu envers les non reponses :( :(

Désolé, je n'avais pas du voir ce post à l'époque, sinon, je t'aurais dit tout de suite que ça, c'est pas bon :

Code:

---

1 2 3 4 5

Public db1 As Database Public rsFilm As Recordset Set db1 = DBEngine.OpenDatabase(App.Path & "\db22.mdb") Set rsFilm = db1.OpenRecordset("intmed")

---

Un Recordset non type est par défaut un recordset ADO, et non DAO d'ou :

Code:

---

1 2	Public db1 As DAO.Database Public rsFilm As DAO.Recordset

---

et là, ca va tout de suite mieux ;)