[Resolvido]Tratamento de erro não funciona....

Boa Tarde

Tenho uma dúvida

Possuo uma macro de chamada de um formulario usando o codigo da tabela.
Ex: ID_Treinamento que está aparecendo no form frmColaborador quando clicado (hiperlick) abre o form Treinamento.

estou usando o evento "ao Clicar" do código ele executa a seguite chamada com tratamento de erro:

Private Sub ID_Treinamento_Click()
Dim X As Integer
On Error GoTo TrataErro
DoCmd.RunMacro "mcr_BuscaTreinamento"
Exit Sub
TrataErro:
If err.Number = 3075 Then
DoCmd.ClearMacroError
End If
MsgBox "Você não pode chamar um Treinamento sem uma identidade (Código) atrelado a Competência !", vbQuestion, "Erro de Chamada"
DoCmd.Close acForm, "frm_Treinamento"
End Sub


Minha dúvida:

Mesmo com tratamento de erro, abre a tela Passo a Passo pedindo para parar a macro.
Por que isso acontece? mesmo com o tratamento do erro?

como fazer para não aparecer tal tela?

Fala ae blz?

Converta a macro para módulo! No Office 2007 basta fazer o seguinte:


No Painel de Navegação, clique no nome da macro que você deseja converter.
Na guia Ferramentas de Banco de Dados, no grupo Macro, clique em Converter Macros em Visual Basic.
Na caixa de diálogo Converter Macro, selecione as opções desejadas e clique em Converter.

Observe que será criado um módulo com a macro convertida.

Coloque o tratamento de erro e chame o procedimento do módulo no seu evento.

Boa sorte,

Já Fiz esse procedimento
Porem não funcionou o recurso...

Não sei porque.
Em macro funciona, abre o form
em VBA não. clico no código mas não chama o form


Por isso resolvi efetuar a chamada da macro no vba.
Veja abaixo a macro convertida.......

Option Compare Database

'------------------------------------------------------------
' mcr_BuscaTreinamento
'
'------------------------------------------------------------
Function mcr_BuscaTreinamento()
On Error GoTo mcr_BuscaTreinamento_Err

With CodeContextObject
Call Playsound("C:\Mtz_Arauco\Sistema\Som\01.wav")
On Error Resume Next
If (.Form.Dirty) Then
DoCmd.RunCommand acCmdSaveRecord
End If
If (.MacroError.Number <> 0) Then
Beep
MsgBox .MacroError.Description, vbOKOnly, ""
Exit Function
End If
On Error GoTo 0
DoCmd.OpenForm "frm_Treinamento", acNormal, "", "[ID_Treinamento]=" & Nz(.ID_Treinamento, 0), acEdit, acNormal
If (Not IsNull(.ID_Treinamento)) Then
TempVars.Add "ID_TreinamentoAtual", .ID_Treinamento
End If
If (IsNull(.ID_Treinamento)) Then
TempVars.Add "ID_TreinamentoAtual", Nz(DMax("ID_Treinamento]", .Form.RecordSource), 0)
End If
DoCmd.SearchForRecord , "", acFirst, "[ID_Treinamento]=" & TempVars!ID_TreinamentoAtual
TempVars.Remove "ID_TreinamentoAtual"
End With


mcr_BuscaTreinamento_Exit:
Exit Function

mcr_BuscaTreinamento_Err:
MsgBox Error$
Resume mcr_BuscaTreinamento_Exit

End Function

Ok. Faça o seguinte, coloque o código abaixo no botão:

Código:


Private Sub ID_Treinamento_Click()
On Error GoTo TrataErro

Call Playsound("C:\Mtz_Arauco\Sistema\Som\01.wav")

If (Me.Form.Dirty) Then
DoCmd.RunCommand acCmdSaveRecord
End If

DoCmd.OpenForm "frm_Treinamento", acNormal, "", "[ID_Treinamento]=" & Nz(Me.ID_Treinamento, 0), acEdit, acNormal
If (Not IsNull(me.ID_Treinamento)) Then
TempVars.Add "ID_TreinamentoAtual", Me.ID_Treinamento
End If
If (IsNull(Me.ID_Treinamento)) Then
TempVars.Add "ID_TreinamentoAtual", Nz(DMax("ID_Treinamento]", Me.Form.RecordSource), 0)
End If
DoCmd.SearchForRecord , "", acFirst, "[ID_Treinamento]=" & TempVars!ID_TreinamentoAtual
TempVars.Remove "ID_TreinamentoAtual"

On Error GoTo 0


TrataErro:
If err.Number = 3075 Then
Err.Clear
else
MsgBox "Você não pode chamar um Treinamento sem uma identidade (Código) atrelado a Competência !", vbQuestion, "Erro de Chamada"
DoCmd.Close acForm, "frm_Treinamento"
end if


Faça um teste ai!

Ta quase Lá....rssss

A função agora abre o form porem esta invertido. ex......

quando tem o codigo do treinamento (ou seja, treinamento existente)está abrindo o msgbox do erro
quando o campo é nulo, ou seja, não tem o respectivo treinamento, abre o form sem o msgbox do erro. porem como não tem o respectivo "ID_Treinamento", o form apresenta em branco - nessa condição que deveria apresentar o erro (msgBox)

Tá quase lá....só está invertido a função....
não consegui alterá-lo

Entendi, mais ou menos!

O forms "frm_Treinamento" dever ser aberto quando o ID não for nulo? Se for nulo deve impedir a abertura do forms e dar a mensagem?

O que faz TempVars.Add ?

Se for o caso poste um bd só com o formulario e tbl envolvido.

Falow,

Isso Mesmo......

veja anexo o bd já com seu código....
Existe uma linha com cód. Nulo......teste e verá o problema.

at.

Então a sequência é está:

Código:


Call Playsound("C:\Mtz_Arauco\Sistema\Som\01.wav")

If (Me.Form.Dirty) Then
DoCmd.RunCommand acCmdSaveRecord
End If

If Not IsNull(Me.ID_Treinamento) Then

DoCmd.OpenForm "frm_Treinamento", acNormal, "", "[ID_Treinamento]=" & Nz(Me.ID_Treinamento, 0), acEdit, acNormal

Else
MsgBox "Você não pode chamar um Treinamento sem uma identidade (Código) atrelado a Competência !", vbQuestion, "Erro de Chamada"
    Exit Sub
    End If
     


TrataErro:
Select Case err.Number

Case 0
err.Clear

Case Else
MsgBox "Ocorreu um erro: " & err.Number & " - " & err.Description, vbCritical, "Atenção"
End Select


Agora coloque os demais código que vc precisa dentro da condição IF.

OBS. Não use TempVars para salvar valores de campos, ele não serve para está utilidade! Inclusive da erro!
Trabalhe com variáveis tipo Dim

Na esperança que ajude.

Deu Certo amigo....

brigaduuuuuu

Ótimo!!

O fórum agradece o retorno

Até a próxima!