[Resolvido]cod VBA para alterar dados da tabela atraves do frm

Boa Noite,Caros Amigos do forum !Preciso de um cod para alterar os dados de uma venda de uma tabelavenda atraves do frm,pois o frm não deixa buscar a venda pelo frm.obrigado

Um cod para incluir num botão,para alterar dados de uma venda de um determinado dia !!!

Seria algo assim?

Código:

CurrentDb.Execute "UPDATE NomeDaTabela SET Campo1Tabela='" & Me.Campo1DoForm & "', Campo2Tabela='" & Campo2DoForm & "'"
MsgBox "Dados alterados", vbInformation, "Status"

Boa noite criquio!Obrigado ,vou testar aqui ,isso vai num botão no frm?

Criquio a função funcionou beleza (mostra a msg dados alterados),mas como buscar a venda e exibila no frm para que eu consiga edita-la,pois o campo idvenda esta vinculado a outro frm ,e não busca o cliente nem a venda,para edita-la?desculpe se faltou esta informação!obrigado

Estou a tentar aqui sem sucesso!!preciso de uma ajuda !

O formulário é vinculado à tabela? E vai salvar tudo em uma única tabela?

Sim ,como no exemplo da 1ª mensagem!
Eu consigo editar os dados através da tabela,porem gostaria de fazer issso pelo frm.O frm buscar a venda do dia e do cliente especifico e torna-lo editável.obrigado

Tente filtrar o formulário trazendo o registro pretendido:

Código:

Me.RecordSource = "SELECT * FROM NomeDaTabela WHERE NomeCampoTabela='" & Me.NomeCampoDoForm & "'"

Esse cod num botão dentro do frm ?

Feito Criquio,Num botão dentro do frm no evento ao clicar!.obrigado!!!

O fórum agradece o retorno.

Bom dia Criquio ,marquei resolvido,porém ,o cod esta alterando os dados da venda ,como o propósito,mas também criando uma id venda vazia sem serviços na tabela ,com a mesma data.

Eis o cod que estou usando no botão alterar venda e que está funcionando:(porem criando uma venda sem serviços(vazia)
Me.RecordSource = "SELECT * FROM Venda WHERE Nome='" & Me.Nome & "'"


Ja esse outro cod que me pássou altera a tabela inteira atualizando-a:
(CurrentDb.Execute "UPDATE NomeDaTabela SET Campo1Tabela='" & Me.Campo1DoForm & "', Campo2Tabela='" & Campo2DoForm & "'"
MsgBox "Dados alterados", vbInformation, "Status")

Obs:Meu aplicativo funciona assim :eu digito o nome do cliente no frmcliente dai ele abre o frmvendas com a data vazia,quando eu digito a data pretendida ele gera uma idvenda automaticamente,como anular esta idvenda nova para alterar a venda pretendida?obrigado

O cod está funcionando,porem ainda não consegui corrigir a duplicação da venda em branco!obrigado

Devo criar um novo topico para resolver esta questão ,ja que eu havia marcado resolvido?

O seu form que abre filtrado precisa estar definido para edição e não adição. Verifique as propriedades "Entrada de dados" e as propriedades de "Permitir adição/edição/exclusão" na aba Dados e altere-as da forma que melhor atender.

Obrigado ,deixe-me ver!

Desculpe a insistência .Mas se eu mudar ,de adição para edição,compromete seu funcionamento para adição de novos registros futuros?
Ou toda vez que eu precisar alterar algum registro terei que mudar essas definições,pois "Permitir adição/edição/exclusão"elas estão marcadas como sim ,apenas entrada de dados está como não.Mudei as definições ora o frm ,fica com os campos inabilitados,ora a tabela ,não registra a mudança,e ora o novo registro em branco é adicionado.

Como voce é mestre!! ,isso que eu estou querendo é o mais adequado para o meu caso(alteração de registro),ou haveria um forma correta ou menos complicada de se fazer essa alteração de registro!

Boa noite !Fiz todas as alterações possìveis nas propriedades dados do frmvenda,e não tive sucesso !!

Bom, não obtive mais respostas as minhas ultimas perguntas estou fechando o tópico sem resolver.
Para quem tentou ajudar, meu muito obrigado.