Plateforme Level Extreme
Abonnement
Profil corporatif
Produits & Services
Support
Légal
English
Error # 0 encountered
Message
De
20/11/1998 13:01:05
 
Information générale
Forum:
Visual Basic
Catégorie:
Autre
Divers
Thread ID:
00159792
Message ID:
00159837
Vues:
19
>>Hello Everybody,
>>I have a problem when initializing some text boxes with values from a recordset. Everything seems to be fine but, at the end, when i exit the procedure, (kind of gather->foxpro), i get an error, error 0.
>>I dont know how to deal with it cause there is no description. Can anybody advice?
>>Thank you very much,
>>Vlad
>
>Can you send us a couples of lines to reproduce your problem?
>
>If you check for Err.Number, and it give 0, it means that you have no error!
>
>Maybe your lines will help us help you.

Eric, here's the code(part of it)
>>>>>>>>>>>>>>>>>>>>
<< on error goto erline
Case "MANAGER"
icntr = rdNinvm.Fields.Count
For Each contr In Me.Controls
If TypeOf contr Is TextBox And UCase(contr.Tag) = UCase(Trim(str)) Then
For j = 0 To icntr - 1
If UCase(rdNinvm.Fields(j).Name) = UCase(contr.Name) Then
contr = rdNinvm.Fields(j)
Exit For
End If
Next
End If
Next
.....
end select


erline:
MsgBox " Error occured " & Err.Description & " " & Err.Number & " " & Err.Source
End
end sub
>>>>>>>>>>>>>>>>
so after that i get the message box displayed. I hope the code is clear enough.
Thank you very much
Vlad
Précédent
Suivant
Répondre
Fil
Voir

Click here to load this message in the networking platform