Discussion :

[halhali07]

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

[vincent magnin]

salut,
ton "intmed" c'est quoi ?

[halhali07]

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?

[karami]

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

[halhali07]

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

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
..............................
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

[halhali07]

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