Discussion :

[Lynecoln]

Salut. J'ai des champs textbox relié à un controle ADODC relié a ma base. Et je veux donner la possibilité à l'utilisateur d'aller sur un enregistrement.
Sur la même forme J'ai des boutons 'Précedent' , 'Suivant' et 'Rechercher'.
Les deux boutons 'Précedent' , 'Suivant' marchent bien. mais lorsque je fais une recherche et que je trouve un enregistrement, je l'affiche (en actualisant les textbox). Et c'est à partir de là, quand je fais 'Précedent' ou 'Suivant' j'ai un message d'erreur.

Voici le code des boutons

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
 
sub btnRecherche_click()
    SQL = "SELECT * FROM Table1 WHERE Matricule=" & Condition
    Set MaTable = New ADODB.Recordset
     MaTable.Open SQL, Connexion, adOpenDynamic, adLockOptimistic, adCmdText
      For i = 0 To NbreChamps - 1
            Champs(i).Text = MaTable.Fields(i).Value
       Next i
end sub
Sub btnSuivant_Click()
  adodc1.MoveNext
end sub
Sub btnPrecedent_Click()
  adodc1.MovePrevious
end sub

Quelqu'un voit-il ou est le problème ?

[ThierryAIM]

Oui

[Lynecoln]

Ok di moi le probleme et la solution, s'il te plait

[ThierryAIM]

tu as tout mélangé
Pour ton bouton Rechercher soit tu utilises la méthode Find de l'objet Recordset de ton ADODC, soit tu réaffectes ton recordset MaTable issu de ta requete SQL à ton adodc (mais tu auras perdu le reste des enregistrements)

[Lynecoln]

Ok, Merci