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]Salvar os valores da ListBox

    avatar
    ryamato
    Novato
    Novato


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 3
    Registrado : 13/07/2016

    [Resolvido]Salvar os valores da ListBox Empty [Resolvido]Salvar os valores da ListBox

    Mensagem  ryamato Qua 20 Jul 2016, 03:40

    Oi pessoal, espero que me ajudem...

    Ja faz um bom tempo que tenho procurado uma solução para o meu problema e não consigo resolver. Efetuei varias buscas aqui no forum e pela internet, e consegui montar este formulário de teste. Como ele funciona, e o que quero que funcione:

    Formulario Login1

    Quando clico no botão PROCURAR eu escolho umas imagem no meu pc, os caminhos delas são add na LISTBOX. Se clico na Listbox a imagem é carregada no form, duplo clique ela é aberta no windows.

    Eu estou tentando salvar esta ListBox no banco de dados, para que quando eu salve e abra um registro, ela esteja exatamente como se tivese acabado se selecionar as imagens. Assim podendo vizualizar ou abrir as fotos que eu tiver salvado no registro.

    Espero que me ajudem a resolver este problema que vem tirando meu sono...

    Obrigado desde já.
    Anexos
    [Resolvido]Salvar os valores da ListBox AttachmentCQ.zip
    Você não tem permissão para fazer download dos arquivos anexados.
    (69 Kb) Baixado 11 vez(es)
    FabioPaes
    FabioPaes
    Maximo VIP
    Maximo VIP


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 3914
    Registrado : 14/08/2013

    [Resolvido]Salvar os valores da ListBox Empty Re: [Resolvido]Salvar os valores da ListBox

    Mensagem  FabioPaes Qua 20 Jul 2016, 05:02

    Deu um Trabalhinho amigo, mas veja se é assim que precisa...
    Anexos
    [Resolvido]Salvar os valores da ListBox AttachmentCQ.zip
    Você não tem permissão para fazer download dos arquivos anexados.
    (39 Kb) Baixado 36 vez(es)


    .................................................................................
    _____________________________________________________________________
    Achou a solução para sua dúvida? Não seja Egoísta, Compartilhe com todos!
    A dica do Colega foi útil? Agradeça!

    O importante não saber tudo, mas sim a Onde procurar!
    avatar
    ryamato
    Novato
    Novato


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 3
    Registrado : 13/07/2016

    [Resolvido]Salvar os valores da ListBox Empty Re: [Resolvido]Salvar os valores da ListBox

    Mensagem  ryamato Qua 20 Jul 2016, 11:57

    Dei uma testada aqui, e parece que deu certo, mas as vezes parece que nao esta salvando, vou analizar melhor e ver o que eu consigo fazer agora. Mas foi de grande ajuda!!! Se der certo era exatamente isso que eu estva precisando.Laughing

    Muito obrigado mesmo!! Very Happy Very Happy

    Depois digo como ficou, cheers
    avatar
    ryamato
    Novato
    Novato


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 3
    Registrado : 13/07/2016

    [Resolvido]Salvar os valores da ListBox Empty Re: [Resolvido]Salvar os valores da ListBox

    Mensagem  ryamato Qua 20 Jul 2016, 23:09

    Dei uma olhada melhor, e quando eu adicionava um novo registro, não estava sendo salvo os valores da listbox. Resolvi o problema ao adicionar o "Me.Refresh" no codigo.

    Código:


    ... Private Sub cmdFileDialog_Click()

     Me.Refresh

    Dim F As String
    ' This requires a reference to the Microsoft Office 11.0 Object Library.

       Dim fDialog As Office.FileDialog
       Dim varFile As Variant ...

    Não sei se assim é a maneira correta, mas funcionou.

    Agradeço a ajuda. Smile Very Happy
    FabioPaes
    FabioPaes
    Maximo VIP
    Maximo VIP


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 3914
    Registrado : 14/08/2013

    [Resolvido]Salvar os valores da ListBox Empty Re: [Resolvido]Salvar os valores da ListBox

    Mensagem  FabioPaes Qui 21 Jul 2016, 00:35

    O problema se dava pois o registro ainda nao estava na tabela, e quando executava a atualização nao havia ainda o que atualizar...

    Basva rodar um docmd.RunCommand acCmdSaveRecord antes do Update! Assim ele salva o registro e em seguida atualiza o Campo.

    Ate a proxima!


    .................................................................................
    _____________________________________________________________________
    Achou a solução para sua dúvida? Não seja Egoísta, Compartilhe com todos!
    A dica do Colega foi útil? Agradeça!

    O importante não saber tudo, mas sim a Onde procurar!

    Conteúdo patrocinado


    [Resolvido]Salvar os valores da ListBox Empty Re: [Resolvido]Salvar os valores da ListBox

    Mensagem  Conteúdo patrocinado


      Data/hora atual: Sex 26 Abr 2024, 19:41