ONDE ESTAR O ERRO?

JAIR2002 23/07/2011 12:06:45
#379812
PESSOAL,

TENHO O SEGUINTE CODIGO NO BOTÃO SALVAR

PARTE DO CODIGO

Set rs = New ADODB.Recordset
Dim SQL As String



With rs

If UCase(Mode) = [Ô]INCLUIR[Ô] Then

If MsgBox([Ô]Deseja realmente salvar o registro[Ô], vbYesNo, TitProg) = vbYes Then
If txtNumeroIP.Text = [Ô][Ô] Or txtNumeroIP = Empty Then
MsgBox [Ô]Por favor entre com o número do Inquérito[Ô], vbInformation, TitProg
txtNumeroIP.SetFocus
Exit Sub
End If

SQL = [Ô]INSERT INTO tblProcedimento (CodDelegacia, CodBarra, NumeroDoProcedimento, TipoProcedimento, NumeroDocumento, CodOrigem, OrigemDocumento, DataRegistro, DataAutuacao, CodDelito, Delito, CodInfracao, Infração, LocalOcorrencia, IniciadoPorFlagrante, CodLivro, Livro, Pagina, NumeroProcesso, CodVara, Vara, Delegado, Escrivao, Vitimas, Autores) VALUES([Ô] _
& [Ô][ô][Ô] & txtCodDelegacia.Text & [Ô][ô][Ô] & [Ô],[Ô] & [Ô][Ô] _
& [Ô][ô][Ô] & Me.txtCodBarras.Text & [Ô][ô][Ô] & [Ô],[Ô] & [Ô][Ô] _
& [Ô][ô][Ô] & Me.txtNumeroIP.Text & [Ô][ô][Ô] & [Ô],[Ô] & [Ô][Ô] _
& [Ô][ô][Ô] & Me.CbBaseado.Text & [Ô][ô][Ô] & [Ô],[Ô] & [Ô][Ô] _
& [Ô][ô][Ô] & Me.txtNumeroDocOrigem.Text & [Ô][ô][Ô] & [Ô],[Ô] & [Ô][Ô] _
& [Ô][ô][Ô] & Me.TxtCodOrigem & [Ô][ô][Ô] & [Ô],[Ô] & [Ô][Ô] _
& [Ô][ô][Ô] & Me.TxtOrigem.Text & [Ô][ô][Ô] & [Ô],[Ô] & [Ô][Ô] _
& [Ô][Ô] & IIf(Not IsDate(Me.txtData.Text), [Ô]null[Ô], [Ô][ô][Ô] + Format(Me.txtData.Text, [Ô]dd/mm/yyyy[Ô]) + [Ô][ô][Ô]) & [Ô][Ô] & [Ô],[Ô] & [Ô][Ô] _
& [Ô][Ô] & IIf(Not IsDate(Me.TxtDataAutuacao.Text), [Ô]null[Ô], [Ô][ô][Ô] + Format(Me.TxtDataAutuacao.Text, [Ô]dd/mm/yyyy[Ô]) + [Ô][ô][Ô]) & [Ô][Ô] & [Ô],[Ô] & [Ô][Ô] _
& [Ô][ô][Ô] & Me.TxtCodDelito.Text & [Ô][ô][Ô] & [Ô],[Ô] & [Ô][Ô] _
& [Ô][ô][Ô] & Me.TxtDelito.Text & [Ô][ô][Ô] & [Ô],[Ô] & [Ô][Ô] _
& [Ô][ô][Ô] & Me.txtCodNaturezaDelito.Text & [Ô][ô][Ô] & [Ô],[Ô] & [Ô][Ô] _
& [Ô][ô][Ô] & Me.txtNatureza.Text & [Ô][ô][Ô] & [Ô],[Ô] & [Ô][Ô] _
& [Ô][ô][Ô] & Me.txtLocal.Text & [Ô][ô][Ô] & [Ô],[Ô] & [Ô][Ô] _
& [Ô][ô][Ô] & Me.CbFlagrante.Text & [Ô][ô][Ô] & [Ô],[Ô] & [Ô][Ô] _
& [Ô][ô][Ô] & Me.txtCodLivro.Text & [Ô][ô][Ô] & [Ô],[Ô] & [Ô][Ô] _
& [Ô][ô][Ô] & Me.txtLivro.Text & [Ô][ô][Ô] & [Ô],[Ô] & [Ô][Ô] _
& [Ô][ô][Ô] & Me.txtProcessoNumero.Text & [Ô][ô][Ô] & [Ô],[Ô] & [Ô][Ô] _
& [Ô][ô][Ô] & Me.txtCodVara.Text & [Ô][ô][Ô] & [Ô],[Ô] & [Ô][Ô] _
& [Ô][ô][Ô] & Me.txtVara.Text & [Ô][ô][Ô] & [Ô],[Ô] & [Ô][Ô] _
& [Ô][ô][Ô] & Me.CbAutoridadePolicial.Text & [Ô][ô][Ô] & [Ô],[Ô] & [Ô][Ô] _
& [Ô][ô][Ô] & Me.CbEscrivao.Text & [Ô][ô][Ô] & [Ô],[Ô] & [Ô][Ô] _
& [Ô][ô][Ô] & Me.txtObs.Text & [Ô][ô][Ô] & [Ô],[Ô] & [Ô][Ô] & [Ô][ô][Ô] & Me.txtVitimas.Text & [Ô][ô][Ô] & [Ô],[Ô] & [Ô][Ô] _
& [Ô][ô][Ô] & Me.txtAutores.Text & [Ô][ô])[Ô]

cnn.BeginTrans
cnn.Execute SQL
cnn.CommitTrans


MsgBox ([Ô]Registro Salvo[Ô]), vbInformation, TitProg
MostraDados
Else
Exit Sub

End If
End With

O PROBLEMA é QUE NÃO SAVA, NÃO DA ERRO E NÃO CONSIGO DESCOBRIR POR QUE. HÁ ALGUM ERRO QUE NÃO DESCOBRIR
O CODIGO PARECE QUE NEM EXISTE NO BOTÃO, QUANDO CLICO NO MESMO NADA ACONTECE.

ALGUéM PODE AJUDAR?
LLAIA 23/07/2011 12:14:38
#379813 Resposta escolhida
Nem mesmo esta última msgbox aparece? Se não, coloque breakpoints pra saber onde está havendo a suspensão da execução. Existe alguma rotina para tratar erros? Se houver, ela pode não está capturando o erro por estar definida par um ou outros erros além desse.
JAIR2002 23/07/2011 12:25:32
#379815
LLAIA,

Obrigado cara, acertou na mosca o problema era a rotina de erro que existia no código.

muito grato.
Tópico encerrado , respostas não são mais permitidas
Voltar