problème dans le parcours d'une table (avec un code VBA)
Bonjour à tous,
Je voudrais stocker le nombre d'enregistrement de ma base de donnée, dans une autre table en utilisant un code VBA.
Mon problème est que je veux stoker, cette valeur, dans une ligne (un enregistrement) seulement, de la table. Et qu'à chaque fois que je réexécute mon code, le nombre calculé soit affiché dans la ligne suivante de la table sans que cela n'influe sur la ligne précédente (C 'est à dire que si le nombre d'enregistrement de la base de donnée change, la nouvelle valeur, calculée à partir du code, apparaitra dans la prochaine ligne vide, mais le changement n'affectera pas la valeur calculée dans la ligne précédente)
Voici mon code, qui agit seulement sur le premier enregistrement de la table :/ :
Code:
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
| Sub pos_historik()
Dim oRst As DAO.Recordset
Dim oDb As DAO.Database
Dim oRst1 As DAO.Recordset
Dim oFld As DAO.Field
Set oDb = CurrentDb
Set oRst = oDb.OpenRecordset("bd", dbOpenTable)
LgNbLignes = oRst.RecordCount
Set oRst1 = oDb.OpenRecordset("Table1", dbOpenTable)
oRst1.Edit
oRst1.Fields("Dates").Value = Now()
oRst1.Fields("Positions").Value = LgNbLignes
oRst1.Update
oRst1.MoveFirst
oRst1.Close
oDb.Close
Set oRst1 = Nothing
Set oDb = Nothing
End Sub |
