[AC-2010] Passer un argument recordset à une fonction

Passer un argument recordset à une fonction

Bonjour,
J'ai un petit soucis avec un code qui fonctionnait bien et qui ne fonctionne plus depuis que j'ai changé la façon de créer ma table.

Je déclare des variables pour ma table et pour ma fonction. Voici les codes correspondants:
Ma table existe et j'extrais certains informations dans le select distinct.

J'ai un message d'erreur "Erreur de compilation" Étiquette non définie !!

Je ne comprends pas où cela bloque ???

Code:

1
2
3
4
5
6
7
8
9
10
11
 
 
Dim sql1 as string
sql1 = "SELECT DISTINCT XCrepNC.Organisme FROM XCRepNC;"
 
Dim theDb As Recordset
 
Set theDb = CurrentDb.OpenRecordset(sql1)
 
'Fonction 
ReportToXLS "Rap1_", "F:\ORGSCOL\Rapports_NC\", "repXCrepNCRemarque", theDb

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
 
' Code de la fonction.
Private Sub ReportToXLS(stFile As String, thePath As String, stSource As String, theDb As Recordset)
On Error GoTo Err_ReportToXLS
 
    Dim Abvr, stTarger, LeTmp, MoisDate, LaDate, XlsFile  As String
 
 
    LaDate = Now()
    MoisDate = Format(LaDate, "yyyymm")
 
 'Exécute le rapport avec le nom de chaque organisme
'Enregistre le rapport en XLS et sauve dans le F Orgscol\Rapports_NC
 
 
 
theDb.MoveFirst
 
  With theDb
 
 
           If Not .BOF And Not .EOF Then
           .MoveLast
           .MoveFirst
 
           While (Not .EOF)
           Abvr = theDb(0)
           StTarget = stFile & Abvr & "_" & MoisDate & ".xls"
           XlsFile = thePath & StTarget
 
            DoCmd.OpenReport stSource, acPreview, , "[Organisme]='" & Abvr & "'", acHidden
            DoCmd.OutputTo acOutputReport, stSource, acFormatXLS, XlsFile, False
 
 
             .MoveNext
             DoCmd.Close acReport, stSource
             Wend
 
             End If
 
           .Close
End With
 
Exit_ReportTXLS:
Set theDb = Nothing
    Exit Sub
 
Err_ReportToXLS:
    MsgBox Err.Description
    Resume Exit_ReportToXLS
 
 
End Sub

Salut,

en exécutant ton code en mode pas à pas, peux-tu nous indiquer exactement à quelle ligne l'erreur apparait stp ?

Bonjour,

le message d'erreur apparaît a:
Code:

1 2 Private Sub ReportToXLS(stFile As String, thePath As String, stSource As String, theDb As Recordset)
MErci

GAGPIE

Je pense qu'il te faut préciser s'il s'agit d'un DAO.Recordset ou d'un ADODB.Recordset.

Si cet ajout ne suffit pas, je te propose dans changer le paramètre que tu passes en remplaçant le recordset par la chaîne SQL qui sert à alimenter le Recordset.

Merci pour la réponse.

Finalement, mon erreur se situait au niveau de la fonction.

Il y avait une erreur de typographie:

Err_ReportoXLS:

au lieu de :

Err_ReportToXLS:

Quelle bourde !!!!!

Merci pour tout :oops:

gagpie