Vraag : Het roepen van Functies en het Overgaan van Variabelen

Ik probeer aan opstelling een functie StudentLoop die een andere function
YearEndReportLoop roept en het veranderlijke „YearEnd van Boole“ overgaat.  Ik houd krijgend
the ByRef veranderlijke typewanverhouding.  Ik roep het van Boole overal, zodat ik niet understand
where de wanverhouding uit komt.  Om het even welk helpen, alstublieft?
" codeBody " 
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:
van 
Public Functie StudentLoop (maandelijks zoals Groep Van Boole, de Facultatieve als Koord, Facultatieve YearEnd zoals Van Boole) zoals Van Boole
DoCmd.SetWarnings Vals


Als Lookforfolder = Waar toen

Schemerige db als Gegevensbestand
Schemerige rs als Recordset
Schemerige strGroup als Koord
Schemerige strRole als Koord
Schemerige strLocationRegion als Koord
Schemerige blnLocationInd zoals Van Boole
Schemerig Q als Koord
Schemerige blnYearEnd zoals Van Boole

Vastgesteld db = CurrentDb
Q = DLookup („CurrentQuarter“, „DatabaseParameters“)

'Controleert om te zien of stellen wij rapporten voor alle commissieontvangers in werking, of enkel gespecificeerd individu (zoals bepaald door de aanwezigheid van Groep)
Als Nz (Groep, "") <> "" toen
    'Lopend individueel rapport
    Reeks rs = db.OpenRecordset („UITGEZOCHTE tblStudents.Segment, tblStudents.Location, tblStudents.ROLE,“ & _
    „tblStudents.Group_FileNo, tblStudents.LastName, tblStudents.FirstName, tblStudents.SSO, tblStudents.Email, tblStudents. [Ja/nee ProcessReport]“ & _
    „VAN tblStudents“ & _
    „WAAR (((tblStudents. [Ja/nee ProcessReport]) =True)) en tblStudents.Group_FileNo =“ & Groep)
Anders
    'Lopend rapport voor alle tblStudents met aangezette indicator ProcessReport.
    Reeks rs = db.OpenRecordset („UITGEZOCHTE tblStudents.Segment, tblStudents.Location, tblStudents.ROLE,“ & _
    „tblStudents.Group_FileNo, tblStudents.LastName, tblStudents.FirstName, tblStudents.SSO, tblStudents.Email, tblStudents. [Ja/nee ProcessReport]“ & _
    „VAN tblStudents“ & _
    „WAAR (((tblStudents. [Ja/nee ProcessReport]) =True))“)
Eind als
rs.MoveFirst



'Zie of stellen wij eind van het jaarrapporten in werking
Als YearEnd = Waar toen

    'Lopend eind van het jaar - controleer om te zien of zouden wij de eind van het jaarberekeningen moeten in werking stellen
    Als MsgBox (de „berekeningen van het Eind van het jaar moeten één keer in werking stellen, maar het is niet noodzakelijk elke keer te lopen als de veranderingen zich niet.“ hebben voorgedaan & vbCrLf & „wilt u eind van het jaarberekeningen in werking stellen? “, vbYesNo) = vbYes toen
        Vraag (YearEnd) RunYearEndEarned
    Eind als
    
    
    Doe tot rs.EOF
    
        Selecteer Geval rs! Rol
    
        Geval „Tussenpersoon“
            Vraag YearEndReportLoop (rs! Midden“, YearEnd Group_FileNo, „)
            Vraag RunYearEndOutput (rs! LastName, rs! FirstName, „Tussenpersoon“, maandelijks)
        „Geavanceerd“ geval
            Vraag YearEndReportLoop (rs! Group_FileNo, „Geavanceerd“, rs! Waar, YearEnd plaats,)
            Vraag RunYearEndOutput (rs! LastName, rs! FirstName, „Geavanceerd“, maandelijks)
        Uitgezocht eind
    
        rs.MoveNext
        
    Lijn


Anders



    'Lopende maandelijkse of driemaandelijkse rapporten
    'Controle de rol voor elke persoon in verworven recordset
    
    Doe tot rs.EOF
    
        Selecteer Geval rs! Rol
    
        Geval „Tussenpersoon“
            Vraag ReportLoop (rs! Group_FileNo, „Midden“)
            Vraag RunOutput (rs! LastName, rs! FirstName, „Tussenpersoon“, maandelijks)
        „Geavanceerd“ geval
            Vraag ReportLoop (rs! Group_FileNo, „Geavanceerd“, rs! Ware plaats,)
            Vraag RunOutput (rs! LastName, rs! FirstName, „Geavanceerd“, maandelijks)
        Uitgezocht eind
    
        rs.MoveNext
        
    Lijn

Eind als




Eind als

Reeks rs = niets
Vastgesteld db = niets
Als Err.Number = 0 toen StudentLoop = Waar
acSysCmdSetStatus van SysCmd, „Klaar“
De Functie van het eind



Overheidsfunctie YearEndReportLoop (Groep als Koord, strType als Koord, Facultatieve LocationRegion als Koord, Facultatieve YearEnd LocationInd zo Van Boole, Facultatieve zoals Van Boole) zoals Van Boole

'Dit plaatst de rapporten die voor elk individu voor eind van het jaar worden verwerkt.

Vraag RunYearEndPayrollSummary (Groep, strType, LocationRegion, LocationInd)
Vraag RunYearEndCustomerSummaryIntermediate (Groep, strType, LocationRegion, LocationInd)
Vraag RunYearEndSummaryIndividual (Groep, strType, LocationRegion, LocationInd)
Vraag RunGridAssignments (Groep, strType, LocationRegion, LocationInd)
Vraag RunNewSignings (Groep, strType, LocationRegion, LocationInd)
Vraag RunMiscReport (YearEnd Groep, strType, LocationRegion, LocationInd,)



De Functie van het eind

Antwoord : Het roepen van Functies en het Overgaan van Variabelen

Omdat het als derde argument wordt gespecificeerd, wordt het behandeld als derde argument in uw functie
probeer dit

Oproepen YearEndReportLoop (rs! YearEnd Group_FileNo, „Tussenpersoon“,
Andere oplossingen  
 
programming4us programming4us