[AC-2003] calcul dans une requête

[patb1212]

J'ai une requête avec un champ date du jour, et un champ numérique.

Je ne voudrai pas dépasser 8 h par jours, (dans le champ numérique).
Ex. Lundi 8h maximum ex...

Et 7h pour tout les Vendredi.

Si il y a un dépassement en cliquant sur le bouton enregistrer du formulaire un message indique qu’il y a un problème de date.

Ps: Dans pièce jointe ouverture du formulaire (Nouveau Bouzat Patrick)
J'espère avoir été clair dans mon explication.

Merci.

[vodiem]

salut patb1212 et bienvenu,

sans vouloir chambouler le code, remplace Enregistrer_Click par:

Code :

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
Private Sub Enregistrer_Click()
Select Case DatePart("w", Me.Date)
    Case 6: 'vendredi
        Cancel = TPS >= 6
        If Cancel Then MsgBox "vendredi TPS<6h": Exit Sub
    Case Else
        Cancel = TPS >= 8
        If Cancel Then MsgBox "TPS<8h": Exit Sub
End Select
 
 
On Error GoTo Err_Enregistrer_Click
 
    DoCmd.GoToRecord , , acNewRec
    Me.[Bouzat_Patrick_Requête_sous_formulaire].Requery
    Me.[Bouzat Patrick Requête mois sous-formulaire].Requery
 
Exit_Enregistrer_Click:
    Exit Sub
 
Err_Enregistrer_Click:
    MsgBox Err.Description
    Resume Exit_Enregistrer_Click
 
End Sub

à adapter à tes besoins...

[patb1212]

A tu testé dans mon exemple ça ne marche pas.
Ou je ne colle pas comme il faut le code je reposte l’exemple.
Et bon réveillon a tous le forum…
A l’année prochaine…
Merci

[vodiem]

Envoyé par patb1212

Je ne voudrai pas dépasser 8 h par jours, (dans le champ numérique).

j'ai supposé les bornes sur le champ numérique TPS, auquel cas la db exemple fonctionne.
mais si ce n'est pas le résultat espéré pourrais tu être plus explicite stp?

bonne réveillon aussi patb1212 et à tous

[patb1212]

Oui je vais essayer .
Si tu veux quand j'enregistre des heures dans la bd le total du jours ne dois pas dépasser 8h pour tout les jours et 7h le vendredi.

Exemple:

le 02/12/2012 je rentre 6h le reste n'est pas important(code/rue/ex...)
le 02/12/2012 je rentre 2h la c'est ok si je me trompe et que je rentre 3h je voudrais un message qui me rappelle que je ne peux rentrer que 8h/jours.

[vodiem]

Code :

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
Private Sub Enregistrer_Click()
nb = Nz(DSum("TPS", "Bouzat Patrick", "[Date]=" & Format(Me.Date, "\#m/d/yyyy\#")), 0)
Select Case DatePart("w", Me.Date)
    Case 6: 'vendredi
        If (nb + TPS) >= 7 Then MsgBox "vendredi TPS<7h" & vbCrLf & (6 - nb) & " max": Exit Sub
    Case Else
        If (nb + TPS) >= 8 Then MsgBox "TPS<8h" & vbCrLf & (7 - nb) & " max": Exit Sub
End Select
 
 
On Error GoTo Err_Enregistrer_Click
 
    DoCmd.GoToRecord , , acNewRec
    Me.[Bouzat_Patrick_Requête_sous_formulaire].Requery
    Me.[Bouzat Patrick Requête mois sous-formulaire].Requery
 
Exit_Enregistrer_Click:
    Exit Sub
 
Err_Enregistrer_Click:
    MsgBox Err.Description
    Resume Exit_Enregistrer_Click
 
End Sub

[patb1212]

Merci vodiem.
Super bonne année 2012.