Discussion :

[Hania06]

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 :

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
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

[nico84]

Bonjour,

Il faut insérer une nouvelle ligne et non modifier une ligne existante choisie au hasard :

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
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.addnew
 
    oRst1.Fields("Dates").Value = Now()
    oRst1.Fields("Positions").Value = LgNbLignes
 
    oRst1.Update
oRst1.Close
oDb.Close
Set oRst1 = Nothing
Set oDb = Nothing
 
End Sub

[Hania06]

Merci infiniment, c'est ce que je voulais

Ca marche parfaitement bien