[Resolvido]salvar dados de textbox e combobox no mesmo form em uma tabela.

Boa noite, gostaria de ajuda para salvar os dados de um form com textbox e combobox em uma tabela.

Aguardo contato.

Desde já agradeço.

Carlos Barros

Se form e campos forem acoplados, basta alterar o conteúdo que já fica salvo. Se form formulário desvinculado, dê uma procurada por RecordSet no forum.

Infelizmente desta vez não encontrei o que procurava.

Pode me ajudar?

Tenho um form onde eu possuo diversos campos e os mesmos preciso salvar em uma tabela e não estou conseguindo.

Você ainda não falou se o formulário e os campos são vinculados à tabela ou se o formulário é desvinculado.

o form tem campos vinculados a tabela que quero popular e também campos desvinculados.

Por que não vincula todos os campos? Assim basta alterá-los para que já fique tudo gravado.

Eu não sei como vincular campos. E ainda tenho o fato que o form pega dados de 2 tabelas diferentes.

Espero ter explicado corretamenta a você.

Explique melhor que dados vem de onde e que dados serão gravados aonde. Ou pode tentar vincular esses campos desvinculados aos campos da tabela aonde eles devem ser gravados. Se essa tabela for a origem do formulário, basta clicar dentro de cada campo e digitar o nome do campo da tabela a que eles serão vinculados. Se for outra tabela, tente o mesmo procedimento colocando tambem o nome da tabela assim:

NomeTabela.NomeDoCampo

como exatamente faço? e após fazer isso posso criar um botão SALVAR no assistente e o mesmo irá gravar na tabela.

Como falei acima, basta escrever o nome do campo da tabela dentro do campo do formulário em modo estrutura. Abra o formulário em modo estrutura e dê dois cliques no campo para inserir dentro dele o nome do campo da tabela aonde o dados desse campo será gravado.

após feito este procedimento posso criar o botão salvar registro no wizard mesmo?

Não é preciso botão. Se os campos forem vinculados, ao digitar algo neles ou alterar, já fica gravado.

ok entendi. mas caso eu queria escrever codigo para que ao clicar no botão salvar por exemplo eu salve todos os campos do formulário na tabela especifica.
Você possui exemplo de código?
ou se tiver um exemplo em access tb agradeço, tenho o access 2007 aqui.
E gostaria tb de um exemplo de selmed onde diversos campos esão num único campo textbox.

Agradeço a ajuda.

Carlos.. mas isto está meio confuso..

se quisere poste o BD que olhamos para voce


Saudações

Tenho um formulário onde possuo os tipos de campos: combobox, checkbox e textbox e
gostaria que os mesmos fossem salvos quando eu clicar no botão SALVAR REGISTRO
numa única tabela.

Aguardo contato com resolução.

Carlos Barros

Amigo Carlos Barros

Leia por favor os postes anteriores. Quer o Grande Criquio, quer o Grande Haryshon deram-lhe soluções. O último pediu-lhe para colocar a BD aqui ou enviar para um email de um Moderador ou do próprio Haryshon.

Proceda conforme lhe foi indicado e lembre-se que as pessoas ajudam cheias de boa vontade e só por isso. Obrigado.

Como o Criquio observou se tais campos estiverem no form e o mesmo tiver origem na tabela.. isto é feito automaticamente ao preencher os campos...Por isso que estamos em duvida do que pretende...

Por isso o Criquio lhe perguntou se o form é desvinculado...

Há varias soluções.. mas esta dificil lhe indicar a mais correta pois nos falta informações..

Saudações

O form é desvinculado.

tens que usar um recordset para isto



Private SeuBotaoSalvar_AfterUpdate()
'============================================================
'por: Harysohn Pina em 04/07/2011 para Carlos Barros – Fórum MaximoAccess
'=============================================================
On Error GoTo Err_ SeuBotaoSalvar _AfterUpdate
Dim db As DAO.Database 'Variavel para o BD
Dim ws As DAO.Workspace 'Variável para o Workspace
Dim rs As DAO.Recordset 'Variável para o recordSet
Dim StrSQLSalvar 'Variável para receber os dados da tabela

'Seta o WorksPace e o BD para fazer a atualização da tabela, obseve que tem que modifica o nome do BD conforme o nome que vais usar, no caso está como NomedoSeuBD

Set ws = DBEngine.Workspaces(0)
Set db = ws.OpenDatabase(CurrentProject.Path & "\NomdeDoSeuBD", False, False, "MS Access;PWD=senha")

'Aqui a variável faz a seleção de todos os campos da tabela selecionando o registro que coincide com a CixaTexto COdProduto
StrSQLEstoque = "SELECT * FROM SuaTabela WHERE (((SuaTabela.CampoCodigo)=" & Me.Campocodigo & "));"

Set rs = db.OpenRecordset(StrSSalvar)


rs.Edit ' Abre a edição do registro para tabela Produtos
rs![NomedoCampoNaTabela] = Me.SuaCaixaTexto
*** pode fazer assim para todas as caixas texto que quer atualizar

rs.Update ' Atualiza o registro para tabela Produtos

'Encerra o Banco db e o recordSet
rs.Close
db.Close
Set rs = Nothing
Set db = Nothing
Exit_ SeuBotaoSalvar _AfterUpdate:
Exit Sub
Err_ SeuBotaoSalvar _AfterUpdate:
MsgBox err.Description, vbCritical, "Erro Indeterminado"
Resume Exit_ SeuBotaoSalvar _AfterUpdate
End Sub

Vou testar em casa hoje a noite e volto a contactar vocês, peço desculpas por não ter entendido a pergunta anterior do colega.

Abçs

Carlos

Tenho uma única dúvida quanto ao código que você me passou.

A linha que contém

'Aqui a variável faz a seleção de todos os campos da tabela selecionando o registro que coincide com a CixaTexto COdProduto
StrSQLEstoque = "SELECT * FROM SuaTabela WHERE (((SuaTabela.CampoCodigo)=" & Me.Campocodigo & "));"

O item StrSQLEstoque refere-se ao banco ou a tabela? refere-se exatamente ao que? Já que meu DB não contém está "tabela".

Aguardo contato

voce digita o nome da sua tabela....

Feito. Obrigado vou testar hoje a noite em casa.

Ps. CampoCódigo é o campo da sua chave primaria...
Convem observar que para fazer isso deve ter a caixa texto com esse campo no form...


se caso for registro novo, avise porque o codigo acima muda um pouco

Boa noite

Sim será para registro novo.

Aguardo continuidade da ajuda.

Amigão.. na instrução que te passei anteriormente substitua o rs.Edit por:

rs.AddNew ' Abre a edição do registro

e em seguida os campos que deseja adicionar o registro condizente com sua caixa texto no form

Saudações...

Então para finalizar este tópico uma ultima informação.

Então faço a modificação de rs.edit para rs.new e toda a vez que eu clicar no botão "salvar" ele salva os dados e começa um novo registro isso?

Ele pega os dados contidos em suas caixa texto e salva em uma nova linha (novo registro)

Para isto tem que especificar todos os campos que deseja salvar

No exemplo coloquei apenas um campo, mais pode fazer com quantos a sua tabela tiver, logicamente se os tiver em seu form...


Será um novo registro

Obrigado.

Por mim pode fechar o tópico, entendi e vou fazer os testes hoje a noite.

Se resolveu.. tu mesmo o fecha.. ai embaixo tens um botão resolvido

Saudações

Resolvido