Boas,
aproveitando uns codigos que encontrei aqui no forum,
estou utilizando 1 desses codigos para colocar o mesmo texto em varios relatorios apartir de 1 formulario:
Private Sub CabeçalhoDoRelatório_Format(Cancel As Integer, FormatCount As Integer)
On Error Resume Next
Dim RazaoSocial As String
Dim NomeFantasia As String
DadosDaTabela = DCount("*", "Empresa")
If DadosDaTabela = 0 Then
DoCmd.OpenForm "Empresa", acNormal
Else
RazaoSocial = DLast("RazaoSocial", "Empresa")
NomeFantasia = DLast("Fantasia", "Empresa")
Endereço = DLast("Endereço", "Empresa")
Site = DLast("Site", "Empresa")
Cidade = DLast("Cidade", "Empresa")
Me.dada21.Caption = RazaoSocial
Me.dada22.Caption = Endereço
Me.dada23.Caption = Site
End If
End Sub
agora precisava de colocar uma imagem tambem nos relatorios todos apartir do mesmo formulario e se possivel que esse relatorio carrega-se essa imagem apartir do carregar imagens..
obrigado
aproveitando uns codigos que encontrei aqui no forum,
estou utilizando 1 desses codigos para colocar o mesmo texto em varios relatorios apartir de 1 formulario:
Private Sub CabeçalhoDoRelatório_Format(Cancel As Integer, FormatCount As Integer)
On Error Resume Next
Dim RazaoSocial As String
Dim NomeFantasia As String
DadosDaTabela = DCount("*", "Empresa")
If DadosDaTabela = 0 Then
DoCmd.OpenForm "Empresa", acNormal
Else
RazaoSocial = DLast("RazaoSocial", "Empresa")
NomeFantasia = DLast("Fantasia", "Empresa")
Endereço = DLast("Endereço", "Empresa")
Site = DLast("Site", "Empresa")
Cidade = DLast("Cidade", "Empresa")
Me.dada21.Caption = RazaoSocial
Me.dada22.Caption = Endereço
Me.dada23.Caption = Site
End If
End Sub
agora precisava de colocar uma imagem tambem nos relatorios todos apartir do mesmo formulario e se possivel que esse relatorio carrega-se essa imagem apartir do carregar imagens..
obrigado