Discussion :

[patdaum]

bonjour,

Avec le code ci-après est-il possible de récupérer ds une variable la valeur d'un champ du 3 ème enregistrement.

DoCmd.OpenTable "commission", acViewNormal
DoCmd.GoToRecord acDataTable, "commission", acGoTo, 3

variable= ?

Sinon en ouvrant un recordset comment se placer sur, par exemple, l'enregistrement N° 5 ?

Merci beaucoup pour votre aide

[morpheus002]

En passant par les recordsets cela donne cela :

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
 
Dim stValeur As String
Dim oDb As DAO.Database
Dim oRst As DAO.Recordset
 
Set oDb = CurrentDb
 
Set oRst = oDb.OpenRecordset("SELECT * FROM [MaTable]", dbOpenDynaset)
If (oRst.RecordCount <> 0) Then
    oRst.Move (5)
    stValeur = oRst.Fields("champs").Value      'valeur 5e enregistrement
End if
oRst.Close
 
Set oRst = Nothing

[patdaum]

Bonjour,

Merci beaucoup, c'est ce qu'il me faut