MaximoAccess

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

Obrigado

Administração do MaximoAccess

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

    Como salvar campos de um listbox no campo correspondente numa outra tabela

    avatar
    Toto44
    Novato
    Novato

    Respeito às Regras 100%

    Sexo : Feminino
    Localização : Portugal
    Mensagens : 3
    Registrado : 21/09/2020

    Como salvar campos de um listbox no campo correspondente numa outra tabela Empty Como salvar campos de um listbox no campo correspondente numa outra tabela

    Mensagem  Toto44 em 14/10/2020, 12:18

    Olá,

    Há muito tempo que não utilizava access.

    Sempre fui uma utilizadora intermédia mas com o passar dos anos e deixando de utilizar acess fui esquecendo....

    Tenho um problema!

    Eu tenho um formulário de inserção de dados, na tabela B.
    Neste existe uma listbox (que tem 6 campos) cujos dados veem da tabela A.
    Eu procuro o registo certo e seleciono. Até aqui tudo bem!

    O problema é que qdo salvo, o que já inseri nos outros campos e a selecção na listbox, não consigo que a informação seja registada na tabela B nos campos correspondentes.

    Isto é apenas é registado na tabela B os campos "independentes" e o que vem da listbox fica sem registo na tabela B

    Penso que só com código é que resolvo o problema mas não consigo encontrar um script que se adeque, minimamente, a minha situação!

    Envio em anexo um prtscn para melhor vizualização.

    Preciso de um help! Smile

    Obrigada
    crysostomo
    crysostomo
    VIP
    VIP

    Respeito às Regras 50%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 1383
    Registrado : 23/01/2018

    Como salvar campos de um listbox no campo correspondente numa outra tabela Empty Re: Como salvar campos de um listbox no campo correspondente numa outra tabela

    Mensagem  crysostomo em 14/10/2020, 12:32

    Bom dia amigo. Com sqql. No momento não estou com o PC.
    Deixa seu vdd aqui com as partes que nos mesmos com ele e deixamos explicações.


    .................................................................................
    Uma mão ajuda a outra.
    Feliz aquele que transfere o que sabe e aprende o que ensina.
    avatar
    Toto44
    Novato
    Novato

    Respeito às Regras 100%

    Sexo : Feminino
    Localização : Portugal
    Mensagens : 3
    Registrado : 21/09/2020

    Como salvar campos de um listbox no campo correspondente numa outra tabela Empty Re: Como salvar campos de um listbox no campo correspondente numa outra tabela

    Mensagem  Toto44 em 15/10/2020, 09:10

    Agradeço imenso a ajuda mas a minha organização não permite VD. Não tenho como o fazer.



    crysostomo
    crysostomo
    VIP
    VIP

    Respeito às Regras 50%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 1383
    Registrado : 23/01/2018

    Como salvar campos de um listbox no campo correspondente numa outra tabela Empty Re: Como salvar campos de um listbox no campo correspondente numa outra tabela

    Mensagem  crysostomo em 15/10/2020, 22:13

    Código:
    Set db = CurrentDb
     ssql = "INSERT INTO TabelaA"
       
      ' valor do campo da tabela
       ssql = ssql & "("
       ssql = ssql & "  NomeDeTal"
       ssql = ssql & " ,horas"
       ssql = ssql & ")"
     'valor do formulário
       ssql = ssql & " VALUES"
       ssql = ssql & "("
       ssql = ssql & "  '" & Trim(Me.txtNomeDeTal) & "'"
       sql = ssql & " ,'" & Trim(Me.txtHoras) & "'"
       ssql = ssql & ")"
       db.Execute ssql

    ssql = "INSERT INTO TabelaB"
     ssql = "INSERT INTO TabelaA"
       
      ' valor do campo da tabela
       ssql = ssql & "("
       ssql = ssql & "  NomeDeTal"
       ssql = ssql & " ,horas"
       ssql = ssql & ")"
     'valor do formulário
       ssql = ssql & " VALUES"
       ssql = ssql & "("
       ssql = ssql & "  '" & Trim(Me.txtNomeDeTal) & "'"
       sql = ssql & " ,'" & Trim(Me.txtHoras) & "'"
       ssql = ssql & ")"
       db.Execute ssql

    É  assim que eu  faço quando mando para mais de uma tabela ao selecionar ou clicar duas vezes  tente adaptar.


    .................................................................................
    Uma mão ajuda a outra.
    Feliz aquele que transfere o que sabe e aprende o que ensina.
    avatar
    Toto44
    Novato
    Novato

    Respeito às Regras 100%

    Sexo : Feminino
    Localização : Portugal
    Mensagens : 3
    Registrado : 21/09/2020

    Como salvar campos de um listbox no campo correspondente numa outra tabela Empty Re: Como salvar campos de um listbox no campo correspondente numa outra tabela

    Mensagem  Toto44 em 16/10/2020, 09:29

    Muito obrigado.


    Ontem usei sql como tinha dito e consegui que funcionasse.

    Mas copiava todos os campos e não só o campo selecionado na listbox, que era o que eu queria!



    Vou usar esse seu código e fazer figas para que dê certo! Very Happy

    crysostomo gosta desta mensagem


      Data/hora atual: 24/10/2020, 06:52