Discussion :

[alainGL]

Bonjour à tous

Je suis bloqué depuis un certain temps sur mon code.
Sur un formulaire, pour une date donnée (celle du jour par défaut), je voudrais pouvoir saisir le détail des interventions dans un sous formulaire qui deviendra visible qu'après avoir choisi l'intervenant dans une liste modifiable ainsi que la durée d'intervention proposée dans une liste modifiable : 1/2 journée (valeur 0,5) et la journée (valeur 1).
J'ai écrit un code après la mise à jour de cette liste modifiable pour que l'intervenant ne dépasse pas la valeur totale de 1 dans la journée :

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
21
22
23
24
 
Dim per As Date
Dim inter As String
Dim sql As String
Dim rst As DAO.Recordset
 
per = Format(ZtDateINT, "mm/d/yyyy")
 
inter = Me!LmIntervenantINT
 
sql = "SELECT T_Interventions.Date_INT, T_Interventions.Intervenant_INT, Sum(T_Interventions.Duree_INT) AS SommeDeDuree_INT "
sql = sql & "from T_Interventions "
sql = sql & "GROUP BY T_Interventions.Date_INT, T_Interventions.Intervenant_INT "
sql = sql & "HAVING (((T_Interventions.Date_INT)=#" & per & "#) AND ((T_Interventions.Intervenant_INT)='" & inter & "')); "
 
Set rst = CurrentDb.OpenRecordset(sql)
 
If rst.RecordCount = 0 Then
    Exit Sub
Else
    If rst.Fields(2).Value + LmDureeINT > 1 Then
        MsgBox "La durée totale des interventions dépense la journée !"
    End If
End If

Cela ne fonctionne pas, et je ne trouve pas l'erreur !
pouvez-vous m'éclairer ?
Merci

[Simplifi]

hello
pour ce que tu code, le mieux est de supprimer la totalité du code ! ! !
les deux premières lignes d'affectations se résument à "valeur par défaut" dans l'onglet données des propriétés des zones
le SQL est avantageusement remplacé par, au choix
- une requête à critères
- la table elle même et un filtre sur le formulaire
la limite de valeur par une règle de validation dans la définition de la table
et si tu tiens absolument à avoir une ligne de VB (ou 2 ou 3), tu peux toujours rendre le sous formulaire visible et fixer son filtre sur l'évènement sortie de la zone intervenant