Início
jamesacdc 9/6/2015, 03:56Olá pessoal,
Estou com problemas para adicionar no sistema imagens de alta definição, pois o sistema não abre. Nem no formulário e nem no relatório.
Para abrir no formulário o código é o mesmo só é adicionado um rótulo para exibir a imagem.
Alguém sabe se o Access faz algum gerenciamento de memória? Pois em algum casos aparece no formulário e não aparece no relatório.
Alguém tem uma alternativa pra isso?
Estou com problemas para adicionar no sistema imagens de alta definição, pois o sistema não abre. Nem no formulário e nem no relatório.
Para abrir no formulário o código é o mesmo só é adicionado um rótulo para exibir a imagem.
Alguém sabe se o Access faz algum gerenciamento de memória? Pois em algum casos aparece no formulário e não aparece no relatório.
Alguém tem uma alternativa pra isso?
- Código:
Private Sub Form_Current()
Dim emptyImg As String
Dim db As DAO.Database
Dim rs As DAO.Recordset
Dim contaReg As Integer
On Error Resume Next
emptyImg = Application.CurrentProject.Path & "\Fotos\" & "SemFoto(Nao Remover).jpg"
If IsNull(Me.imagemAdesivo) Then
Me.imagemAdesivo1.Picture = emptyImg
ElseIf Not FileExists(Me.imagemAdesivo) Then
Me.imagemAdesivo1.Picture = emptyImg
Else
Me.imagemAdesivo1.Picture = Me.imagemAdesivo
End If
If IsNull(Me.imagemArte) Then
Me.imagemArte1.Picture = emptyImg
ElseIf Not FileExists(Me.imagemArte) Then
Me.imagemArte1.Picture = emptyImg
Else
Me.imagemArte1.Picture = Me.imagemArte
End If
Set db = CurrentDb()
Set rs = db.OpenRecordset("Cadastro")
contaReg = rs.RecordCount
End Sub
