Discussion :

[Jeannot45]

Bonjour à tous.

Je ne sais plus vers qui me touner
Je plante sur la méthode Find dans un recordset ADO

Il me mets toujours le meme message d'erreur :
"Les arguments sont de type incorrects, en dehors des limites autorisés ou en conflits les uns avec les autres"

Quelqu'un pourrait-il éclairer ma lanterne

Mille mercis

Jeannot

[Dolphy35]

Salut,

Si tu veux que l'on t'aide il faut nous mettre ton Code et nous dire sur qu'elle ligne le débogueur ce plante.

Merci

@+

[Jeannot45]

Excuse moi, j'aurai du y penser

Voici le code concerné

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
 
Private Sub lstMatricule_Click()
 
' Objet du formulaire : Afficher les données d'un membre du personnel
    Dim strSqlItemSelectionne As String
    Dim strMatricule As String
    Dim intCompteur As Integer
    Dim ctlChamp As Control
 
    strSqlItemSelectionne = "SELECT * FROM Personnel"
    Set rstPresonnel = New ADODB.Recordset
 
    'Ouvre le jeu d'enregistrements
    rstPresonnel.Open strSqlItemSelectionne, cnxConnexion, adOpenStatic, adLockReadOnly
 
    ' Récupère le nom de la personne à rechercher
    strMatricule = lstMatricule.Column(1)
 
'Voici la ligne qui me pose problème
    rstPresonnel.Find strMatricule, , adSearchForward, 1
 
    ' Renseigne les controles du formulaire
    For Each ctlChamp In Me.Controls
        If ctlChamp.ControlType = acTextBox Then
            ctlChamp = rstPresonnel.Fields(intCompteur)
            intCompteur = intCompteur + 1
        End If
    Next
End Sub

Modération : Cafeine,

[LeScandinave]

Bonjour,
à tout hasard, tu es sûr que ta colonne 1 est bien ta colonne 1 et non pas la colonne 0?