Etat adaptable

**hyipicai** · 13/05/2006, 19h19

bonjour a tous,
voila dans un état je voudrais mettre un controle listbox qui va chercher ses données au moment de l'ouverture de l'etat
ces données ne sont pas dans la table source choisie, ils sont dans d'autres tables de ce fait, je voulais faire comme pour un formulaire, mettre la requete dans le vba puis la faire executer mais il n'y a pas la propriete "rowsource" comme dans les formulaire

de ce fait, je ne sais pas comment faire

si vous aviez une idee ca serai bien sympa

merci beaucoup par avance

**philben** · 13/05/2006, 22h56

Ca m'arrive de faire comme ça pour transmettre au rapport une requete écrite :

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
 
 
Private Sub Report_Open(Cancel As Integer)
   Dim oDb As dao.Database
   Dim oQdf As dao.QueryDef
   Dim asTmp() As String
 
   asTmp = Split(Me.OpenArgs, "|") ' 2 infos dedans : Caption du rapport et le nom de la requete à charger
   Set oDb = CurrentDb
   Set oQdf = oDb.QueryDefs(asTmp(1))
   Me.RecordSource = oQdf.sql
   Me.Caption = asTmp(0)
 
   Set oQdf = Nothing
   Set oDb = Nothing
End Sub

y'a peut-être plus simple...

Remarque :
le control listbox dans un état ça ne fonctionne par d'après moi.
Personnellement, je passe par un formulaire indépendant qui contient le listbox puis lorsque l'utilisateur à sélectionné une valeur, je lance l'état et la requete de l'état va chercher éventuellement une valeur dans le formulaire initial. Suis-je clair ?

**philben** · 13/05/2006, 23h20

Après reflexion, tu peux écrire dans ton cas :

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
 
 
Private Sub Report_Open(Cancel As Integer)
   Dim oDb As dao.Database
   Dim oQdf As dao.QueryDef
 
   Set oDb = CurrentDb
   Set oQdf = oDb.QueryDefs(Me.OpenArgs) ' contient le nom de la requete pour la listbox
 
   Me.MALISTE.RowSourceType = "table/query"
   Me.MALISTE.RowSource = oQdf.SQL 
 
   Set oQdf = Nothing
   Set oDb = Nothing
End Sub

**hyipicai** · 14/05/2006, 11h37

Envoyé par philben

Après reflexion, tu peux écrire dans ton cas :

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
 
 
Private Sub Report_Open(Cancel As Integer)
   Dim oDb As dao.Database
   Dim oQdf As dao.QueryDef
 
   Set oDb = CurrentDb
   Set oQdf = oDb.QueryDefs(Me.OpenArgs) ' contient le nom de la requete pour la listbox
 
   Me.MALISTE.RowSourceType = "table/query"
   Me.MALISTE.RowSource = oQdf.SQL 
 
   Set oQdf = Nothing
   Set oDb = Nothing
End Sub

ca ne fonctionne pas helas car comme je le disais dans un etat on n'a pas acces a la propriete rowsource.
quand on truc du recordsource de l'etat, ce n'est aps possible helas