Início![[Resolvido]Gravar listbox em tabela Empty](https://2img.net/i/empty.gif)
Eneas Sáb 07 maio 2022, 12:52Olá, amigos
Por gentileza gostaria de saber como gravar todo o conteúdo de uma listbox em uma tabela...
Desde já agradeço...
Por gentileza gostaria de saber como gravar todo o conteúdo de uma listbox em uma tabela...
Desde já agradeço...
3 participantes
[Resolvido]Gravar listbox em tabela
Eneas- Intermediário
- Respeito às regras :
Sexo :
Localização :
Mensagens : 123
Registrado : 04/01/2012
DamascenoJr.- Moderador
- Respeito às regras :
Sexo :
Localização :
Mensagens : 3845
Registrado : 22/11/2016
Em um campo só ou cada linha em um registro diferente?
E também, de onde vem os dados da que alimentam a listbox senão de uma tabela?
E também, de onde vem os dados da que alimentam a listbox senão de uma tabela?
.................................................................................
Ajude-se a ser ajudado, anexe seu projeto.
Sempre tente entender o código, não somente copie e cole.
Positive as mensagens que achar útil clicando no '+' no canto superior direito delas.
Eneas- Intermediário
- Respeito às regras :
Sexo :
Localização :
Mensagens : 123
Registrado : 04/01/2012
Em um campo só ou cada linha em um registro diferente?
- Toda a listbox... (Todas as linhas)
E também, de onde vem os dados da que alimentam a listbox senão de uma tabela?
- Os dados vem de outras tabelas com filtros específicos...
- Toda a listbox... (Todas as linhas)
E também, de onde vem os dados da que alimentam a listbox senão de uma tabela?
- Os dados vem de outras tabelas com filtros específicos...
DamascenoJr.- Moderador
- Respeito às regras :
Sexo :
Localização :
Mensagens : 3845
Registrado : 22/11/2016
Anexe um exemplo.
.................................................................................
Ajude-se a ser ajudado, anexe seu projeto.
Sempre tente entender o código, não somente copie e cole.
Positive as mensagens que achar útil clicando no '+' no canto superior direito delas.
Eneas- Intermediário
- Respeito às regras :
Sexo :
Localização :
Mensagens : 123
Registrado : 04/01/2012
Estou enviando o projeto para analise.
Como disse, estou tentando gravar os dados da listbox em uma tabela (OFERTADBF) e também gostaria de gravar alguns campos do formulário nessa nova tabela.
A Ajuda de voces será muito bem vinda.
Desde já agradeço...
Como disse, estou tentando gravar os dados da listbox em uma tabela (OFERTADBF) e também gostaria de gravar alguns campos do formulário nessa nova tabela.
A Ajuda de voces será muito bem vinda.
Desde já agradeço...
- Anexos
![[Resolvido]Gravar listbox em tabela Attachment](https://2img.net/i/fa/attachment.png)
Projeto002.zip - Você não tem permissão para fazer download dos arquivos anexados.
- (55 Kb) Baixado 12 vez(es)
Eneas- Intermediário
- Respeito às regras :
Sexo :
Localização :
Mensagens : 123
Registrado : 04/01/2012
Alguém pode me ajudar?
Marcelo David- Moderador
- Respeito às regras :
Sexo :
Localização :
Mensagens : 3947
Registrado : 21/04/2011
Olá, bom dia!
Faltaram algumas informações:
- Quando você fala gravar todos os campos da listbox, você se refere a todas as colunas da listbox?
- Precisamos saber que coluna da listbox deve ir para qual coluna da tabela.
- Quais campos do formulário devem também ser gravados na tabela? E se esses campos se repetem para cada registro da tabela?
- O DamascenoJr fez uma pergunta importante, porém não entendi bem a resposta.
Sem essas informações (e talvez outras) será bem difícil alguém conseguir lhe ajudar, mas queremos sim te ajudar.
Aguardamos,
Faltaram algumas informações:
- Quando você fala gravar todos os campos da listbox, você se refere a todas as colunas da listbox?
- Precisamos saber que coluna da listbox deve ir para qual coluna da tabela.
- Quais campos do formulário devem também ser gravados na tabela? E se esses campos se repetem para cada registro da tabela?
- O DamascenoJr fez uma pergunta importante, porém não entendi bem a resposta.
Sem essas informações (e talvez outras) será bem difícil alguém conseguir lhe ajudar, mas queremos sim te ajudar.
Aguardamos,
.................................................................................
![[Resolvido]Gravar listbox em tabela Favicon-16x16](https://www.udemy.com/staticx/udemy/images/v8/favicon-16x16.png)
Domine Access e VBA Criando Um Incrível Sistema Financeiro - [Passo a passo] Access e VBA - Formulário Desacoplado - [Passo a passo]![[Resolvido]Gravar listbox em tabela Yt_16x10](https://i.servimg.com/u/f16/19/98/66/47/yt_16x10.png)
Conheça meu canal no Youtube e se inscreva.![[Resolvido]Gravar listbox em tabela Marcel11](https://i.servimg.com/u/f16/19/98/66/47/marcel11.png)
Eneas- Intermediário
- Respeito às regras :
Sexo :
Localização :
Mensagens : 123
Registrado : 04/01/2012
Desculpa se não expliquei direito, vou tentar
Tenho uma listbox filtrada com todos os campos que preciso para gerar uma tabela, cada campo corresponde a uma coluna específica, porém, pode haver mais de um registro.
Ex.
Filtro todos produtos que tenha a palavra "óleo" e que esteja ativo, haverá mais de um produto na minha listbox com os dados dos mesmos (Preço, código, etc) uma vez filtrado, gostaria de clicar em um botão e incluir todos registros em uma tabela.
Obrigado pela atenção
Tenho uma listbox filtrada com todos os campos que preciso para gerar uma tabela, cada campo corresponde a uma coluna específica, porém, pode haver mais de um registro.
Ex.
Filtro todos produtos que tenha a palavra "óleo" e que esteja ativo, haverá mais de um produto na minha listbox com os dados dos mesmos (Preço, código, etc) uma vez filtrado, gostaria de clicar em um botão e incluir todos registros em uma tabela.
Obrigado pela atenção
Marcelo David- Moderador
- Respeito às regras :
Sexo :
Localização :
Mensagens : 3947
Registrado : 21/04/2011
Ainda precisamos das repostas que pontuei na minha mensagem anterior.
Por exemplo:
Campo da tabela: NPESQUISA, CODPRO, DATA, PRECO, DATAINI, CDMOTOFE
Campo da ListBox: CODIGO, DESCRIÇÃO, QTD MD, PV_NORMAL, TOTAL_PV, PR_OFERTA
Como sabermos onde gravar cada coluna da listbox nas colunas da tabela?
E as outras dúvidas?
Por exemplo:
Campo da tabela: NPESQUISA, CODPRO, DATA, PRECO, DATAINI, CDMOTOFE
Campo da ListBox: CODIGO, DESCRIÇÃO, QTD MD, PV_NORMAL, TOTAL_PV, PR_OFERTA
Como sabermos onde gravar cada coluna da listbox nas colunas da tabela?
E as outras dúvidas?
.................................................................................
Domine Access e VBA Criando Um Incrível Sistema Financeiro - [Passo a passo] Access e VBA - Formulário Desacoplado - [Passo a passo] Conheça meu canal no Youtube e se inscreva.
Eneas- Intermediário
- Respeito às regras :
Sexo :
Localização :
Mensagens : 123
Registrado : 04/01/2012
Ok... Entendi as vossas perguntas.
Por exemplo:
NPESQUISA : (eu gravaria sempre 0 (zero))
CODPRO = CÓDIGO (da listbox)
DATA = Data preenchida em um campo no formulário
PRECO = PR_OFERTA (da listbox)
DATAINI = Data preenchida em um campo no formulário
CDMOTOFE: (eu gravaria sempre "99" é um campo carácter)
Esse é só um exemplo pq a listbox e tabela em questão tem mais campos, mas,creio q recebendo a resposta dessas questões em si, seria mais fácil elaborar uma solução.
Por exemplo:
NPESQUISA : (eu gravaria sempre 0 (zero))
CODPRO = CÓDIGO (da listbox)
DATA = Data preenchida em um campo no formulário
PRECO = PR_OFERTA (da listbox)
DATAINI = Data preenchida em um campo no formulário
CDMOTOFE: (eu gravaria sempre "99" é um campo carácter)
Esse é só um exemplo pq a listbox e tabela em questão tem mais campos, mas,creio q recebendo a resposta dessas questões em si, seria mais fácil elaborar uma solução.
Marcelo David- Moderador
- Respeito às regras :
Sexo :
Localização :
Mensagens : 3947
Registrado : 21/04/2011
Em um botão:
As datas para inserção considerei o campo do formulário CDataIniR.
- Código:
On Error GoTo trataerro
BeginTrans
For i = 1 To Me.ListaPromR.ListCount - 1
With Me.ListaPromR
CurrentDb.Execute "INSERT INTO OFERTADBF (NPESQUISA,CODPRO,DATA,PRECO,DATAINI,CDMOTOFE) " _
& "VALUES(0," & .Column(0, i) & ",#" & Format(Me.CDataIniR, "mm/dd/yyyy") & "#,'" _
& IIf(.Column(5, i) = "", 0, .Column(5, i)) & "',#" & Format(Me.CDataIniR, "mm/dd/yyyy") & "#,'99');"
End With
Next
CommitTrans
MsgBox "Informações gravadas com sucesso.", vbInformation, "Informação"
Exit Sub
trataerro:
Rollback
MsgBox Err.Description, vbExclamation, "Erro ao gravar: " & Err.Number
As datas para inserção considerei o campo do formulário CDataIniR.
.................................................................................
Domine Access e VBA Criando Um Incrível Sistema Financeiro - [Passo a passo] Access e VBA - Formulário Desacoplado - [Passo a passo] Conheça meu canal no Youtube e se inscreva.
Eneas- Intermediário
- Respeito às regras :
Sexo :
Localização :
Mensagens : 123
Registrado : 04/01/2012
Marcelo David
Muito Obrigado, deu certinho o seu código.
Aproveitei e aproveitei esse código para gravar outras tabelas com outras situações também.
Deus abençoe, amigo!
Muito Obrigado, deu certinho o seu código.
Aproveitei e aproveitei esse código para gravar outras tabelas com outras situações também.
Deus abençoe, amigo!
Marcelo David gosta desta mensagem
Marcelo David- Moderador
- Respeito às regras :
Sexo :
Localização :
Mensagens : 3947
Registrado : 21/04/2011
Fico feliz que deu certo! Obrigado pelo feedback e fique com Deus também!
.................................................................................
Domine Access e VBA Criando Um Incrível Sistema Financeiro - [Passo a passo] Access e VBA - Formulário Desacoplado - [Passo a passo] Conheça meu canal no Youtube e se inscreva.