MaximoAccess

Caro Usuário, antes de postar pela primeira vez, leia as regras do fórum.

https://www.maximoaccess.com/t48-regras-do-forum

Obrigado

Administração


Participe do fórum, é rápido e fácil

MaximoAccess

Caro Usuário, antes de postar pela primeira vez, leia as regras do fórum.

https://www.maximoaccess.com/t48-regras-do-forum

Obrigado

Administração

MaximoAccess

Gostaria de reagir a esta mensagem? Crie uma conta em poucos cliques ou inicie sessão para continuar.

Dicas Ms Access, Exemplos Ms Access, Codigos VBA Ms Access, SQL Ms Access


2 participantes

    Incluir Imagem no Form

    avatar
    patybatista
    Novato
    Novato


    Respeito às regras : Respeito às Regras 100%

    Sexo : Feminino
    Localização : Brasil
    Mensagens : 27
    Registrado : 05/09/2011

    Incluir Imagem no Form Empty Incluir Imagem no Form

    Mensagem  patybatista 16/4/2012, 13:53

    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
    Silvio
    Silvio
    Developer
    Developer


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 5078
    Registrado : 20/04/2011

    Incluir Imagem no Form Empty Re: Incluir Imagem no Form

    Mensagem  Silvio 19/4/2012, 00:35

    Boa noite...
    tente assim:
    If Me.link <> null Then


    .................................................................................
    Caso tenha resolvido a tua duvida, coloque o tópico como resolvido.
    www.maximoaccess.com/t860-resolucao-de-topicos

    "Quase tudo é possível quando se tem determinação e força de vontade. Não desista tão rápido."
    avatar
    patybatista
    Novato
    Novato


    Respeito às regras : Respeito às Regras 100%

    Sexo : Feminino
    Localização : Brasil
    Mensagens : 27
    Registrado : 05/09/2011

    Incluir Imagem no Form Empty Re: Incluir Imagem no Form

    Mensagem  patybatista 19/4/2012, 12:21

    Boa noite!

    Eu retirei o texto Optino Explict e deu certo.
    Obrigada pelo retorno.


    Conteúdo patrocinado


    Incluir Imagem no Form Empty Re: Incluir Imagem no Form

    Mensagem  Conteúdo patrocinado


      Data/hora atual: 19/5/2024, 09:39