Comment récupérér les erreurs générées lors d'un recordset.addNew ??
cs_ymerej
Messages postés165Date d'inscriptionvendredi 9 avril 2004StatutMembreDernière intervention 5 octobre 2007
-
16 juin 2004 à 10:56
cs_ymerej
Messages postés165Date d'inscriptionvendredi 9 avril 2004StatutMembreDernière intervention 5 octobre 2007
-
16 juin 2004 à 11:37
J pense que le titre est assez explicite !
Mais je vous donne mon code tt simple :
Dim rstNewProduit As ADODB.Recordset
Set rstNewProduit = New ADODB.Recordset
et dc si l'utilisateur ne precise pas un champ obligatoire (not null), ca va me generer une erreur mais comment la récupérér et l'afficher ?
merci d'avance
MsgBox "L'article " & txtFields(3) & " réf. " & txtFields(1) & vbNewLine & "a été ajouté avec succès dans la base", vbInformation, "Succès de l'opération"
Unload Me
Exit Sub
err_insert:
If AdoAquatec.Errors.Count > 0 Then
Select Case AdoAquatec.Errors.Item(0).Number
Case ERREUR_NULL
MsgBox "Vous avez oubliez de spécifier un champ obligatoire", vbExclamation, "Erreur lors de l'insertion dans la base"
Case ERREUR_TYPE
MsgBox "Les prix sont des nombres rééls (avec une , et non un .)", vbExclamation, "Erreur lors de l'insertion dans la base"
Case Else
MsgBox "Description erreur :" & vbNewLine & AdoAquatec.Errors.Item(0).Description, vbExclamation, "Erreur lors de l'insertion dans la base"
End Select
Else
MsgBox Err.Description
End If