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
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
Hello,
construit ta requête en mettant une clause WHERE du genre :
Tu peux remplacer 2005 par une variable ou un contrôle de formulaire.
Code : Sélectionner tout - Visualiser dans une fenêtre à part WHERE Year([MaTable]![MonChampDate]) = 2005
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?
Créer un module qui fait une boucle dans que tu n'es pas arrivé à la date de fin.
tu peux m'expliquer un peu plus clairement, je suis malgre tout débutant
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
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"
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
maintenant il n'accepte pas l'annee: erreur de compilation , incompatibilité
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 )
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;"
Salut,
Essaye avec le code suivant :
L'erreur provient peut-être du fait que le & doit être précédent d'un espace.
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
Vous avez un bloqueur de publicités installé.
Le Club Developpez.com n'affiche que des publicités IT, discrètes et non intrusives.
Afin que nous puissions continuer à vous fournir gratuitement du contenu de qualité, merci de nous soutenir en désactivant votre bloqueur de publicités sur Developpez.com.
Partager