runtime error '0'

[misterhux]

hey does anyone know what a run-time error of 0 (zero) is?... the text of the error just says: Reserved Error

this is the code that is giving it (error at --> )

Private Sub Form_AfterDelConfirm(Status As Integer)

Dim dbJetAftDel As DAO.Database

Set dbJetAftDel = CurrentDb
dbJetAftDel.Execute "UPDATE Log_CKID_Temp SET _
Del_Check=true WHERE CKID=" & lngCKID

Set dbJetAftDel = Nothing
Set dbJetAftDel = CurrentDb
Stop
--> Set recordSet = dbJetAftDel.OpenRecordset("SELECT * _
FROM Log_CKID_Temp WHERE Del_Check=false",_
dbOpenDynaset)
Stop
MsgBox "This deletion will not be processed until _
you save your changes.", , "Deletion Pending"

frmParent.set_Totals
frmParent.boolDirty = True

Set_Nothing:
Set dbJetAftDel = Nothing
End Sub

note that the underscores aren't in my code, just put them in the post cause the line was to long for this screen

also have tried it without setting dbJetAftDel to nothing before the error line

thanks for any help. Also if you just know what a runtime error of '0' is and let me know that would be great too.

 

[RiazKhanmohamed]

don't know, but i've just added an on error section to my function/sub where this happens to catch a 0 error and ignore it. this usually works. normally the process has completed, but it errors anyway.

 

[misterhux]

how would I do that in VB, I'm still new to it. from what I can tell there is no try, catch statement in VB?

 

[RiazKhanmohamed]

at the beginning of the sub/function, type:

on error goto Errorcatch

at the end of the sub/function (Before end bit) type:

Errorcatch:

if err.number = 0 then 'ignore
else
msgbox err.number & err.description
endif

hope this helps

 

[misterhux]

thanks alot.... I've been wondering about how to do that