[Resolvido]Código para botões Salvar e Cancelar

Boa noite.
Estou montando um formulário para cadastro de Fornecedores, onde eu coloquei os seguintes botões: Salvar, Cancelar e Fechar.

Quando crio os botões via assistente, os registros são salvos na tabela imediatamente ao serem digitados no formulário, entretanto, eu gostaria que eles fossem gravados apenas após clicar em Salvar, e caso seja clicado em Cancelar, mesmo já tendo digitado em alguns campos, o registro não fosse gravado na tabela.

Alguém pode me ajudar com um código para fazer isso?

Desde já agradeço

Att. Ilson

Tente assim, no evento antes de atualizar do formulário:

Código:

if msgbox ("Confirma salvar?",vbyesno)=vbno then
Me.Undo
Else
DoCmd.Save
End If


Obrigado, halmeida. Funcionou desta maneira. Entretanto, será que é possível fazer sem a necessidade de confirmar o salvamento?

Desde já agradeço


Att. Ilson

crie uma caixa de texto não vinculada, com propriedade invisível "sim" em qualquer parte do formulário. Chamemos de CaixaTxt, por exemplo.
insira o seguinte código no evento antes de atualizar do formulário:

Código:

if isnull(me.CaixaTxt) then
Me.Undo
Else
DoCmd.Save
End If

No evento ao clicar do botão salvar insira o código:

Código:

me.CaixaTxt="salvo"
msgbox "Registro salvo com sucesso"

Assim pode resolver.

Entretanto, prefiro trabalhar com formulários desacoplados, aí esta questão de salvar registros muda, pois os dados do formulário somente são salvos na tabela através de uma consulta SQL ou outro código em VBA. Mas para isso, você precisaria reformular seu projeto. Aconselho a estudar sobre formulários desacoplados, pois é a melhor solução do que a de formulários acoplados.

Muito obrigado pela ajuda, halmeida.

Att. Ilson