[Resolvido]Salvar dados de text box não acoplado em tabela

Olá a todos!
Gostaria de um auxilio de vcs.

Tenho um form e algumas textbox que recebem os dados de uma listview e outros textbox onde o usuário insere dados para serem gravados em uma tabela.

Aí começa a minha dúvida, como eu faço para atribuir a um botão inserir o comando para que este pegue os dados das textbox (todas) e adicione a uma tabela (Ex: tblInfo), caso o dado que eu for inserir já exista nessa tabela, como faço para inserir somente as alterações.

Peço que me ajudem.

Algumas informações adicionais

Form com textbox nao acopladas

Olá leber,

Para adicionar dados a uma tabela vc precisa lançar mão de variáveis que representem os valores inseridos nas textboxes e utilizar a cláusula INSERT INTO suaTabela. Para adicionar valores com alterações a dados já existentes, vc utilizara a cláusula UPDATE suaTabela SET SeuCampo WHERE CodCampo = xCod (variável referente ao código do item na tabela). Você utilizar uma referência pelo formulário ao invés de uma variável:

Exemplos:

Código:


'Na tabela utilize campo Código do tipo Numeração Automática. Caso tenha que refazer a numeração, primeiro exclua o camp Código, salve a tabela e depois crie um novo campo Código e salve a tabela novamente.
Public Sub cmdInserir()
Dim strNome, strEndereco, strBairro As String
Dim strSQL As String
strNome = Forms!NomedoForm!Nome
strEndereco = Forms!NomedoForm!Endereco
strBairro = Forms!NomedoForm!Bairro

strSQL = "INSERT INTO SuaTabela (Nome,Endereco,Bairro) VALUES('" & strNome & "', '" & strEndereco & "', '" & strBairro & "')
currentdb.Execute strSQL



Código:


Public Sub cmdAtualizar()
Dim strSQL As String
Dim novoValor As Integer (ou Long, se for valores numéricos ou String, Boolean,Variant)

novoValor = Forms!NomedoForm!SeuCampo

strSQL = "UPDATE SuaTabela SET SeuCampo = " & novoValor & " WHERE Código = Forms!NomedoForm!Código ""
currentdb.Execute strSQL            'Lembrando que para String novoValor precisa ficar entre apóstrofos e aspas  ' " & novoValor & " '
End Sub


Prezado Good Guy,

O código para atualizar está dando um erro '3061'. Estou enviando o anexo.
Mais um vez peço me auxiliar.

Pensando no usuário da ferramenta, há a possibilidade de quando os dados estiverem inseridos nas textbox, haver um aviso se o dado é novo na tabela ou se já é existente. Quando isso ocorrer, um dos 2 botões fica Enable somente possibilitando clicar no botão correspondente a condição ou de atualização ou de inserção?


Muito obrigado,

Olá Leandro,

Modifique o código assim:

Código:

Private Sub Comando33_Click()
Dim strCodigo, strNome, strFilho As String
Dim strSQL As String
strCodigo = Forms!FTInformações!Codigo
strNome = Forms!FTInformações!Nome
strFilho = Forms!FTInformações!Filho


strSQL = "INSERT INTO TInformações (Codigo,Nome,Filho) VALUES('" & strCodigo & "','" & strNome & "', '" & strFilho & "')"
CurrentDb.Execute strSQL
Me.Lista35.Requery
MsgBox "Inclusão feita com sucesso !!!", vbInformation, "Teste"

End Sub

Private Sub Comando34_Click()
Dim strSQL As String
Dim novoNome As String
Dim novoFilho As String
Dim novoCodigo As Integer

novoNome = Forms!FTInformações!Nome
novoFilho = Forms!FTInformações!Filho
novoCodigo = Forms!FTInformações!Codigo

strSQL = "UPDATE TInformações SET Nome = '" & novoNome & "', Filho = '" & novoFilho & "' WHERE Codigo = " & novoCodigo
CurrentDb.Execute strSQL            'Lembrando que para String novoNome e novoFilho precisa ficar entre apóstrofos e aspas  ' " & novoNome & " '
Me.Lista35.Requery
MsgBox "Atualizações feitas com sucesso !!!", vbInformation, "Teste"

End Sub

Ou baixe:

Perfeito!!!

Muito obrigado.

Olá Leandro,

O fórum todo agradece.


Quando puder passa lá no Facebook e curta minha página para melhor divulgação e compartilhe entre seus amigos.  Faça comentários se quiser !!!

https://www.facebook.com/EduardoMachado

Não deixe de visitar meu site:

www.goodguyaccessvba.com.br

Baixe aplicativos gratuitos e como forma de contribuição apenas clique em meus anúncios.
Baixe se desejar aplicativos comerciais, alguns são profissionalizantes.
Baixe jogos de entretenimento educacional totalmente gratuitos.
Baixe apostilas para estudo.
Leia e copie dicas de Access VBA minhas e de outros colegas.

Se quiser aprender mais, adquira os meus dois livros DOMINE O ACCESS VBA e TÉCNICAS ESPECIAIS DE ACCESS VBA e você vai aprender isto e muito mais.

Editora Livrorama(DOMINE ...):
www.livrorama.com.br

Editora Ciência Moderna(TÉCNICAS...):
www.lcm.com.br


Um grande abraço.

"O temor do Senhor(respeito pela Palavra de Deus, leitura e obediência) é o princípio do conhecimento" (Prov. 1.7)
Disse Jesus: "E conhecereis a Verdade e a Verdade vos libertará". (Jo 8.32)
Disse Jesus: “Eu sou a luz do mundo; aquele que me segue, não andará em trevas, mas terá a luz da vida.” (Jo. 8.12)