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

3 participantes

    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 : 1815
    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 : 1815
    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 : 218
    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



      Data/hora atual: 26/9/2021, 10:30