Olá, preciso emitir um relatório com os componentes abaixo, mas todas as modificações que fiz nem sequer abriram o relatório. Gostaria que os colegas me ajudasse nessa.
frmRelClassificacao – formulário para seleção e emissão do relatório geral ou datas.
RelClassificacao – nome do relatório
ConsultaClassificacao – no design tem 25 campos, mais os cálculos abaixo, sem agrupamentos ativado
'Assiduidade: Nz([NroTotal])-Nz([NroPontosAfasta])-Nz([NroPontosFNJ])
'Disciplina: Nz([NroPontosOrdens])+Nz([NroPontosZelo])+Nz([NroPontosUrbanidade])+Nz([NroPontosCooperacao])+Nz([NroPontosEconomia])-Nz([NroPontosDestituiPAD])
'Capacitacao: Nz([NroPontosAperfeicoamento])+Nz([NroPontosEnsMedio])+Nz([NroPontosTecProfi])+Nz([NroPontosGradSup])+Nz([NroPontosPosGrad])+Nz([NroPontosMestrado])+Nz([NroPontosDoutorado])
'TotalAno: Nz([Assiduidade])+Nz([Disciplina])+Nz([Capacitacao])+Nz([NroPontosTrabalho])
Para emissão estou inserindo datas como parâmetros, desse jeito:
Private Sub cmdImprimir_Click()
'Dim sql As String
If Me.optTodos.Value = 1 Then
If (Not IsNull(Me.txtDe)) And (Not IsNull(Me.txtAte)) Then
Dim strFiltroDatas As String
strFiltroDatas = "[dtDe] >=#" & Me.txtDe & "# And [dtDe] <=#" & Me.txtAte & "#"
DoCmd.OpenReport "RelClassificacao", acViewPreview, , strFiltroDatas
End If
End If
End Sub
Um funcionário pode ter vários anos de avaliação. Preciso, por ex., selecionar um período de datas e em cada linha exibir o nome de cada funcionário e a soma total de pontos de avaliação do período. Basicamente cada linha do relatório tem de exibir a soma de TotalAno dos registros cadastrados para cada funcionário.Exemplificando com poucos campos:
Matricula Nome Ano Pontos
-------------------------------------------
35745 Jose 1998 1365
35742 Paulo 1999 1366
35745 Jose 1999 1254
35746 Abel 2000 1255
35742 Paulo 2000 1350
Seleção : 01/01/1998 a 01/01/2000
O relatório deve exibir assim
Matricula Nome Ano Pontos
--------------------------------------------
35745 Jose 1998 2619
35742 Paulo 1999 4081
35746 Abel 2000 1255
Segue cópia do bd para melhor ajudar a entender.
ALAN
frmRelClassificacao – formulário para seleção e emissão do relatório geral ou datas.
RelClassificacao – nome do relatório
ConsultaClassificacao – no design tem 25 campos, mais os cálculos abaixo, sem agrupamentos ativado
'Assiduidade: Nz([NroTotal])-Nz([NroPontosAfasta])-Nz([NroPontosFNJ])
'Disciplina: Nz([NroPontosOrdens])+Nz([NroPontosZelo])+Nz([NroPontosUrbanidade])+Nz([NroPontosCooperacao])+Nz([NroPontosEconomia])-Nz([NroPontosDestituiPAD])
'Capacitacao: Nz([NroPontosAperfeicoamento])+Nz([NroPontosEnsMedio])+Nz([NroPontosTecProfi])+Nz([NroPontosGradSup])+Nz([NroPontosPosGrad])+Nz([NroPontosMestrado])+Nz([NroPontosDoutorado])
'TotalAno: Nz([Assiduidade])+Nz([Disciplina])+Nz([Capacitacao])+Nz([NroPontosTrabalho])
Para emissão estou inserindo datas como parâmetros, desse jeito:
Private Sub cmdImprimir_Click()
'Dim sql As String
If Me.optTodos.Value = 1 Then
If (Not IsNull(Me.txtDe)) And (Not IsNull(Me.txtAte)) Then
Dim strFiltroDatas As String
strFiltroDatas = "[dtDe] >=#" & Me.txtDe & "# And [dtDe] <=#" & Me.txtAte & "#"
DoCmd.OpenReport "RelClassificacao", acViewPreview, , strFiltroDatas
End If
End If
End Sub
Um funcionário pode ter vários anos de avaliação. Preciso, por ex., selecionar um período de datas e em cada linha exibir o nome de cada funcionário e a soma total de pontos de avaliação do período. Basicamente cada linha do relatório tem de exibir a soma de TotalAno dos registros cadastrados para cada funcionário.Exemplificando com poucos campos:
Matricula Nome Ano Pontos
-------------------------------------------
35745 Jose 1998 1365
35742 Paulo 1999 1366
35745 Jose 1999 1254
35746 Abel 2000 1255
35742 Paulo 2000 1350
Seleção : 01/01/1998 a 01/01/2000
O relatório deve exibir assim
Matricula Nome Ano Pontos
--------------------------------------------
35745 Jose 1998 2619
35742 Paulo 1999 4081
35746 Abel 2000 1255
Segue cópia do bd para melhor ajudar a entender.
ALAN
- Anexos
- promo1.zip
- Você não tem permissão para fazer download dos arquivos anexados.
- (897 Kb) Baixado 6 vez(es)
Última edição por alantb em Seg 23 Out 2017, 1:26 pm, editado 1 vez(es)