Tópico anterior Próximo tópico Novo tópico
VB / VBA
#402580 - 23/05/2012 16:20:43 | ||||
![]() DAMASCENO.CESAR ADAMANTINA Cadast. em:Fevereiro/2009 ![]() |
Boa tarde, tou criando um relatório no Data Report e está dando problema na visualização dos dados.
Criei uma tabela onde insiro os dados necessários para o relatório só que esta tabela é preenchida logo antes de montar o relatório através do INSERT e do UPDATE até ai eu faço através do DAO, beleza, os dados são inseridos e tal, logo depois disso abro a tabela través do ADO para gerar o relatório e uma das linhas do relatório sai parcialmente preenchida, estou usando este comando no ADO: (OBS: Todas as variáveis foram corretamente definidas e receberam os valores corretos) Set BDrel = Nothing BDrel.Open [Ô]DRIVER={Microsoft Access Driver (*.mdb)};dbq=[Ô] & App.Path & [Ô]\Banco.mdb[Ô], [Ô]Admin[Ô], [Ô]scpfdamasceno[Ô] Set RelRS = BDrel.Execute([Ô]SELECT Funcionarios.Nome, Abono, DS, Venda, FM, LM, FJ, FI FROM fGeral INNER JOIN Funcionarios [Ô] _ & [Ô]ON fGeral.RG = Funcionarios.RG WHERE FUNCIONARIOS.Turno = [ô][Ô] & TurnoT & [Ô][ô] ORDER BY [Ô] _ & [Ô]FI, FJ, LM, FM, Venda, DS, Abono, Funcionarios.Nome ASC[Ô]) If RelRS.EOF = False Then [ô]Define o DataSource do relatório Set RptGeral.DataSource = RelRS [ô]Coloca a data e o nome do Disciplina no cabeçalho Data = Dia & [Ô] de [Ô] & Mes & [Ô] de [Ô] & Ano [ô]Principal.PctImg.Visible = False RptGeral.Sections([Ô]Titulo[Ô]).Controls([Ô]LblData[Ô]).Caption = Data RptGeral.Sections([Ô]Titulo[Ô]).Controls([Ô]LblTitulo[Ô]).Caption = [Ô]Relatório Geral de Faltas - Turno [Ô] & TurnoT & [Ô] ([Ô] & AnoM & [Ô])[Ô] RptGeral.WindowState = vbMaximized RptGeral.Show RptGeral.SetFocus Else MsgBox [Ô]Não existe lançamentos para o ano: [Ô] & AnoM, vbInformation End If Já verifiquei a tabela e os dados estão corretos nela, exibo os dados em um grid e também estão corretos o erro é o seguinte: aparece um nome mas os restantes dos campos deste único nome saem em branco, mesmo tendo dados para exibir O conhecimento é como o dinheiro: quanto mais temos, mais queremos ter (Josh Billings) |
|||
#402591 - 23/05/2012 16:52:14 | ||||
![]() DAMASCENO.CESAR ADAMANTINA Cadast. em:Fevereiro/2009 ![]() |
RESOLVI O PROBLEMA, fecho o banco de dados no DAO antes do relatorio e depois abro de novo
O conhecimento é como o dinheiro: quanto mais temos, mais queremos ter (Josh Billings) |
|||
Tópico anterior Próximo tópico Novo tópico