Discussion :

[Balfurusse]

Bonjour a tous, j'ai fait ce petit programme il y a de cela 5 ans déja; et la je me suis décidé a réglé le seul petit bug qu'il contiens.

Ce programme va faire des recherches dans une BD Access selon des criteres que l'usager aura entre prealablement. Il fonctionne super bien quand il trouve de quoi... mais quand la recherche ne retourne rien il plante. Le RecordCount etant a 0 il semble by-passe ce code...

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
Private Sub adoRole_WillMove(ByVal adReason As ADODB.EventReasonEnum, adStatus As ADODB.EventStatusEnum, ByVal pRecordset As ADODB.Recordset)
    If frmPrincipale.adoRole.Recordset.RecordCount > 0 Then
        If frmPrincipale.adoRole.Recordset.EOF Then frmPrincipale.adoRole.Recordset.MoveLast
        If frmPrincipale.adoRole.Recordset.BOF Then frmPrincipale.adoRole.Recordset.MoveFirst
    Else: lblMessage.Caption = "Pas d'éléments trouvés"
 
    End If
 
End Sub

La je vous averti, c'est moi qui a ecrit cela mais depuis 5 ans je ne suis pas sur du pourquoi s'etait la!! J'ai pas retouche au VB depuis un bail..

Merci

[Jean-Philippe André]

Bonjour Balfurus,
regarde si la fonction IsNull n'est pas utile pour gérer cet aspect de ton code.

[Balfurusse]

Merci des infos, je l'ai essayé mais ca na pas rien changé. Mais la j'ai tracé mon truc comme il faut et je me rend compte qu'il m'affiche ma réponse mais il réussi pas a sortir de cette boucle pis un moment donné jai un :

run time error 3021, BOF ou EOF est égale a TRUE ou l'enregistrement actuel a été supprimé. l'opération demandé nécessite un enregistrement actuel

Et l'enregistrement quil m'affiche n'est pas le premier ou le dernier ??

La boulce qui n'arrête jamais est la suivante.. si vous regardez mon code en haut
Private sub ==> 1
le premier IF ==>2
le ELSE ==> 3
le ENd if ==> 4
et retour au numero 1 et ainsi de suite....

[Balfurusse]

des idées quelqu'un?

Merci!

[lanonyme]

Bonjour,

J'ai du mal à saisir la partie la :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
 
If frmPrincipale.adoRole.Recordset.EOF Then frmPrincipale.adoRole.Recordset.MoveLast
If frmPrincipale.adoRole.Recordset.BOF Then frmPrincipale.adoRole.Recordset.MoveFirst

EOF = fin de fichier atteint - MoveLast = aller au dernier enregistrement
BOF = debut de fichier atteint - MoveFirst = aller au premier enregistrement

Personnellement, pour tester s'il y a des éléments et en connaitre le nombre, je ferai :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
 
frmPrincipale.adoRole.Recordset.MoveLast
If frmPrincipale.adoRole.Recordset.RecordCount > 0 Then
 msgbox "Nombre d'élement trouvé : " & frmPrincipale.adoRole.Recordset.RecordCount 
else
   msgbox "Rien"
end if

Cordialement,

lanonyme

[Balfurusse]

Merci de ta réponse, ta petite boite marche mais mon truc vire toujours en boucle... la boite RIEN reviens toujours quand je pese sur OK.

Il doit y avoir un autre truc que je vois pas... Si vous avez besoin de plus de Code dites moi ce que vous voulez...

Merci de votre aide