Questione : Passare e funzioni di chiamata le variabili

Sto provando ad installare una funzione StudentLoop che denomina un altro function
YearEndReportLoop e gli passa una variabile booleana “fine d'anno„.  Continu aare ottenere a
the ByRef il tipo variabile il disadattamento.  Sto denominandolo booleano dappertutto, in modo da non faccio understand
where che il disadattamento sta venendo da.  C'è ne aiutano, soddisfanno?
class= > " libero " del
> " del codeSnippet " del class= del
class= " lineNumbers " del
class= del 
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:
54:
55:
56:
57:
58:
59:
60:
61:
62:
63:
64:
65:
66:
67:
68:
69:
70:
71:
72:
73:
74:
75:
76:
77:
78:
79:
80:
81:
82:
83:
84:
85:
86:
87:
88:
89:
90:
91:
92:
93:
94:
95:
96:
97:
98:
99:
100:
101:
102:
103:
104:
105:
106:
107:
108:
109:
110:
111:
112:
113:
114:
funzione >Public notpretty StudentLoop (mensile " del class= " del id= " codeSnippet958125 del 
 di Nz (gruppo, "") allora
    'Rapporto specifico funzionante
    Regolare i rs = db.OpenRecordset (“PRESCELTI tblStudents.Segment, tblStudents.Location, tblStudents.ROLE,„ & _
    “tblStudents.Group_FileNo, tblStudents.LastName, tblStudents.FirstName, tblStudents.SSO, tblStudents.Email, tblStudents. [ProcessReport sì/no]„ & _
    “Dai tblStudents„ & dal _
    “DOVE (((tblStudents. [ProcessReport sì/no]) =True)) e tblStudents.Group_FileNo =„ & gruppo)
Altrimenti
    'Il rapporto funzionante per tutti i tblStudents con l'indicatore di ProcessReport ha acceso.
    Regolare i rs = db.OpenRecordset (“PRESCELTI tblStudents.Segment, tblStudents.Location, tblStudents.ROLE,„ & _
    “tblStudents.Group_FileNo, tblStudents.LastName, tblStudents.FirstName, tblStudents.SSO, tblStudents.Email, tblStudents. [ProcessReport sì/no]„ & _
    “Dai tblStudents„ & dal _
    “DOVE (((tblStudents. [ProcessReport sì/no]) =True))")
Concluder se
rs.MoveFirst



'Vedere se stiamo facendo funzionare i rapporti di fine d'anno
Se la fine d'anno = allora allinea

    'Fine d'anno funzionante - controllare per vedere se facciamo funzionare i calcoli di fine d'anno
    Se MsgBox (“i calcoli di fine d'anno devono fare funzionare una volta, ma non è necessario da funzionare ogni volta se i cambiamenti non abbiano accaduto.„ & vbCrLf & “volete fare funzionare i calcoli di fine d'anno? „, vbYesNo) = vbYes allora
        Chiamata RunYearEndEarned (di fine d'anno)
    Concluder se
    
    
    Fare fino a rs.EOF
    
        Selezionare i rs di caso! Ruolo
    
        Caso “mediatore„
            Chiamata YearEndReportLoop (rs! Group_FileNo, “mediatore„, di fine d'anno)
            Chiamata RunYearEndOutput (rs! LastName, rs! FirstName, “mediatore„, mensili)
        Il caso “ha avanzato„
            Chiamata YearEndReportLoop (rs! Group_FileNo, “ha avanzato„, rs! Posizione, allineare, di fine d'anno)
            Chiamata RunYearEndOutput (rs! LastName, rs! FirstName, “ha avanzato„, mensile)
        Estremità prescelta
    
        rs.MoveNext
        
    Ciclo


Altrimenti



    'Facendo funzionare i rapporti mensili o trimestrali
    'Controllare il ruolo per vedere se c'è ogni persona nel recordset acquistato
    
    Fare fino a rs.EOF
    
        Selezionare i rs di caso! Ruolo
    
        Caso “mediatore„
            Chiamata ReportLoop (rs! Group_FileNo, “mediatore„)
            Chiamata RunOutput (rs! LastName, rs! FirstName, “mediatore„, mensili)
        Il caso “ha avanzato„
            Chiamata ReportLoop (rs! Group_FileNo, “ha avanzato„, rs! Posizione, allineare)
            Chiamata RunOutput (rs! LastName, rs! FirstName, “ha avanzato„, mensile)
        Estremità prescelta
    
        rs.MoveNext
        
    Ciclo

Concluder se




Concluder se

Regolare i rs = niente
Regolar db = niente
Se Err.Number = 0 allora StudentLoop = allineano
acSysCmdSetStatus di SysCmd, "pronto"
Funzione di conclusione



Funzione pubblica YearEndReportLoop (gruppo come stringa, strType come stringa, LocationRegion facoltativo come stringa, LocationInd facoltativo booleano, fine d'anno facoltativa quanto booleana) come booleano

'Questo fissa i rapporti che sono procedati per ciascuno specifico per la fine d'anno.

Chiamata RunYearEndPayrollSummary (gruppo, strType, LocationRegion, LocationInd)
Chiamata RunYearEndCustomerSummaryIntermediate (gruppo, strType, LocationRegion, LocationInd)
Chiamata RunYearEndSummaryIndividual (gruppo, strType, LocationRegion, LocationInd)
Chiamata RunGridAssignments (gruppo, strType, LocationRegion, LocationInd)
Chiamata RunNewSignings (gruppo, strType, LocationRegion, LocationInd)
Chiamata RunMiscReport (gruppo, strType, LocationRegion, LocationInd, di fine d'anno)



Funzione di conclusione
class= del

Risposta : Passare e funzioni di chiamata le variabili

Poiché è specificato come la terza discussione, è trattato come la terza discussione nella vostra funzione
provare questo

Denominare YearEndReportLoop (rs! Group_FileNo, “mediatore„, di fine d'anno
Altre soluzioni  
 
programming4us programming4us