se deplacer dans une table access avec VB6

bonjour

debutant en VB

je veux realiser un form en vb6 qui contient des textboxs qui affichent le contenu d'une table access.
j'ai reussi a afficher un seul enregistrement, je veux cree un bouton suivant et precedent pour se deplacer dans la table.
comment je peux le faire merci d'avance

a+

Bonjour

Par quel intermédiaire es-tu connecter à Access.

Starec

je pens qu'il la fait o plus simple

tu devrais avoir un bouton

Code:

---

1 2 3 4 5 6 7 8 9

private function bouton_click() while not rs.EOF   mon.bouton.enabled=true wend rs.movenext   rafraichir //rafrachi tes champs end function

---

Code:

---

1 2 3 4 5

private function rafraichir() chp1.text=rs.fields(1) ....   end function

---

voila a ce a quoi ça me ferait penser

Salut

Perso j'utilise un groupe de Bouton (4) avec se bout de code :

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16

Private Sub Cmd_Move_Click(Index As Integer) Select Case Index Case 0 '1er Enregistrement Rset.MoveFirst   Case 1 'Enregistrement précédent Rset.MovePrevious   Case 2 'Enregistrement suivant Rset.MoveNext   Case 3 'Dernier enregistrement Rset.MoveLast   End Select End Sub

---

A+

merci
je suis connecté par data envirenment

marci

while not rs.eof
me genere une erruer de compilation

salut

Test ta base avec

Code:

---

1 2 3 4 5 6 7

with rst .... .open if .bof or .eof then msgbox("Problème de fichier") end if end with

---

pour voir si le problème vien de ta base ou de ton code

A+

bonjour

j'utilise VB6, j'ai fait la connexion a ma base access par data envirement
la connexion est reussi
j'ai cree des texbox dans un form pour afficher le contenu de ma table access, apres execution je ne peux voir qu'un seul enregistrement statique. j'ai pensé a cree un bouton (suivant, precedent, premier et dernier) mais je n'arrive pas a ecrire le code en VB6
pover m'aider a le faire
merci d'avance

Re

Voici un exemple tout bête
Dans une form j'ais 2 textbox et un bouton suivant.
Le code de la form :

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18

Private Sub Form_Load() With rst .CursorType = adOpenDynamic .LockType = adLockOptimistic .Open .MoveFirst End With   Set Text1(0).DataSource = rst Set Text1(1).DataSource = rst Text1(0).DataField = "Champ1" Text1(1).DataField = "Champ2"   End Sub   Private Sub Cmd1_Click() rst.MoveNext End Sub

---

A+