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