Se déplacer dans les enregistrements

**Ragnarok85** · 11/02/2007, 14h57

Bonjour,

Me revoilà, je ne comprends pas ceci: malgré l'action movenext, le code reste bloqué sur le premier enregistrement. Pourquoi? Et comment résoudre ce problème?

Code :

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

1
2
3
4
5
6
7
8
9
10
oRst.MoveFirst
x = 0
i = 1
       Do Until (i > NbEnregistrement) Or (x <> 0)
           If (oRst.Fields("Code_Fournisseur").Value <> i) Then
               x = i
           End If
       i = i + 1
       oRst.MoveNext
       Loop

Merci de votre aide.

**LedZeppII** · 11/02/2007, 15h44

Bonjour,

Peut-être que la valeur du champ "Code_Fournisseur" dans le premier enregistrement est différente de 1.
Du coup le code met une valeur différente de 0 dans x et tu quittes la boucle quand x <>0.

Pour vérifier :
- Mets un point d'arrêt sur la ligne i = 1
- Continue l'exécution pas à pas avec la touche F8

Tu verra exactement comment le programme se déroule.

A+

**Ragnarok85** · 11/02/2007, 16h52

Non c'est pas le problème.
J'ai déjà vérifier cela. Il reste vraiment sur le premier enregistrement.

**Faw** · 11/02/2007, 17h18

Salut, que retourne NbEnregistrement? (que tu peux remplacer par

Code :

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

While not(oRst.eof)...

)

**philben** · 11/02/2007, 17h18

bonjour,

et en écrivant ceci :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
oRst.MoveFirst
x = 0
i = 1
      Do Until oRst.Eof
          If oRst.Fields("Code_Fournisseur").Value <> i Then
               x = i
               Exit Do
           End If
           i = i + 1
         oRst.MoveNext
      Loop

que se passe t'il?

Cordialement,

Philippe

**Ragnarok85** · 11/02/2007, 17h24

Nbenregistrement retourne le nombre d'enregistrement de ma table, car j'en ai besoin ds mon code.
Donc je n'utilise pas oRst.eof, à la place je vérifie que NbEnregistrement<>0.

**Ragnarok85** · 11/02/2007, 17h28

Merci pr ton code philben, mais ca donne rien de satisfaisant.

**philben** · 11/02/2007, 18h01

bonjour,

La vérité est donc ailleurs...

Quel est le type de la colonne "Code_Fournisseur" (numérique ?)

Quelle est la syntaxe d'ouverture du recordset oRst ?

Cordialement,

Philippe

**Ragnarok85** · 11/02/2007, 18h05

Voici pour tes questions:
C'est du numérique

Code :

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

1
2
3
4
Dim oRst As DAO.Recordset
Dim oDb As DAO.Database
Set oDb = CurrentDb
Set oRst = oDb.OpenRecordset("tblFournisseur")

Sinon j'ai essayé avec une boucle for next et un exit for, j'ai le même problème.
Je crois que je vais reprendre l'ensemble du code à 0.

**Faw** · 11/02/2007, 18h33

Ca ne nous apprend rien sur le reste du code, et comment tu vas chercher
ton fameux NbEnregistrement qui pour l'occasion est le même que oRst.Recordcount...

http://access.developpez.com/faq/?page=SQL#Parcourirrst
http://access.developpez.com/faq/?pa...es#Recordcount

**Ragnarok85** · 11/02/2007, 18h41

Voici l'ensemble du code:

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
30
31
32
33
34
35
36
37
38
39
40
Sub AjoutCode_Fournisseur()
Dim oRst As DAO.Recordset
Dim oDb As DAO.Database
Dim Resultat As String
Set oDb = CurrentDb
For i = 1 To (Forms!frmEntree!lstCodeFournisseur.ListCount)
    If (Forms!frmEntree!txtOrigine = Forms!frmEntree!txtOrigine.Column(0, i - 1)) Then
        Resultat = "Existant"
    End If
Next
Set oRst = oDb.OpenRecordset("tblFournisseur")
If (Resultat <> "Existant") And (IsNull(Forms!frmEntree!txtOrigine) = False) Then
        NbEnregistrement = oRst.RecordCount
        If (NbEnregistrement = 0) Then
            x = 1
            Else:   oRst.MoveFirst
                    x = 0
                        For i = 1 To NbEnregistrement
                            If (oRst.Fields("Code_Fournisseur").Value = i) Then
                                x = 0
                                Else: x = i
                            End If
                            oRst.MoveNext
                        Next
                    If x = 0 Then
                        x = NbEnregistrement + 1
                    End If
        End If
    oRst.AddNew
    oRst.Fields("Code_Fournisseur").Value = x
    oRst.Fields("Origine").Value = Forms!frmEntree!txtOrigine
    oRst.Update
End If
 
DoCmd.Requery "txtOrigine"
oRst.Close
oDb.Close
Set oRst = Nothing
Set oDb = Nothing
End Sub

**LedZeppII** · 11/02/2007, 19h17

Qu'est-ce qui te fais dire que le code reste sur le 1er enregistrement (ce qui sous-entendrait que MoveNext n'a aucun effet) ?

Sinon, à la place de

Code :

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

Else: x = i

je mettrai

Code :

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

Else: x = i: Exit For

A+

**Ragnarok85** · 11/02/2007, 19h21

En fait j'avais une erreur ds la suite du code, et à ce moment i était = 2, c'est à dire que normallement j'aurais du etre sur le deuxième enregistrement. Or la valeur du champs était celle du premier enregsitrement.

**philben** · 11/02/2007, 19h26

re bonjour,

il manque <oRst.MoveLast> avant
<NbEnregistrement = oRst.RecordCount>

Le compte n'est donc pas bon.

Philippe

**LedZeppII** · 11/02/2007, 19h37

Est-ce que la table tblFournisseur a une clé primaire ou des indexes ?
Dans le cas contraire les enregistrements n'ont pas d'ordre défini.
Si tu as une clé ou un indexe sur Code_Fournisseur utilise le

Code :

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

1
2
Set oRst = oDb.OpenRecordset("tblFournisseur")
oRst.Index = "NomIndexe"  ' PrimaryKey pour la clé primaire

**Ragnarok85** · 11/02/2007, 19h44

Code_Fournisseur est l'index de la table, et c'est numero auto donc les enregistrements sont classé par ordre croissant.

Pour l'histoire du compte, je ne pense pas que ce soit nécessaire moveLast, j'ai déjà vérifier la valeur de cette variable elle fonctionne correctement.

**LedZeppII** · 11/02/2007, 20h05

Je viens de faire l'expérience.
J'ai créé une table tblFournisseur (Code_Fournisseur, Nom), clé primaire=Code_Fournisseur (Entier Long)

Je crée dans l'ordre les fournisseurs 1, 2, 3, 4

Code :

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

1
2
3
4
5
6
7
8
9
10
Dim oRst As DAO.Recordset
Dim oDb As DAO.Database
 
Set oDb = CurrentDb
Set oRst = oDb.OpenRecordset("tblFournisseur")
 
Do While Not oRst.EOL
   Debug.Print oRst("Code_Fournisseur")
   oRst.MoveNext
Loop

Avec ce code j'obtiens
1
2
3
4

Je supprime l'enregistrement du fournisseur 3
J'ajoute un nouvel enregistrement avec code fournisseur = 3.

J'ouvre la table. J'ai bien
1
2
3
4

J'exécute le même code, j'obtiens
1
2
4
3

Je reprends le code et j'ajoute l'indexe

Code :

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

1
2
3
4
5
6
7
8
9
10
11
Dim oRst As DAO.Recordset
Dim oDb As DAO.Database
 
Set oDb = CurrentDb
Set oRst = oDb.OpenRecordset("tblFournisseur")
oRst.index = "Primarykey"
 
Do While Not oRst.EOF
   Debug.Print oRst("Code_Fournisseur")
   oRst.MoveNext
Loop

j'obtiens
1
2
3
4

Par ailleurs, si tu as un champ Numéro Auto, tu ne peux pas boucher les "trous".

A+

**Tofalu** · 11/02/2007, 20h24

Envoyé par philben

re bonjour,

il manque <oRst.MoveLast> avant
<NbEnregistrement = oRst.RecordCount>

Le compte n'est donc pas bon.

Philippe

Tout dépend le type de recordset utilisé. Ici, s'il s'agit d'une table simple (non liée à une autre base) alors comme aucun paramètre n'est spécifié, le recordset sera de type dbopentable. Dans ce type de recordset (et uniquement dans ce type), la propriété recordcount retourne le nombre d'enregistrements présents dans le curseur

**philben** · 11/02/2007, 20h40

bonjour Tofalu,

En effet, j'étais en tables liées et le RecordCount n'était pas bon.

Merci pour vos lumières, Monsieur

Cordialement,

Philippe

**Ragnarok85** · 11/02/2007, 20h45

Ca fonctionne.

Merci beaucoup LedZeppII et à ceux qui m'ont aidé.

Je laisse le code final:

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
30
31
32
33
34
35
36
37
38
39
40
41
42
Sub AjoutCode_Fournisseur()
Dim oRst As DAO.Recordset
Dim oDb As DAO.Database
Dim Resultat As String
Set oDb = CurrentDb
For i = 1 To Forms!frmEntree!txtOrigine.ListCount
    If Forms!frmEntree!txtOrigine = Forms!frmEntree!txtOrigine.Column(0, i - 1) Then
        Resultat = "Existant"
    End If
Next
Set oRst = oDb.OpenRecordset("tblFournisseur")
oRst.Index = "Primarykey"
If (Resultat <> "Existant") And (IsNull(Forms!frmEntree!txtOrigine) = False) Then
        NbEnregistrement = oRst.RecordCount
        If (NbEnregistrement = 0) Then
            x = 1
            Else:   oRst.MoveFirst
                    x = 0
                        For i = 1 To NbEnregistrement
                            If (oRst.Fields("Code_Fournisseur").Value = i) Then
                                x = 0
                                Else: x = i
                                Exit For
                            End If
                            oRst.MoveNext
                        Next
                    If x = 0 Then
                        x = NbEnregistrement + 1
                    End If
        End If
    oRst.AddNew
    oRst.Fields("Code_Fournisseur").Value = x
    oRst.Fields("Origine").Value = Forms!frmEntree!txtOrigine
    oRst.Update
End If
 
DoCmd.Requery "txtOrigine"
oRst.Close
oDb.Close
Set oRst = Nothing
Set oDb = Nothing
End Sub

Se déplacer dans les enregistrements

Access

Discussions similaires

Partager

Partager