Boas,
tenho um relatório onde no cabeçalho mostara dados de uma tabela "TB_OFICINA", os campos Logo, Nome e morada
funciona bem para o "Nome" e "Morada" mas para o "logo" não funciona
Nota: na tabela o campo "Logo" está como Objecto OLE e contem link para uma imagem
Private Sub CabeçalhoDoRelatório_Format(Cancel As Integer, FormatCount As Integer)
On Error Resume Next
Dim LOGO As String
Dim Nome As String
Dim MORADA As String
DadosDaTabela = DCount("*", "tb_oficina")
If DadosDaTabela = 0 Then
DoCmd.OpenForm "frm_oficina", acNormal
Else
LOGO = DLast("Logo", "tb_oficina")
Nome = DLast("Nome", "tb_oficina")
MORADA = DLast("Morada", "tb_oficina")
Me.R0.Caption = Logo
Me.R1.Caption = Nome
Me.R2.Caption = MORADA
End If
End Sub
tenho um relatório onde no cabeçalho mostara dados de uma tabela "TB_OFICINA", os campos Logo, Nome e morada
funciona bem para o "Nome" e "Morada" mas para o "logo" não funciona
Nota: na tabela o campo "Logo" está como Objecto OLE e contem link para uma imagem
Private Sub CabeçalhoDoRelatório_Format(Cancel As Integer, FormatCount As Integer)
On Error Resume Next
Dim LOGO As String
Dim Nome As String
Dim MORADA As String
DadosDaTabela = DCount("*", "tb_oficina")
If DadosDaTabela = 0 Then
DoCmd.OpenForm "frm_oficina", acNormal
Else
LOGO = DLast("Logo", "tb_oficina")
Nome = DLast("Nome", "tb_oficina")
MORADA = DLast("Morada", "tb_oficina")
Me.R0.Caption = Logo
Me.R1.Caption = Nome
Me.R2.Caption = MORADA
End If
End Sub