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


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

    avatar
    Toto44
    Novato
    Novato

    Respeito às regras : 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 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
    Maximo VIP
    Maximo VIP

    Respeito às regras : Respeito às Regras 50%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 1686
    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 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 : 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 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
    Maximo VIP
    Maximo VIP

    Respeito às regras : Respeito às Regras 50%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 1686
    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 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 : 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 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

    Carvalho
    Carvalho
    Avançado
    Avançado

    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 211
    Registrado : 19/01/2013

    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  Carvalho 31/10/2020, 12:52

    Só um pitaco:
    Cole o código abaixo em um botão.

    Código:

    Dim db As Database
    Dim Obj As Variant
    Set db = CurrentDb()
    Dim tb As Recordset
    'Dim tb2 As Recordset

    'abri o bd para inserir que inserir as informações
    Set tb = CurrentDb.OpenRecordset("TbCorrigirEntradaPintura")

    'percorre a listbox e pega apenas os itens selecionados
    For Each Obj In Me!Lista.ItemsSelected
    With tb
    .AddNew

    tb("campo1dasuatabela").Value = Me!Lista.Column(0, Obj)
    tb("campo2dasuatabela").Value = Me!Lista.Column(1, Obj)
    tb("campo3dasuatabela").Value = Me!Lista.Column(2, Obj)
    tb("campo4dasuatabela").Value = Me!Lista.Column(3, Obj)

    .Update
    End With
    Next Obj

    tb.Close
    Set tb = Nothing
    db.Close
    Set db = Nothing



    Conteúdo patrocinado

    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  Conteúdo patrocinado


      Data/hora atual: 14/5/2021, 11:17