Listar nomes de um subformulário em um relatório
Adquira a assinatura vitalícia do site e passe a ter acesso aos arquivos exemplos, vídeos, revistas, livros e ao kit de montagem de ribbons. Você terá suporte por e-mail, caso necessite tirar dúvidas pontuais. Clique AQUI e veja como obter um dos nossos planos. Clique AQUI e faça uma visita a seção Downloads do site e verifique as centenas de arquivos que estará à sua disposição. Clique AQUI e faça uma visita a seção Vídeos do site e veja a lista que estará disponível ao se tornar o nosso assinante vitalício. Clique AQUI e saiba mais detalhes sobre o kit de montagem de ribbons (deixe seus aplicativos com aspecto profissional).
Usuário Silva:
Boa noite!
Tenho uma relação de nomes dos funcionários da equipe que faz atendimento de manutenção e que aparecem no subformulário da Ordem de Serviço.
Exemplo:
OS 1234 , Cliente: Casa e Video (tabela OS)
Subformulário Equipe (tabela Equipe)
João (registro 1)
Pedro (registro 2)
Francisco (registro 3)
Gostaria que fosse feito um loop nos nomes dos funcionários, na tabela Equipe e que o campo Funcionário fosse preenchido desta maneira:
João, Pedro e Francisco em Relatório de pesquisa, sem que eu precisasse fazer um subRelatório.
Suporte:
Silva, segue um exemplo, usando programação direto no relatório. Utilizei o evento "ao imprimir" da seção Detalhe.
Private Sub Detalhe_Print(Cancel As Integer, PrintCount As Integer)
Dim rs As DAO.Recordset
Dim strSql$
Dim j%
strSql = "SELECT * FROM tblEquipes WHERE idos = " & Me!Id & " ORDER BY Funcionário;"
Set rs = CurrentDb.OpenRecordset(strSql)
Me!ListaFuncionarios = ""
rs.MoveLast: rs.MoveFirst
Do While Not rs.EOF
If j = rs.RecordCount - 1 Then
Me!ListaFuncionarios = Me!ListaFuncionarios & " e " & rs!funcionário
ElseIf j > 0 Then
Me!ListaFuncionarios = Me!ListaFuncionarios & ", " & rs!funcionário
Else
Me!ListaFuncionarios = rs!funcionário
End If
j = j + 1
rs.MoveNext
Loop
rs.Close
Set rs = Nothing
End Sub
Nota: Para se aprimorar na programação em relatórios é fundamental que assista ESTE meu vídeo:
Usuário Silva:
Terminei de fazer a implementação hoje, com 100% de sucesso.
Obrigado, Avelino.
Download
Não há comentário |