Discussion :

[Imitator92]

Bonjour

Je créé des tables par date et dans ces tables, le champ date comporte toujours la même valeur (dans chaque table)

Comment récupérér cette valeur (unique) dans une variable que je pourrai exploiter apres ?

Merci de votre aide

[marot_r]

Je ne saisi pas bien ta question.

Premièrement si ta date est toujours la même pourquoi est-elle dans plusieures tables ?

Deuxièmement voici un exemple code qui permet cela mais ce n'est pas forcément une bonne idée. L'usage de variables globales est à prendre avec de grandes pincettes. Comme elles sont manipulables par tous les programmes de ton application cela est parfois la source de bugs très difficiles à identifier et a corriger.

Le code ci-dessous est à mettre dans un module.

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
 
global MaDateGlobale as date
 
Public Sub AssignerMaDate()
   dim db as dao.database:set db=currentdb
   dim r as dao.recordset:set r=db.openRecordset("MaTable")
 
   if not r.eof() then
       MaDateGlobale=r![MaDate]
     else
       'À priori ta date doit exister, sinon c'est une erreur
       error 5
   end if
 
   r.close:set r=nothing :'Ferme le recordset; Libère la mémoire utilisée
   db.close:set db=nothing :'Libère la mémoire utilisée
 
end sub