Discussion :

[kesamba]

Bonjour,

j'ai le code suivant qui me permet de parcourir un état précis le code ci dessous plante ici :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

 strSQL = Reports("MyReport").RowSource

et me renvoie l'erreur: 2465. Comment définir mon recordset basé sur ce report?

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 strSQL As String
Dim rsData, rst As DAO.Recordset
 
strSQL = Reports("MyReport").Recordset
Set rst = CurrentDb.OpenRecordset(strSQL, CurrentProject.Connection, adOpenKeyset)
 
 
Do While rst.EOF = False
 
  Debug.Print rst.Fields(1).Name
  rsData.MoveNext
 
Loop

Merci

[tee_grandbois]

Bonsoir,
RowSource n'est pas une propriété pour les états mais pour les zones de liste, il faut utiliser la propriété RecordSource. Si ton état utilise des sources de données différentes (sinon je ne vois pas l'intérêt de charger le RecordSource dynamiquement) tu peux utiliser OpenArgs pour alimenter le RecordSource et l'ouvrir ainsi :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

DoCmd.OpenReport "MyReport", acViewPreview, , , , "MySource"

MySource peut être le nom d'une table, d'une requète ou d'un instruction SQL.
Puis sur l'événement Form_Open de ton état tu mets ce code :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
Private Sub Report_Open(Cancel As Integer)
' Chargement de la source de l'état
If Not IsNull(Me.OpenArgs) Then
    Me.RecordSource = OpenArgs
Else
    Cancel = True
End If
 
End Sub

[kesamba]

Merci mais je veux ouvrir un recordset sur un etat afin de parcourir un champ de cet etat et récuperer ensuite ses valeurs pour un export excel.

[tee_grandbois]

Bonsoir,
j'avoue avoir du mal à comprendre le cheminement : ouvrir un état pour ensuite parcourir les valeurs d'un champ du recordset pour enfin exporter le résultat sur Excel n'est pas très conventionnel.
Pourquoi ne pas simplement créer une requète contenant le champ que tu exporterais vers Excel ?
Cela dit, ce n'était pas non plus la question posée au départ...

[kesamba]

la source de mon état est une requête paramétrée qui permet de limiter l'ensemble d'enregistrements qu'il renvoie.

à l'ouverture de l' état deux boîtes de dialogue s'affichent demandant le mois et le nom du client sur lequel l'état doit porter. J' utilise plutôt un état pour plusieurs raisons:

1- avec une requête on peut juste faire une copie dans Excel alors qu'avec un état on peut automatiser l'export. C.a.d Vba Access prend le contrôle d'une instance d'Excel et manipule des objets du tableur.

2- ce n'est pas tout les éléments de la requête que je veux exporter. Pour cela ,je dois parcourir mon état ligne par ligne pour sélectionner les champs à exporter.

Merci

[tee_grandbois]

Voici comment utiliser le recordsource d'un état en RecordSet :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
Private Sub Report_Open(Cancel As Integer)
' 
Dim rs As DAO.Recordset
Set rs = CurrentDb.OpenRecordset(Me.RecordSource)
 
    While Not rs.EOF
        ' ici ton code
        rs.MoveNext
    Wend
 
rs.Close
Set rs = Nothing
 
End Sub

[kesamba]

Si la source de mon état était une requête simple, ça allait marcher mais elle est paramétrée.
Donc à l'ouverture de l' état deux boîtes de dialogue s'affichent demandant le mois et le nom du client sur lequel l'état doit porter. Lorsque j' entre un mois et nom du client ,VBa Access me renvoie l'erreur suivante.

erreur 3061 trop peu de paramètres. 2 attendu.
Que faire pour remédier à cette erreur

merci

[tee_grandbois]

Bonsoir,
voici une solution en VBA (et sans passer par un état) qui te permet d'exécuter une requète paramétrée à l'aide de 2 inputbox

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
20
21
22
Function LanceurRequeteParametree()
'
Dim Qry As DAO.QueryDef
Dim Rst As DAO.Recordset
Set Qry = CurrentDb.QueryDefs("Marequete")
 
Qry.Parameters(0) = InputBox("Entre le nom du client", "Nom du client")
Qry.Parameters(1) = InputBox("Entrez la date (jj/mm/aaaa)", "Date")
 
Set Rst = Qry.OpenRecordset
 
    While Not Rst.EOF
        ' + Ton code
        Debug.Print Rst.Fields(0)
        Rst.MoveNext
    Wend
 
Rst.Close
Set Qry = Nothing
Set Rst = Nothing
 
End Function

[kesamba]

j'aimerai plutôt passer par un état parce que je peux y faire facilement mes calcul et mon export Excel
Merci

[tee_grandbois]

Bonsoir,
la solution fonctionne en VBA mais tu peux toujours essayer de l'intégrer dans ton état. Après tout, je te donne des solutions et tu en fais ce que tu veux. Si tu persistes à vouloir absolument passer par un état c'est ton problème, mais je te rappelle que tu es sur un site d'entre aide, pas un site marchand avec obligation de résultats. Donc "j'aimerai ceci ou cela" est à éviter.
Merci.

[kesamba]

Merci tee_grandbois. J'ai suivi ton conseil et tout a finalement bien marché .