Bom dia!
Estou querendo incluir uma imagem no meu form, meu Access é versão 2003.
Eu utilizei uma sugestão que foi inclusa em nosso fórum que é:
Dim CxDialog As Office.FileDialog
Set CxDialog = Application.FileDialog(msoFileDialogFilePicker)
With CxDialog
'define como seleção simples
.AllowMultiSelect = False
' Define o titulo da caixa de diálogo
.Title = "Selecione uma imagem"
' limpa os filtros
.Filters.Clear
'adiciona novos filtros
.Filters.Add "JPG", "*.jpg"
.Filters.Add "BMP", "*.bmp"
.Filters.Add "Todos os arquivos", "*.*"
'mostra a caixa de dialogo
If .Show = True Then 'se alguma imagem tiver sido escolhida
'atribuie o endereço da imagem ao campo link
Me.btnLocalizar = .SelectedItems(1)
'exibe a foto
Me.img.Visible = True
'carrega a foto
Me.img.Picture = Me.btnLocalizar
End If
End With
End Sub
E no formulário (No Atual) principal eu deveria incluir a instrução:
If Me.link <> nil Then
Me.Imagem.Visible = True
Me.Imagem.Picture = Me.link
Else
Me.Imagem.Visible = False
End If
End Sub
Está dando erro na parte, ele diz que o nil não está declarado.
If Me.link <> nil Then
Alguém consegue me ajudar?
Obrigada
Estou querendo incluir uma imagem no meu form, meu Access é versão 2003.
Eu utilizei uma sugestão que foi inclusa em nosso fórum que é:
Dim CxDialog As Office.FileDialog
Set CxDialog = Application.FileDialog(msoFileDialogFilePicker)
With CxDialog
'define como seleção simples
.AllowMultiSelect = False
' Define o titulo da caixa de diálogo
.Title = "Selecione uma imagem"
' limpa os filtros
.Filters.Clear
'adiciona novos filtros
.Filters.Add "JPG", "*.jpg"
.Filters.Add "BMP", "*.bmp"
.Filters.Add "Todos os arquivos", "*.*"
'mostra a caixa de dialogo
If .Show = True Then 'se alguma imagem tiver sido escolhida
'atribuie o endereço da imagem ao campo link
Me.btnLocalizar = .SelectedItems(1)
'exibe a foto
Me.img.Visible = True
'carrega a foto
Me.img.Picture = Me.btnLocalizar
End If
End With
End Sub
E no formulário (No Atual) principal eu deveria incluir a instrução:
If Me.link <> nil Then
Me.Imagem.Visible = True
Me.Imagem.Picture = Me.link
Else
Me.Imagem.Visible = False
End If
End Sub
Está dando erro na parte, ele diz que o nil não está declarado.
If Me.link <> nil Then
Alguém consegue me ajudar?
Obrigada