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

    [Resolvido]Inserir imagem em formulário (explicação clara para iniciantes)

    thiaguinho1
    thiaguinho1
    thiaguinho1
    Intermediário
    Intermediário


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 77
    Registrado : 05/08/2011
    • Mensagem nº1

    [Resolvido]Inserir imagem em formulário (explicação clara para iniciantes) Empty Inserir imagem em formulário (explicação clara para iniciantes)

    Mensagem  thiaguinho1 13/1/2012, 23:10

    Olá, já pesquisei no fórum e seii que tem uns tópicos falando sobre esse assunto. mais gostaria de uma explicação tipo passo-a-passo de como inserir uma imagem em um formulário de cadastro. Gostaria de um botão que abrisse a caixa para escolher a imagem e depois um campo objeto OLE para mostrar a imagem, tipo assim. Como faço isso?

    Grato, thiago.


    .................................................................................
    Access: 2003 e 2010
    Windows 7 32 bits
    • Ir para o topo
    Convidad
    avatar
    Convidad
    Convidado


    • Mensagem nº2

    [Resolvido]Inserir imagem em formulário (explicação clara para iniciantes) Empty Re: [Resolvido]Inserir imagem em formulário (explicação clara para iniciantes)

    Mensagem  Convidad 13/1/2012, 23:31

    Olá

    Neste exemplo não uso imagens acopladas, pois engordam muito o bd.
    Elas são armazenadas numa pasta a escolha.
    Estudando o exemplo, talvez tenha as respostas que precisa.

    Exemplo
    • Ir para o topo
    thiaguinho1
    thiaguinho1
    thiaguinho1
    Intermediário
    Intermediário


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 77
    Registrado : 05/08/2011
    • Mensagem nº3

    [Resolvido]Inserir imagem em formulário (explicação clara para iniciantes) Empty Re: [Resolvido]Inserir imagem em formulário (explicação clara para iniciantes)

    Mensagem  thiaguinho1 14/1/2012, 15:34

    ok irei ver o bd e mandar notícias, obrigado! rabbit


    .................................................................................
    Access: 2003 e 2010
    Windows 7 32 bits
    • Ir para o topo
    thiaguinho1
    thiaguinho1
    thiaguinho1
    Intermediário
    Intermediário


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 77
    Registrado : 05/08/2011
    • Mensagem nº4

    [Resolvido]Inserir imagem em formulário (explicação clara para iniciantes) Empty Re: [Resolvido]Inserir imagem em formulário (explicação clara para iniciantes)

    Mensagem  thiaguinho1 14/1/2012, 18:27

    Olha não entendi nada
    outros lugares já havia encontrado o exemplo tbm mas por isso não entendia
    são codigos diferentes não sei....

    Criei um campo Objeto Ole por nome de CampoImagem e o botão para adicionar a imagem por nome de AddPicture e o de remover a imagem por nome de RemovePicture Quero saber quais códigos devo adicionar no evento ' ao clicar' do botão AddPicture e do botão RemovePicture


    .................................................................................
    Access: 2003 e 2010
    Windows 7 32 bits
    • Ir para o topo
    Convidad
    avatar
    Convidad
    Convidado


    • Mensagem nº5

    [Resolvido]Inserir imagem em formulário (explicação clara para iniciantes) Empty Re: [Resolvido]Inserir imagem em formulário (explicação clara para iniciantes)

    Mensagem  Convidad 14/1/2012, 19:07

    Abra o exemplo que enviei (Filmes.mdb) em modo de estrutura (com Shift pressionado).
    Neste exemplo há vários forms com insersão de imagem, então abra, p.ex., o forFilmes (em modo design).
    Exiba a Folha de Propriedades e selecione o botão "Inserir", cujo nome é AddPicture.
    Na guia Eventos, na linha do evento Ao Clicar há um [Procedimento de evento]. Clique nesta linha e depois clique nos 3 pontinhos a direita, e verá o código do botão:

    Private Sub AddPicture_Click()
    On Error GoTo Trato
    ' Usar a caixa de diálogo Abrir arquivo a fim de escolher
    ' um nome de arquivo para a foto do ... .
    If IsNull(NomeFilme) Then
    NomeFilme.SetFocus
    Info "Informe o nome do Filme"
    Exit Sub
    End If
    getFileName
    Exit Sub
    Trato: MsgBox Err.Description
    End Sub

    Sub getFileName()
    On Error GoTo Trato
    ' Exibe a caixa de diálogo Abrir arquivo a fim de escolher um nome
    ' de arquivo para o registro de ... atual. Se o usuário
    ' selecionar um arquivo, essa função exibe-o no controle de imagem.
    Dim fileName As String
    Dim result As Integer
    With Application.FileDialog(msoFileDialogFilePicker)
    .Title = "Selecionar foto de capa de filme"
    .Filters.Add "Todos os arquivos", "*.*"
    .Filters.Add "JPEGs", "*.jpg"
    .Filters.Add "Bitmaps", "*.bmp"
    .FilterIndex = 2
    .AllowMultiSelect = False
    .InitialFileName = fncOrigem(mFoto) 'veja esta função no módulo mdPasta
    result = .Show
    If (result <> 0) Then
    fileName = Trim(.SelectedItems.Item(1))
    Me![ImagePath].Visible = True
    Me![ImagePath].SetFocus
    Me![ImagePath].Text = fileName
    Me![Park].SetFocus
    Me![ImagePath].Visible = False
    End If
    End With
    Exit Sub
    Trato: MsgBox Err.Description
    End Sub

    No botão Remover, cujo nome é RemovePicture, há código para remover a imagem:

    Private Sub RemovePicture_Click()
    On Error GoTo Trato
    ' Remover o nome do arquivo do registro do ... e
    ' exibir o rótulo da mensagem de erro.
    If IsNull(NomeFilme) Then
    NomeFilme.SetFocus
    Info "Informe o nome do Filme"
    Exit Sub
    End If
    Me![ImagePath] = ""
    hideImageFrame
    ErrorMsg.Visible = True
    Exit Sub
    Trato: MsgBox Err.Description
    End Sub

    Obs.:
    Use um controle Imagem para as fotos. Este controle no Access2003 é dasacoplado por natureza, mas, se não me engano, nas versões novas dá pra acoplar. Melhor é usar desacoplado (sem o controle na tabela), porque imagens acopladas causam um grande aumento no tamanho do seu bd.
    • Ir para o topo
    thiaguinho1
    thiaguinho1
    thiaguinho1
    Intermediário
    Intermediário


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 77
    Registrado : 05/08/2011
    • Mensagem nº6

    [Resolvido]Inserir imagem em formulário (explicação clara para iniciantes) Empty Re: [Resolvido]Inserir imagem em formulário (explicação clara para iniciantes)

    Mensagem  thiaguinho1 14/1/2012, 20:58

    Erro: O método 'FileDialog' do objeto '_Application' falhor

    isso que diz...


    .................................................................................
    Access: 2003 e 2010
    Windows 7 32 bits
    • Ir para o topo
    Convidad
    avatar
    Convidad
    Convidado


    • Mensagem nº7

    [Resolvido]Inserir imagem em formulário (explicação clara para iniciantes) Empty Re: [Resolvido]Inserir imagem em formulário (explicação clara para iniciantes)

    Mensagem  Convidad 14/1/2012, 21:19

    Deve estar faltando a referência a Microsoft Office 11.0 Object Library.
    • Ir para o topo
    thiaguinho1
    thiaguinho1
    thiaguinho1
    Intermediário
    Intermediário


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 77
    Registrado : 05/08/2011
    • Mensagem nº8

    [Resolvido]Inserir imagem em formulário (explicação clara para iniciantes) Empty Re: [Resolvido]Inserir imagem em formulário (explicação clara para iniciantes)

    Mensagem  thiaguinho1 14/1/2012, 22:21

    Como assim?
    Question


    .................................................................................
    Access: 2003 e 2010
    Windows 7 32 bits
    • Ir para o topo
    Convidad
    avatar
    Convidad
    Convidado


    • Mensagem nº9

    [Resolvido]Inserir imagem em formulário (explicação clara para iniciantes) Empty Re: [Resolvido]Inserir imagem em formulário (explicação clara para iniciantes)

    Mensagem  Convidad 14/1/2012, 22:49

    Abra um módulo, no menu Ferramentas clique em Referências, localize Microsoft Office 11.0 Object Library, e marque esta referência.
    Deve ser isso.
    • Ir para o topo
    thiaguinho1
    thiaguinho1
    thiaguinho1
    Intermediário
    Intermediário


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 77
    Registrado : 05/08/2011
    • Mensagem nº10

    [Resolvido]Inserir imagem em formulário (explicação clara para iniciantes) Empty Re: [Resolvido]Inserir imagem em formulário (explicação clara para iniciantes)

    Mensagem  thiaguinho1 16/1/2012, 20:36

    Não estou conseguindo, aparece que este código está com registros do aplicativo de filmes e isso causa transtornos nos códigos. Além de dar mensagem que objeto "Sub' ou num sei o que estão errados...


    .................................................................................
    Access: 2003 e 2010
    Windows 7 32 bits
    • Ir para o topo
    thiaguinho1
    thiaguinho1
    thiaguinho1
    Intermediário
    Intermediário


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 77
    Registrado : 05/08/2011
    • Mensagem nº11

    [Resolvido]Inserir imagem em formulário (explicação clara para iniciantes) Empty Re: [Resolvido]Inserir imagem em formulário (explicação clara para iniciantes)

    Mensagem  thiaguinho1 16/1/2012, 20:37

    Marque o Microsoft Office 14.0 Object Library, porque não encontrei o 11.0


    .................................................................................
    Access: 2003 e 2010
    Windows 7 32 bits
    • Ir para o topo
    Convidad
    avatar
    Convidad
    Convidado


    • Mensagem nº12

    [Resolvido]Inserir imagem em formulário (explicação clara para iniciantes) Empty Re: [Resolvido]Inserir imagem em formulário (explicação clara para iniciantes)

    Mensagem  Convidad 16/1/2012, 21:03

    Pensei que estivesse usando o Access2003.
    O msoFileDialogFilePicker exibe a caixa de diálogo Salvar para indicação do arquivo de imagem.
    Não sei qual o equivalente no Office/Access2010, mas quem sabe você cria um tópico a respeito. Usuários do A2010 devem saber esclarecer.

    O caminho da imagem fica armazenado no campo CapaFilme. Vc pode adaptar para inserir a imagem manualmente, sem usar a caixa de diálogo do sistema.
    • Ir para o topo
    thiaguinho1
    thiaguinho1
    thiaguinho1
    Intermediário
    Intermediário


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 77
    Registrado : 05/08/2011
    • Mensagem nº13

    [Resolvido]Inserir imagem em formulário (explicação clara para iniciantes) Empty Re: [Resolvido]Inserir imagem em formulário (explicação clara para iniciantes)

    Mensagem  thiaguinho1 17/1/2012, 22:15

    uso o 2003 sim


    .................................................................................
    Access: 2003 e 2010
    Windows 7 32 bits
    • Ir para o topo
    Convidad
    avatar
    Convidad
    Convidado


    • Mensagem nº14

    [Resolvido]Inserir imagem em formulário (explicação clara para iniciantes) Empty Re: [Resolvido]Inserir imagem em formulário (explicação clara para iniciantes)

    Mensagem  Convidad 17/1/2012, 22:31

    Mas então a referência Microsoft Office 11.0 Object Library está lá.
    É só localizar e marcar.
    • Ir para o topo
    criquio
    criquio
    criquio
    Moderador Global
    Moderador Global


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 11229
    Registrado : 30/12/2009
    • Mensagem nº15

    [Resolvido]Inserir imagem em formulário (explicação clara para iniciantes) Empty Re: [Resolvido]Inserir imagem em formulário (explicação clara para iniciantes)

    Mensagem  criquio 29/11/2012, 16:05

    DICA: Observe o caminho da referência 14.0 e procure um caminho semelhante mas procurando pela pasta do Office 11.0. Lá terá uma biblioteca de nome igual à que está marcada na referência do 14.0. Basta selecionar ela e abri-la.

    Estou marcando esse tópico como Resolvido. Se necessário, pode voltar a abri-lo.


    .................................................................................
    Meu novo site: www.vcssistemas.com.br
    Clique aqui e veja um vídeo que explica como fazer pesquisas no forum.

    DICA: Quando precisar inserir um exemplo do seu aplicativo, siga os procedimentos abaixo:
    1 - faça uma cópia do aplicativo
    2 - retire tudo que não for necessário à solução do problema, exceto o que o aplicativo precisar para funcionar
    3 - use o Compactar/Reparar
    4 - compacte o aplicativo em zip ou rar (zip para postagem como anexo na mensagem)

    Agradeça a quem lhe ajudou, clicando no joinha de uma das mensagens do usuário.
    Positive as mensagens que achar útil, no canto superior direito delas.
    • Ir para o topo
    Conteúdo patrocinado

    Conteúdo patrocinado


    • Mensagem nº16

    [Resolvido]Inserir imagem em formulário (explicação clara para iniciantes) Empty Re: [Resolvido]Inserir imagem em formulário (explicação clara para iniciantes)

    Mensagem  Conteúdo patrocinado

    • Ir para o topo
      Data/hora atual: 7/11/2024, 19:34