[Resolvido]Tratar excecao (Erro)

Bom dia !
Estou tentando tratar um erro no evento de um botao cadastrar... neste botao eu tenho que inserir dados em 3 tabelas diferente... tudo esta funcionando mas o tratamento de erro nao ta ok... ele esta executando o erro mesmo nao havendo erro.
No meu caso preciso que se caso houver um erro na insercao em uma das 3 tabelas ele nao insere em nenhuma e mostre a msg de erro.



' No modulo conexao
Public StrSql As String
Public Banco As Database
Public dataset As Recordset
Function Conecta()
Set Banco = CurrentDb
End Function
Function Valida_Selecao()
Set dataset = Banco.OpenRecordset(StrSql, dbOpenDynaset)
End Function

' No evento do Botao caadastrar
Private Sub CmdCadCliente_Click()
' tratatamento de erro
On Error GoTo Trata_Erro

Gerar_Codigo_CadCliente ' Metodo para gerar codigo
Comando = "insert into Tbl_Cliente(...) values(...)"
Banco.Execute (StrSQL)'
StrSQL = Empty

Gerar_Codigo_Dados_Banco
Comando = "insert into Tbl_Dados_Banco(...) values(...)"
Banco.Execute (StrSQL)
StrSQL = Empty

Gerar_Codigo_Premio
Comando = "insert into Tbl_Premio(...)values(...)"
Banco.Execute (StrSQL)
StrSQL = Empty

MsgBox ("Os Dados foram cadastrados com Sucesso !"), vbInformation + vbOKOnly, "Cadastro de Cliente"
Limpar_Campos

Trata_Erro:
MsgBox ("Não foi possivel cadastrar !"), vbCritical + vbOKOnly, "Cadastro de cliente"

End Sub

Após a última linha do Código coloque:
.. Lembre de declarar a variável no início: Dim Msg as String

MsgBox ("Os Dados foram cadastrados com Sucesso !"), vbInformation + vbOKOnly, "Cadastro de Cliente"
Limpar_Campos

Exit Sub

Exit_TrataErro:
DoCmd.Hourglass False
DoCmd.Echo True
Exit Sub

trataerro:
If err.Number = 0 Then
Resume Next
Else
DoCmd.Hourglass False
DoCmd.Echo True
MSg = "Erro # " & Str(err.Number) & " gerado na " & err.Source _
& vbNewLine & vbNewLine & "Descrição: " & err.Description _
& vbNewLine & vbNewLine & "Por favor contate o Administrador de Sistema."
MsgBox MSg, vbMsgBoxHelpButton + vbCritical, "Erro", err.Helpfile, err.HelpContext
Resume Exit_TrataErro
End If
End Sub

Cumprimentos.

Ola Piloto!
Funcionou bancana ... mas o problemas é que pra mim ver o tratamento de erro funcioando beleza eu simulei um erro na segunda insercao ... a Mensagem de erro apareceu como esperado... mas fui nas tabelas e a primeira insercao ocorreu normal ja que o o erro era na segunda insercao... e preciso que caso aconteca alguma erro em qualquer uma das insercao o codigo vai para o TrataErro mas nao inserir nada.

Obg pel atencao !

Olá,

veja no help do VBA sobre: BeginTrans, CommitTrans e Rollback

Sucesso!

Podes no tratamento de erro, aplicar a solução indicada pelo Mestre Avelino.

Obrigado pela Participação Grande Avelino.

Abraços.

Como fica a sintaxe desses comando BeginTrans, CommitTrans e Rollback
Nao encontrei no Help (F1)

Obg!

Exemplo

Leticia, o Access possui dois Help's: O Help do Access e o Help do VBA.

Para entrar no help do VBA , vc primeiro deve abrir o VBA para então aciona-lo pelo botão do menu.

Quando tiver um tempinho assista este minha super vídeo-aula de "Como estudar com o Pesquisador de Objetos"

http://www.usandoaccess.com.br/tutoriais/tuto2.asp?id=1#inicio

Sucesso!

Boa Tarde!!!

Pelo que pesquisei
BeginTrans, CommitTrans e Rollback funciona com ADO somente.

Alguma solucao para DAO ?

Boa tarde, se possivel disponibilize um pequeno exemplo para que possamos ver isto pra ti.

Cumprimentos.

Uma ideia tambem e a seguinte.

Serão gerados registros para as 3 tabelas.... é um registro para cada tabela?

Se for, em cada codigo de geracao do registro guadariamos a ID gerada em uma variavel, ex:
Variáveis: ID_ Tabela1, ID_Tabela2, ID_Tabela3...

A cada tabela gerado o registro essa variavel guardaria o valor do ID, e caso ocorresse erro em alguma delas, no tratamento de erros executariamos a deleção destes registros quando ID_Registro = ID_Tabela(1,2 ou 3)

Atraves do comando CurrentDb.Execute "DELETE * From NomeTabela WHERE ID = ID_Tabela(1,2 ou 3)

é por ai

Cumprimentos.

Ops!!!, não percebi que estavas a responder Grande Avelino.


Cumprimentos.

Piloto !
Sua sugestao funcionou perfeitamente, mas nos caso onde faco Update e delete terei que pensar em uma melhor solucao mas por enquando onde faco somente insercao estar funcionando!

Obg!

Podes utilizar o Update em uma instrução recordset, ao invés de uma instruçõ CurrentDb.Execute.... Assim utilizando o Update no recordset, podes utilizar as instruções sugerida pelo Mestre avelino acima... Creio ser a melhor opção.

Cumprimentos.