Discussion :

[Virgile59]

Bonjour,

Je recherche le moyen de me positionner sur le n enregistrement d'une table quelqu'un connait il une formule ?

genre rechdom(champ, table, N° d'enregistrement)

et une méthode en sql qqn connait ? pour se positionner sur le n enregistrement ???

[Lou Pitchoun]

Salut

sur gotorecord

[Virgile59]

Je ne sais pas comment utiliser cette commande, pouvez vous m'aider ?

Je voudrais recupérer la valeur du champs NUMMAT pour la table MATLOC à la 2nd ligne de cette table.

Code :

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

1
2
3
4
Dim oDb As DAO.Database
Set oDb = CurrentDb
Set oRstClient = oDb.OpenRecordset("VIRGILE_MATLOC", dbOpenTable)
oRstVIRGILE_MATLOC.Move 2

Je ne sais pas comment récupérer la valeur du champs NUMMAT de la table VIRGILE_MATLOC

Merci pour l'aide !

[Lou Pitchoun]

Code :

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

1
2
3
4
5
Dim oDb As DAO.Database
Set oDb = CurrentDb
Set oRstClient = oDb.OpenRecordset("VIRGILE_MATLOC", dbOpenTable)
oRstClient.Move 1
Variable = oRstClient![NomChamp]

Attention, tu as utilisé oRstVIRGILE_MATLOC alors qu'il n'est pas déclaré. C'est oRstClient qu'il faut que tu utilises.

[Virgile59]

Merci pour l'aide je m'en suis sortie avec :

Code :

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

1
2
3
4
5
6
7
8
Dim oDb As DAO.Database
Dim Valeur As String
Set oDb = CurrentDb()
Set oRstValeur = oDb.OpenRecordset("VIRGILE_MATLOC")
oRstValeur.Move 0
Valeur = oRstValeur![MCDMAT]
 
MsgBox ("" & Valeur & "")

[Virgile59]

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
Dim oDb As DAO.Database
Set oDb = CurrentDb()
Set oRstValeur = oDb.OpenRecordset("VIRGILE_MATLOC")
Dim N As Integer
Dim Valeur As String
Dim NbLigne As Integer
Dim MAT As String
NbLigne = DCount("[MCDMAT]", "VIRGILE_MATLOC")
 
N = 0
Do Until N = NbLigne
    oRstValeur.Move N
    MAT = oRstValeur![MCDMAT]
    N = N + 1
    MsgBox ("" & N & " / " & MAT & "")
Loop

La propriété move ne fonctionne pas bien ici, il ne se positionne pas sur l'enregistrement souhaité !!??

si je lui dit

Code :

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

oRstValeur.Move 9

il me donne la bonne valeur par contre si je met

Code :

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

oRstValeur.Move N

comme dans le code il est à côté de la plaque ??? Il ne me parcours que 18 enregistrements en plus ??

[Lou Pitchoun]

Comment ça "à coté de la plaque" ??

Quand tu fais :

Code :

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

    MsgBox ("" & N & " / " & MAT & "")

Tu affiches : N + 1 et MAT correspond à l'enregistrement N.
Tu devrais incrémenter après ton MsgBox pour vérifier ton résultat

[Virgile59]

J'ai compris mon erreur, voici la correction

Code :

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

1
2
3
4
5
6
7
N = 0
Do Until N = NbLigne - 1
    oRstValeur.Move 1
    MAT = oRstValeur![MCDMAT]
    MsgBox ("" & N & " / " & MAT & "")
    N = N + 1
Loop

Merci pour l'aide !!!