Cuestión : Funciones que llama y paso de variables

Estoy intentando fijar una función StudentLoop que llame otro function
YearEndReportLoop y le pase una variable boleana “final de año”.  Guardo el conseguir el
the ByRef del tipo variable unión mal hecha.  La estoy llamando boleana por todas partes, así que no hago el understand
where que la unión mal hecha está viniendo de.  ¿Cualesquiera ayudan, satisfacen?
class= > " claro " 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:
función >Public notpretty StudentLoop (publicación mensual " del class= " del id= " codeSnippet958125 del 
 de Nz (grupo, "") entonces
    De 'informe individual funcionamiento
    Fijar los rs = db.OpenRecordset (“SELECTOS tblStudents.Segment, tblStudents.Location, tblStudents.ROLE,” y el _
    “tblStudents.Group_FileNo, tblStudents.LastName, tblStudents.FirstName, tblStudents.SSO, tblStudents.Email, tblStudents. [ProcessReport sí/no]” y _
    “De tblStudents” y de _
    “DONDE (((tblStudents. [ProcessReport sí/no]) =True)) y tblStudents.Group_FileNo =” y grupo)

    De 'informe funcionamiento para todos los tblStudents con el indicador de ProcessReport se giró.
    Fijar los rs = db.OpenRecordset (“SELECTOS tblStudents.Segment, tblStudents.Location, tblStudents.ROLE,” y el _
    “tblStudents.Group_FileNo, tblStudents.LastName, tblStudents.FirstName, tblStudents.SSO, tblStudents.Email, tblStudents. [ProcessReport sí/no]” y _
    “De tblStudents” y de _
    “DONDE (((tblStudents. [ProcessReport sí/no]) =True))")
Terminar si
rs.MoveFirst



'Ver si estamos funcionando con informes de finales de ano
Si el final de año = entonces verdad

    De 'final de año funcionamiento - comprobar para ver si funcionamos los cálculos de finales de ano
    Si MsgBox (los “cálculos de finales de ano tienen que funcionar con una vez, pero no es necesario funcionar cada vez si no han ocurrido los cambios.” ¿y vbCrLf y “usted quiere funcionar cálculos de finales de ano? ”, vbYesNo) = vbYes entonces
        Llamada RunYearEndEarned (de finales de ano)
    Terminar si
    
    
    Hacer hasta rs.EOF
    
        ¡Seleccionar los rs del caso! Papel
    
        Caso “intermedio”
            ¡Llamada YearEndReportLoop (rs! Group_FileNo, “intermedio”, de finales de ano)
            ¡Llamada RunYearEndOutput (rs! ¡LastName, rs! FirstName, “intermedio”, mensuales)
        El caso “avanzó”
            ¡Llamada YearEndReportLoop (rs! ¡Group_FileNo, “avanzó”, los rs! Localización, verdad, de finales de ano)
            ¡Llamada RunYearEndOutput (rs! ¡LastName, rs! FirstName, “avanzó”, publicación mensual)
        Extremo selecto
    
        rs.MoveNext
        
    Lazo






    'Funcionando con informes mensuales o trimestrales
    'Comprobar el papel para saber si hay cada persona en el recordset adquirido
    
    Hacer hasta rs.EOF
    
        ¡Seleccionar los rs del caso! Papel
    
        Caso “intermedio”
            ¡Llamada ReportLoop (rs! Group_FileNo, “intermedio”)
            ¡Llamada RunOutput (rs! ¡LastName, rs! FirstName, “intermedio”, mensuales)
        El caso “avanzó”
            ¡Llamada ReportLoop (rs! ¡Group_FileNo, “avanzó”, los rs! Localización, verdades)
            ¡Llamada RunOutput (rs! ¡LastName, rs! FirstName, “avanzó”, publicación mensual)
        Extremo selecto
    
        rs.MoveNext
        
    Lazo

Terminar si




Terminar si

Fijar los rs = nada
Fijar DB = nada
Si Err.Number = 0 entonces StudentLoop = verdad
acSysCmdSetStatus de SysCmd, "listo"
Función del final



Función pública YearEndReportLoop (grupo como secuencia, strType como secuencia, LocationRegion opcional como secuencia, LocationInd opcional tan boleano, final de año opcional como boleano) como boleano

'Esto fija los informes que se procesan para cada uno individual para el final de año.

Llamada RunYearEndPayrollSummary (grupo, strType, LocationRegion, LocationInd)
Llamada RunYearEndCustomerSummaryIntermediate (grupo, strType, LocationRegion, LocationInd)
Llamada RunYearEndSummaryIndividual (grupo, strType, LocationRegion, LocationInd)
Llamada RunGridAssignments (grupo, strType, LocationRegion, LocationInd)
Llamada RunNewSignings (grupo, strType, LocationRegion, LocationInd)
Llamada RunMiscReport (grupo, strType, LocationRegion, LocationInd, de finales de ano)



Función del final
class= del

Respuesta : Funciones que llama y paso de variables

Porque se especifica como la tercera discusión, se trata mientras que la tercera discusión en su función
intentar esto

¡Llamar YearEndReportLoop (rs! Group_FileNo, “intermedio”, de finales de ano
Otras soluciones  
 
programming4us programming4us