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 : Sélectionner tout - Visualiser dans une fenêtre à part
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
Partager