PROBLEMAS COM DATAREPORT
 Fala pessoal, estou precisando de uma ajuda de vc[ô]s, fiz um relatório no DATAREPORT, aonde ele é para se criar uma carteira de membro, nisto os registros não vem do BD, mais de um form chamado frm_leitor, deste form vem o CÓDIGO DO MEMBRO e o NOME DO MEMBRO e DUAS outras FOTOS; as fotos são carregadas perfeitamente só que os registros do CÓDIGO e NOME não; pois fica dando o seguinte erro: OBJECT REQUIRED:
 Fala pessoal, estou precisando de uma ajuda de vc[ô]s, fiz um relatório no DATAREPORT, aonde ele é para se criar uma carteira de membro, nisto os registros não vem do BD, mais de um form chamado frm_leitor, deste form vem o CÓDIGO DO MEMBRO e o NOME DO MEMBRO e DUAS outras FOTOS; as fotos são carregadas perfeitamente só que os registros do CÓDIGO e NOME não; pois fica dando o seguinte erro: OBJECT REQUIRED:Sendo que as LABEL[ô]S que recebem estes códigos estão lá no DATAREPORT sim. Utilizo o seguinte código:
Set dtr_carteirinha.DataSource = rs_data_report
Set dtr_carteirinha.Sections([Ô]Section4[Ô]).Controls.Item([Ô]nova_vida[Ô]).Picture = img_novavida.Picture
Set dtr_carteirinha.Sections([Ô]Section4[Ô]).Controls.Item([Ô]foto_membro[Ô]).Picture = img_foto_membro.Picture
Set dtr_carteirinha.Sections([Ô]Section4[Ô]).Controls.Item([Ô]lbl_codigo_membro[Ô]).Caption = lbl_cod_membro.Caption
Set dtr_carteirinha.Sections([Ô]Section4[Ô]).Controls.Item([Ô]lbl_nome_membro[Ô]).Caption = lbl_nome_membro.Caption
Jesus abençoe ao que me ajudar

 
                
                    Tenta assim:
talvez você deve colocar o nome do form antes
ex: frm1.label.caption
ex:
Set dtr_carteirinha.Sections([Ô]Section4[Ô]).Controls.Item([Ô]lbl_nome_membro[Ô]).Caption = form1.lbl_nome_membro.Caption
            talvez você deve colocar o nome do form antes
ex: frm1.label.caption
ex:
Set dtr_carteirinha.Sections([Ô]Section4[Ô]).Controls.Item([Ô]lbl_nome_membro[Ô]).Caption = form1.lbl_nome_membro.Caption
                    Uso neste estilo, tenta implementar:
TotalEntrada e TotalSaida, são variaveis.
[txt-color=#e80000]With RptOrcamento.Sections([Ô]Section4[Ô])
.Controls([Ô]lblValEntrada[Ô]).Caption = FormatCurrency(TotalEntrada, vbTrue, vbTrue, vbTrue)
.Controls([Ô]lblValSaida[Ô]).Caption = FormatCurrency(TotalSaida, vbTrue, vbTrue, vbTrue)
End With[/txt-color]
            TotalEntrada e TotalSaida, são variaveis.
[txt-color=#e80000]With RptOrcamento.Sections([Ô]Section4[Ô])
.Controls([Ô]lblValEntrada[Ô]).Caption = FormatCurrency(TotalEntrada, vbTrue, vbTrue, vbTrue)
.Controls([Ô]lblValSaida[Ô]).Caption = FormatCurrency(TotalSaida, vbTrue, vbTrue, vbTrue)
End With[/txt-color]
                        Tópico encerrado , respostas não são mais permitidas
                    
                

