Access 2003 Formulaire / requete
Résolu/Fermé
teckmicro
Messages postés
89
Date d'inscription
vendredi 7 mars 2008
Statut
Membre
Dernière intervention
15 avril 2018
-
24 août 2012 à 14:29
teckmicro - 28 août 2012 à 10:58
teckmicro - 28 août 2012 à 10:58
A voir également:
- Access 2003 Formulaire / requete
- Formulaire de réclamation facebook - Guide
- Office 2003 - Télécharger - Bureautique
- Formulaire instagram compte suspendu - Guide
- Le formulaire rempli - Guide
- Confirmer le nouvel envoi du formulaire err_cache_miss ✓ - Forum HTML
2 réponses
Jean_Jacques
Messages postés
1040
Date d'inscription
mercredi 30 avril 2008
Statut
Membre
Dernière intervention
1 août 2014
112
Modifié par Jean_Jacques le 24/08/2012 à 15:34
Modifié par Jean_Jacques le 24/08/2012 à 15:34
Bonjour teckmicro,
A propos du tri de vos enregistrements par semaine, voici la syntaxe à saisir dans l'interface graphique en vue de lister le N° semaine :
N° de Semaine : PartDate("WW";[<Champ_Date>])
NB : Remplacer <Champ_Date> par le vrai nom du champ
Il ne reste plus qu'à indiquer l'ordre de tri souhaité.
Bonne découverte
La science ne fait que trouver ce qui existe depuis toujours.
REEVES Hubert.
A propos du tri de vos enregistrements par semaine, voici la syntaxe à saisir dans l'interface graphique en vue de lister le N° semaine :
N° de Semaine : PartDate("WW";[<Champ_Date>])
NB : Remplacer <Champ_Date> par le vrai nom du champ
Il ne reste plus qu'à indiquer l'ordre de tri souhaité.
Bonne découverte
La science ne fait que trouver ce qui existe depuis toujours.
REEVES Hubert.
castours
Messages postés
2955
Date d'inscription
lundi 18 septembre 2006
Statut
Membre
Dernière intervention
31 août 2019
217
24 août 2012 à 16:03
24 août 2012 à 16:03
Bonjour
Voila le code VBA d'un bouton qui visualise un etat.
Private Sub Cde_Vis_Sem_Click()
On Error GoTo Err_Cde_Vis_Sem_Click
'E_Synthése Semaine
Dim stDocName As String
stDocName = "E_Synthése Semaine"
DoCmd.OpenReport stDocName, acPreview, , "[N°Sem]=" & Me![N°Sem]
Exit_Cde_Vis_Sem_Click:
Exit Sub
Err_Cde_Vis_Sem_Click:
MsgBox Err.Description
Resume Exit_Cde_Vis_Sem_Click
End Sub
Voila le code VBA d'un bouton qui visualise un etat.
Private Sub Cde_Vis_Sem_Click()
On Error GoTo Err_Cde_Vis_Sem_Click
'E_Synthése Semaine
Dim stDocName As String
stDocName = "E_Synthése Semaine"
DoCmd.OpenReport stDocName, acPreview, , "[N°Sem]=" & Me![N°Sem]
Exit_Cde_Vis_Sem_Click:
Exit Sub
Err_Cde_Vis_Sem_Click:
MsgBox Err.Description
Resume Exit_Cde_Vis_Sem_Click
End Sub
teckmicro
Messages postés
89
Date d'inscription
vendredi 7 mars 2008
Statut
Membre
Dernière intervention
15 avril 2018
24 août 2012 à 17:10
24 août 2012 à 17:10
Merci
castours
Messages postés
2955
Date d'inscription
lundi 18 septembre 2006
Statut
Membre
Dernière intervention
31 août 2019
217
28 août 2012 à 00:06
28 août 2012 à 00:06
Bonjour
Pour le Pdf je ne sais pas.
Pour ce qui du code plus haut, c'est un bouton de commande qui visualise ou imprime suivant que tu utilise acPreview ou acNormal comme argument.
AcPreview visualise l'etat
AcNormal imprime l'etat
Lorsque tu as une date, on reconnait le n° semaine et on visualise ou imprime tousles enregistrements de la semaine.
Pour le Pdf je ne sais pas.
Pour ce qui du code plus haut, c'est un bouton de commande qui visualise ou imprime suivant que tu utilise acPreview ou acNormal comme argument.
AcPreview visualise l'etat
AcNormal imprime l'etat
Lorsque tu as une date, on reconnait le n° semaine et on visualise ou imprime tousles enregistrements de la semaine.
24 août 2012 à 17:10
27 août 2012 à 14:07
et j'aimerais créer une autre requête ou s'affiche que la semaine actuel Exp = au 27/08/2012 , semaine 35 !
merci de votre aide
cordialement
27 août 2012 à 19:26
Afin de lister uniquement les enregistrements de la semaine en cours,vous devrez intervenir comme suit dans l'interface graphique :
1 - Dans le champ, saisir : N° de semaine : PartDate("WW";[<Champ_Date])
2 - Puis, dans critères saisir : PartDate("WW";Maintenant())
Par contre je n'ai pas de compétences en ce qui concerne votre lien vers votre document PDF.
Bonne soirée
28 août 2012 à 10:58
cordialement.