Discussion :

[Flagny]

voila j'ai une table avec : date et Année, dans un formulaire, je voudrais que les utilisateurs n'est qu'a saisir le champ Année, et que ma table se mette à jour toute seule au niveau des dates soit entre le 1/01 et 31/12
comment faire

[cafeine]

Hello,

construit ta requête en mettant une clause WHERE du genre :

Code :

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

WHERE Year([MaTable]![MonChampDate]) = 2005

Tu peux remplacer 2005 par une variable ou un contrôle de formulaire.

[Flagny]

j'ai une table avec Date et année, j'ai crée un form à partir de cette table, dans ce formulaire, les utilisateurs doivent entrer l'année .
Ex: 2006 ,
à partir de cette saisie je souhaite que ma table soit mis à jour avec toutes les dates de l'année du 01/01/2006 au 31/12/06 .

Comment faire?

[zoom61]

Créer un module qui fait une boucle dans que tu n'es pas arrivé à la date de fin.

[Flagny]

tu peux m'expliquer un peu plus clairement, je suis malgre tout débutant

[zoom61]

Alors le code pour être le suivant :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
Sub maj()
Dim unit As DAO.Recordset, db_unit As DAO.Database
Set db_unit = CurrentDb
 
Date_min = CDate("01/01/"&Forms!Annee)
Date_max = CDate("31/12/"&Forms!Annee)
Date_moy = Date_min
 
While Date_moy <= Date_max
Set unit = db_unit.OpenRecordset("INSERT INTO table(date) SELECT " & Date_moy &"AS [Date] FROM table;"
Date_moy = Date_moy + 1
MoveNext
 
End Sub

[Flagny]

cela ne marche pas, j'ai un message d'erreur :
type défini par l'utilisateur non défini
en surlignant: "unit As DAO.Recordset"

[zoom61]

Quand tu es dans MVB, tu vas dans le menu Outils/Référence..., et la dans la liste tu dois avoir "Microsoft DAO 3.6 Object Library" qui doit être activé, la version peut être différente suivant ta version d'Access

[Flagny]

maintenant il n'accepte pas l'annee: erreur de compilation , incompatibilité

[zoom61]

En modifiant le code :

Code :

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

1
2
Date_min = CDate("01/01/" & Forms!Annee )  
Date_max = CDate("31/12/" & Forms!Annee )

[Flagny]

desolé, mais lmaitenant il y a une erreur de syntaxe dans "
Set unit = db_unit.OpenRecordset("INSERT INTO table(date) SELECT " & Date_moy &"AS [Date] FROM table;"

[zoom61]

Salut,

Essaye avec le code suivant :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
Sub maj() 
Dim unit As DAO.Recordset, db_unit As DAO.Database 
Set db_unit = CurrentDb 
 
Date_min = CDate("01/01/" & Forms!Annee) 
Date_max = CDate("31/12/" & Forms!Annee) 
Date_moy = Date_min 
 
While Date_moy <= Date_max 
Set unit = db_unit.OpenRecordset("INSERT INTO table(date) SELECT " & Date_moy & "AS [Date] FROM table;" 
Date_moy = Date_moy + 1 
MoveNext 
 
End Sub

L'erreur provient peut-être du fait que le & doit être précédent d'un espace.