Discussion :

[JFH83]

J’ai 3 tables : Table élève, Table cours reliée à Table élève, Table vacances indépendante contenant chaque jour non travaillé (vacances ou jours fériés)
J’ai un formulaire élève avec un sous formulaire cours.
Je saisis une date de début de cours qui me sert à définir une date théorique de fin de cours en fonction des formules que l’élève a choisies. (cours 1 par semaine et toujours le même jour)
Mon problème est le suivant :
J’ai besoin de compter combien de jours non travaillés sont contenus entre le premier cours et le dernier cours théorique afin de décaler la date dernier cours théorique en rajoutant le nombre de semaines non travaillées.
Pour cela j’utilise 2 requêtes la première identifie les jours non travaillés
La seconde compte le nombre d’occurrences de la première requête ce qui représente le nombre de semaines à rajouter.
Mes requêtes fonctionnent en passant les 2 dates manuellement. Pour l’automatiser dans mon sous formulaire, je remplace la saisie manuelle par une définition Forms de mes champs Date_PremierCours et Date_DernierCours. Exemple :

Code :

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

[forms]![F_Creer_EleveCours]![SF_Creer_EleveCours].Form![Cours_DatePremierCours]

Code :

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

[forms]![F_Creer_EleveCours]![SF_Creer_EleveCours].Form![Cours_DateDernierCours]

Résultat à l’exécution, il affiche le Forms et me demande de rentrer la date manuellement.
Je tourne en rond

[tee_grandbois]

bonjour,
une explication, même claire, ne suffit pas, peux-tu poster le code et préciser dans quel contexte est lancée cette requête ?

[JFH83]

Je prépare ça

[JFH83]

Bonjour Tee_Grandbois
J'ai copié l'impression écran dans un document word ci-joint

La requête est appelée depuis le sous formulaire SF_CreerEleveCours
merci

[tee_grandbois]

ce critère n'est pas logique:
>=[forms]![F_Creer_EleveCours]![SF_Creer_EleveCours].Form![Cours_DatePremierCours] et [forms]![F_Creer_EleveCours]![SF_Creer_EleveCours].Form![Cours_DateDernierCours]je ne vois pas ce que cela peut renvoyer à part les valeurs égales

est-ce possible d'avoir une copie de la base (format .zip ou .rar) avec des données anonymisées ?

[JFH83]

Désolé mais je n’ai pas ici les outils pour envoyer la base de données.
Je pense que j’ai mal exprimé le problème.
La requête fonctionne comme je le veux mais en passant manuellement les paramètres
C’est un formulaire de saisie des enregistrement qui appelle la requête après la saisie de la date premier cours.
Tout fonctionne hors mis qu’il me fait saisir les 2 dates alors que je veux qu’l prenne les 2 dates que je viens de saisir et les passe à la requete
Le critère dans la requête pour
Table_VacancesDate

Code :

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

>=[forms]![F_Creer_EleveCours]![SF_Creer_EleveCours].[Form]![Cours_DatePremierCours] Et <=[forms]![F_Creer_EleveCours]![SF_Creer_EleveCours].[Form]![Cours_DateDernierCours]

Sélectionne bien les jours de vacances compris entre ces 2 dates
Le critère dans la requête pour
Table_VacancesJours

Code :

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

JourSem([forms]![F_Creer_EleveCours]![SF_Creer_EleveCours].[Form]![Cours_DatePremierCours])-1

Sélectionne bien les vacances correspondant au jour de la semaine de la date Premier Cours
Le souci c’est que le Forms ne prend pas la valeur du champ de mon formulaire de saisie mais il me demande de rentrer manuellement les dates
Exemple : date 1er cours 23/04/2020 date dernier cours 28/05/2020
J’ai pour résultat jeudi 30/04/2020 qui est bien le seul jeudi non travaillé entre ces 2 dates.

[tee_grandbois]

Désolé mais je n’ai pas ici les outils pour envoyer la base de données.

faire un Zip est natif dans Windows depuis quelques années

Le souci c’est que le Forms ne prend pas la valeur du champ de mon formulaire de saisie mais il me demande de rentrer manuellement les dates
Exemple : date 1er cours 23/04/2020 date dernier cours 28/05/2020

j'avais bien compris ton problème sauf que pour trouver la où ça coince, il me faut la base sous la main pour faire des recherches, je n'ai pas la science infuse pour ce genre de dysfonctionnement et cela irait beaucoup plus vite que des questions/réponses

Code :

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

>=[forms]![F_Creer_EleveCours]![SF_Creer_EleveCours].[Form]![Cours_DatePremierCours] Et <=[forms]![F_Creer_EleveCours]![SF_Creer_EleveCours].[Form]![Cours_DateDernierCours]

oui, c'est plus logique

[JFH83]

Je comprends je vais voir avec mon fils pour voir comment faire.
Merci pour ton aide

[JFH83]

Re, j'espère avoir fait les choses correctement.
Il faut aller dans créer un élève, formulaire f_Creer_EleveCours, sous formulaire SF_Creer_EleveCours.
La requete appelée R_ListeJour
J'ai oublié de remettre

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
DoCmd.OpenQuery "R_ListeJour"
 
Private Sub Cours_FormuleN°_AfterUpdate()
 
If Cours_FormuleN°.Column(3) = 44 Then
    Me.Cours_NBSemCours = Fix(((FinSaison - Cours_DatePremierCours) / 7) + 1)
    Me.Cours_DateDernierCours = (Cours_DatePremierCours + ((Cours_NBSemCours - 1) * 7))
ElseIf Cours_FormuleN°.Column(3) = 22 Then
          Me.Cours_NBSemCours = Fix(((FinSaison - Cours_DatePremierCours) / 14) + 1)
          Me.Cours_DateDernierCours = (Cours_DatePremierCours + ((Cours_NBSemCours - 1) * 14))
ElseIf Cours_FormuleN°.Column(3) = 5 Then
            Me.Cours_NBSemCours = 5
            Me.Cours_DateDernierCours = (Cours_DatePremierCours + ((Cours_NBSemCours - 1) * 7))
ElseIf Cours_FormuleN°.Column(3) = 15 Then
            Me.Cours_NBSemCours = 15
            Me.Cours_DateDernierCours = (Cours_DatePremierCours + ((Cours_NBSemCours - 1) * 7))
    End If
Me.Cours_PrixEleve = Cours_FormuleN°.Column(2) / Cours_FormuleN°.Column(3) * Cours_NBSemCours
' remettre DoCmd.OpenQuery "R_ListeJour"  Ici
End Sub

[tee_grandbois]

bonjour,
il faut utiliser la propriété Nom du sous-formulaire, pas la propriété Objet source pour désigner l'objet:

Code :

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

>=[formulaires]![F_Creer_EleveCours]![SF_Cours].[Form]![Cours_DatePremierCours] Et <=[forms]![F_Creer_EleveCours]![SF_Cours].[Form]![Cours_DateDernierCours]

Code :

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

JourSem([forms]![F_Creer_EleveCours]![SF_Cours].[Form]![Cours_DatePremierCours])-1

[JFH83]

Mille mercis tee_grandbois je me suis entêté depuis 5 jours

"Quand le sage désigne la lune, l'idiot regarde le doigt" c'est ce que j'ai fait

[tee_grandbois]

Mille mercis tee_grandbois je me suis entêté depuis 5 jours

de rien...
pense à mettre le sujet

Mais sait-on quels sont les sages et quels sont les fous, dans cette vie où la raison devrait souvent s'appeler sottise et la folie s'appeler génie ?

Guy de Maupassant