Logo GNT
Actualités Tests & Guides Bons Plans
GTA 6 iPhone 17 Copilot Switch 2 Temu ChatGPT Tesla
OVH Cloud OVH Cloud
Entraide Applications Microsoft Office Access treeview

treeview

5 réponses
Avatar
Pascal
bonjour

Un treeview dans un formulaire Access mdb, ne fonctionne plus sous Adp

rien ne se passe

en mode debogage
tout s'arrete à:

Set Db = CurrentDb
(Dim Db As DAO.Database)

La reference est elle mauvaise ? (ms 3.6 DAO object lib)

Merci d'avance

Pascal
Signaler un problème avec ce contenu

5 réponses

Supprimer
Cette action est irreversible, confirmez la suppression du commentaire ?
Signaler le commentaire

Veuillez sélectionner un problème

Nudité
Violence
Harcèlement
Fraude
Vente illégale
Discours haineux
Terrorisme
Autre
Avatar
J-Pierre
Salut Pascal,

Essaie (chez moi, ça marche...)

Set Db = Application.currentDb()

J-Pierre

"Pascal" a écrit dans le message de news:404a03ce$0$313$
bonjour

Un treeview dans un formulaire Access mdb, ne fonctionne plus sous Adp

rien ne se passe

en mode debogage
tout s'arrete à:

Set Db = CurrentDb
(Dim Db As DAO.Database)

La reference est elle mauvaise ? (ms 3.6 DAO object lib)

Merci d'avance

Pascal




Avatar
Pascal
voici le debut. en fait cela bloque a : Set Rs = Db.OpenRecordset(StrSql)
si bien que meme le [stop] derriere n'est pas vu.



Private Sub Init_Menu()
'On Error Resume Next

Set Db = Application.CurrentDb()

Set Menu = Me.TreeView
Dim compteur_nodx_org As Integer
Dim I As Integer

With Menu.Nodes

'*********** Niveau 1 ********************
StrSql = "SELECT Groupe FROM Ingénieur"

Set Rs = Db.OpenRecordset(StrSql)
Stop





"J-Pierre" a écrit dans le message
news:
Salut Pascal,

Essaie (chez moi, ça marche...)

Set Db = Application.currentDb()

J-Pierre

"Pascal" a écrit dans le message de
news:404a03ce$0$313$

bonjour

Un treeview dans un formulaire Access mdb, ne fonctionne plus sous Adp

rien ne se passe

en mode debogage
tout s'arrete à:

Set Db = CurrentDb
(Dim Db As DAO.Database)

La reference est elle mauvaise ? (ms 3.6 DAO object lib)

Merci d'avance

Pascal








Avatar
J-Pierre
Ca coince car tu dois travailler avec ADO, voilà un exemple de code, il faut rajouter la référence
Microsoft ActiveX Data Objects x.x Library

Dim rst As New ADODB.Recordset
Dim cnn As New ADODB.Connection

Set cnn = CurrentProject.Connection

strgSQL = "SELECT blablabla "
rst.Open strgSQL, cnn, adOpenForwardOnly, adLockReadOnly

If rst.BOF And rst.EOF Then ' aucune données
rst.Close
cnn.Close
Set cnn = Nothing
Exit Sub
End If

Do Until rst.EOF

rst.MoveNext
Loop

rst.Close
cnn.Close
Set cnn = Nothing

"Pascal" a écrit dans le message de news:404a2a5d$0$298$
voici le debut. en fait cela bloque a : Set Rs = Db.OpenRecordset(StrSql)
si bien que meme le [stop] derriere n'est pas vu.



Private Sub Init_Menu()
'On Error Resume Next

Set Db = Application.CurrentDb()

Set Menu = Me.TreeView
Dim compteur_nodx_org As Integer
Dim I As Integer

With Menu.Nodes

'*********** Niveau 1 ********************
StrSql = "SELECT Groupe FROM Ingénieur"

Set Rs = Db.OpenRecordset(StrSql)
Stop





"J-Pierre" a écrit dans le message
news:
Salut Pascal,

Essaie (chez moi, ça marche...)

Set Db = Application.currentDb()

J-Pierre

"Pascal" a écrit dans le message de
news:404a03ce$0$313$

bonjour

Un treeview dans un formulaire Access mdb, ne fonctionne plus sous Adp

rien ne se passe

en mode debogage
tout s'arrete à:

Set Db = CurrentDb
(Dim Db As DAO.Database)

La reference est elle mauvaise ? (ms 3.6 DAO object lib)

Merci d'avance

Pascal












Avatar
Pascal
Super super super
Ca marche !

Je crois que je vais pouvoir adopter ma nouvelle base adp...
J'ai encore pas mal de boulot, mais bon petit a petit...

Merci J-Pierre.
Au fait c'est toi en même temps sur la une ? ;-)

Pascal

"J-Pierre" a écrit dans le message
news:
Ca coince car tu dois travailler avec ADO, voilà un exemple de code, il
faut rajouter la référence

Microsoft ActiveX Data Objects x.x Library

Dim rst As New ADODB.Recordset
Dim cnn As New ADODB.Connection

Set cnn = CurrentProject.Connection

strgSQL = "SELECT blablabla "
rst.Open strgSQL, cnn, adOpenForwardOnly, adLockReadOnly

If rst.BOF And rst.EOF Then ' aucune données
rst.Close
cnn.Close
Set cnn = Nothing
Exit Sub
End If

Do Until rst.EOF

rst.MoveNext
Loop

rst.Close
cnn.Close
Set cnn = Nothing

"Pascal" a écrit dans le message de
news:404a2a5d$0$298$

voici le debut. en fait cela bloque a : Set Rs Db.OpenRecordset(StrSql)
si bien que meme le [stop] derriere n'est pas vu.



Private Sub Init_Menu()
'On Error Resume Next

Set Db = Application.CurrentDb()

Set Menu = Me.TreeView
Dim compteur_nodx_org As Integer
Dim I As Integer

With Menu.Nodes

'*********** Niveau 1 ********************
StrSql = "SELECT Groupe FROM Ingénieur"

Set Rs = Db.OpenRecordset(StrSql)
Stop





"J-Pierre" a écrit dans le message
news:
Salut Pascal,

Essaie (chez moi, ça marche...)

Set Db = Application.currentDb()

J-Pierre

"Pascal" a écrit dans le message de
news:404a03ce$0$313$

bonjour

Un treeview dans un formulaire Access mdb, ne fonctionne plus sous
Adp





rien ne se passe

en mode debogage
tout s'arrete à:

Set Db = CurrentDb
(Dim Db As DAO.Database)

La reference est elle mauvaise ? (ms 3.6 DAO object lib)

Merci d'avance

Pascal
















Avatar
J-Pierre
Non, sur la une, c'est mon petit frère, un jour, quand il aura réussi, il sera aussi célèbre que moi :-))))

Je crois que tu as eu le mot exact, petit à petit, non pas que je veuille te décourager, au contraire.

Si tu n'es pas familier avec ADO, MS a publié un ou deux livres blancs sur le sujet.


"Pascal" a écrit dans le message de news:404a421a$0$296$
Super super super
Ca marche !

Je crois que je vais pouvoir adopter ma nouvelle base adp...
J'ai encore pas mal de boulot, mais bon petit a petit...

Merci J-Pierre.
Au fait c'est toi en même temps sur la une ? ;-)

Pascal