comment rechercher un element

Version imprimable

salut à tous ,
j'aimerais écrire un code qui permet à la saisie d'un nombre de verifier s'il a été déja saisie.
voici la fonction mais elle ne marche pas

Code:

1
2
3
4
5
6
7
8
9
10
11
12
Public Function Rech(leCode As String) As Boolean
  Dim Requete As String
   Rech = False
        Set Requete = "Select numerocheque from TBL_EDITIONCHEQUE "
    For Each leObjet In laColFactRegle
        If Requete = laColFactRegle.Count Then
            MsgBox "Ce numero de chèque a été deja saisi,veuillez entrer un autre numero", vbInformation, vgTitreApplication
        Else
         Rech = True
        End If
    Next
End Function

merci d'avance

Qu'est ce que c'est??

Code:

laColFactRegle.Count

et qu'est ce que tu as dedans après lecture

Ne serait ce pas plutôt:

Code:

1
2
3
4
5
6
7
For Each leObjet In laColFactRegle
        If Requete = leObjet Then
            MsgBox "Ce numero de chèque a été deja saisi,veuillez entrer un autre numero", vbInformation, vgTitreApplication
        Else
         Rech = True
        End If
    Next

merci j'ai trouvé
voici le code

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
Private Function RechNumCheque(leCode As String) As Boolean
   Dim leRs As New ClassEditionLettre
 
   RechNumCheque = False
   leSQL = "Select * from TBL_EDITIONCHEQUE where NumeroCheque='" & leCode & "'"
 
   leRs.NumeroCheque = leCode
   If IsObjectValid(leRs.lc_NumCheque(leSQL)) Then
      RechNumCheque = True
   Else
      RechNumCheque = False
   End If
End Function

mon code marche sans probleme