SRick
|
LAVRAS
MG - BRASIL
|
|
ENUNCIADA !
|
|
|
Postada em 21/06/2011 16:56 hs
PESSOAL ESTOU COM O SEGUINTE PROBLEMA, TODA VEZ QUE FAÇO A EXCLUSÃO DE UM REGISTRO E APÓS TENTO INCLUIR UM NOVO REGISTRO O SISTEMA APRESENTA UM PROBLEMA, O QUE ESTÁ ACONTECENDO? PRECISO DE AJUDA.
ABAIXO ESTÁ O CÓDIGO DO BOTÃO EXCLUIR:
''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
On Error GoTo errado3
If (MsgBox("Deseja excluir o Infrator de Nome: " & rst.Fields(2), vbYesNo, "InfoCrime")) = vbYes Then
rst.Delete
rst.MovePrevious
If rst.BOF Then
MsgBox "Voce chegou no inicio do arquivo ! "
Exit Sub
Else
load_rec
End If
End If
On Error GoTo 0
Exit Sub
errado3:
MsgBox Err.Description
End Sub
|
|
|
|
|
|
J.Carlos
|
PRESIDENTE PRUDENTE
SP - BRASIL
|
|
|
ENUNCIADA !
|
|
|
Postada em 21/06/2011 18:59 hs
Vc disse q o problema está ao incluir outro, portanto o erro está na rotina de inclusão. Precisa também especificar melhor o seu problema. A sua colocação está muito vaga! Faça um debugue e veja a linha q dá o problema, se não conseguir resolver, poste a qui a rotina correta e a linha onde dá o pau. |
|
|
|
SRick
|
LAVRAS
MG - BRASIL
|
|
|
ENUNCIADA !
|
|
|
Postada em 21/06/2011 20:42 hs
Ok Juan, vou verificar a rotina de inclusão. Valeu amigo.
SRick
|
|
|
|
|
|
Postada em 22/06/2011 15:33 hs
esta faltando tbm no delete o rst.update depois do delete.
possivelmente seja isso que da erro ao incluir pa esta esperando que seja feito antes o update do registro anterior.
retira esse on erro goto 0. ele desconsidera qualquer erro. e continua o codigo a executar.
|
|
|
|
SRick
|
LAVRAS
MG - BRASIL
|
|
|
ENUNCIADA !
|
|
|
Postada em 24/06/2011 10:17 hs
Ok Juan obrigado, era isso mesmo.
Henrique.
|
|
|
|
