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:
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
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