Discussion :

[jclm230759]

Bonjour à tous,

Malgré plusieurs essais et recherches , je reste bloqué (je ne suis qu'un amateur )

Sur le fichier ci-joint j'explique mon problème. Je suis sur que quelqu'un pourra me donner la solution.

Merci d'avance et bien à vous

[madefemere]

Bonsoir,

Je mettrais ce code qui vérifierait le nombre de réservations à ce moment (J'espère que chaque badge dans la table T_Recap correspond à une personne !!) sur l'évènement Après Mise à Jour de ton champ ChampHeureAller

Code :

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

1
2
3
4
5
Private sub ChampHeureAller_AfterUpDate()
If Dcount("Badge","T_Recap","[DateNavAller]=#" & ChampDateAller & "# HeureNavAller='" & ChampHeureAller & "'")>4 then
Msgbox "Cette navette est pleine ! Changez d'heure ou date !"
ChampHeureAller.SetFocus 'A toi de voir comment gérer la suite, mettre un Undo ou mettre à Null
End Sub

@+

[jclm230759]

Bonsoir,

Je mettrais ce code qui vérifierait le nombre de réservations à ce moment (J'espère que chaque badge dans la table T_Recap correspond à une personne !!) sur l'évènement Après Mise à Jour de ton champ ChampHeureAller

Code :

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

1
2
3
4
5
Private sub ChampHeureAller_AfterUpDate()
If Dcount("Badge","T_Recap","[DateNavAller]=#" & ChampDateAller & "# HeureNavAller='" & ChampHeureAller & "'")>4 then
Msgbox "Cette navette est pleine ! Changez d'heure ou date !"
ChampHeureAller.SetFocus 'A toi de voir comment gérer la suite, mettre un Undo ou mettre à Null
End Sub

@+

Bonjour

merci pour la réponse. Mais cela ne fonctionne pas j'ai un message d'erreur "cette application a été arrêté à cause d'une erreur d'application"

ci-joint le fichier peut être pourriez vous regarder si j'ai bien recopié votre code

Merci et bonne journée

[madefemere]

Bonjour,

Effectivement, j'étais trop pressé.
Code amélioré :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
Private Sub HeureNavAller_AfterUpdate()
If DCount("Badge", "T_Recap", "[DateNavAller]=#" & Format(Me.DateNavAller, "mm/dd/yyyy") & "#" _
                                & " AND [HeureNavAller]='" & Me.HeureNavAller & "'") > 4 Then
MsgBox "Cette navette est pleine ! Changez d'heure ou date !"
Me.HeureNavAller = ""
End If
 
'A toi de voir comment gérer la suite, mettre un Undo ou mettre à Null
Me.HeureNavAller.SetFocus
 
End Sub

@+

[jclm230759]

Bonjour,

Effectivement, j'étais trop pressé.
Code amélioré :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
Private Sub HeureNavAller_AfterUpdate()
If DCount("Badge", "T_Recap", "[DateNavAller]=#" & Format(Me.DateNavAller, "mm/dd/yyyy") & "#" _
                                & " AND [HeureNavAller]='" & Me.HeureNavAller & "'") > 4 Then
MsgBox "Cette navette est pleine ! Changez d'heure ou date !"
Me.HeureNavAller = ""
End If
 
'A toi de voir comment gérer la suite, mettre un Undo ou mettre à Null
Me.HeureNavAller.SetFocus
 
End Sub

@+

SUPER
encore un grand merci pour ton aide

Puis je te demander une dernière aide pour ce fichier.
Maintenant que j'ai pu bloquer :-))
Je voudrais éviter que l'on réserve 2x pour le même badge

Merci

[jclm230759]

Merci pour votre aide,


une dernière petite question
j'ai maintenant pu bloquer mes enregistrements.
mais je souhaiterais éviter d'enregistrer 2x le même badge pour le même trajet.
Par la clé primaire cela ne fonctionne pas car mon badge me sert aussi pour réserver des repas donc mon champ"datenavaller" peut être nul

Merci à vous

[madefemere]

Bonjour,
Tu entends par même trajet <=> même date si j'ai bien compris.
Il faudrait rechercher s'il existe déjà un enregistrement avec le numéro de badge correspondant ce jour là? A vérifier dans le même champ HeureNavAller dans le même module et avant la saisie la validation finale je pense :.

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
Private Sub HeureNavAller_AfterUpdate()
If DCount("Badge", "T_Recap", "[DateNavAller]=#" & Format(Me.DateNavAller, "mm/dd/yyyy") & "#" _
                                & " AND [Badge]='" & Me.Badge & "'") > 0 Then
MsgBox " Ce badge a une navette réservée ce jour-là ! "
Me.Badge.SetFocus
Me.Badge = ""
Exit Sub 'Sortir de la routine
End If
If DCount("Badge", "T_Recap", "[DateNavAller]=#" & Format(Me.DateNavAller, "mm/dd/yyyy") & "#" _
                                & " AND [HeureNavAller]='" & Me.HeureNavAller & "'") > 4 Then
MsgBox "Cette navette est pleine ! Changez d'heure ou date !"
Me.HeureNavAller = ""
End If
'A toi de voir comment gérer la suite, mettre un Undo ou mettre à Null
Me.HeureNavAller.SetFocus
 
End Sub

@+

[jclm230759]

Bonjour,
Tu entends par même trajet <=> même date si j'ai bien compris.
Il faudrait rechercher s'il existe déjà un enregistrement avec le numéro de badge correspondant ce jour là? A vérifier dans le même champ HeureNavAller dans le même module et avant la saisie la validation finale je pense :.

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
Private Sub HeureNavAller_AfterUpdate()
If DCount("Badge", "T_Recap", "[DateNavAller]=#" & Format(Me.DateNavAller, "mm/dd/yyyy") & "#" _
                                & " AND [Badge]='" & Me.Badge & "'") > 0 Then
MsgBox " Ce badge a une navette réservée ce jour-là ! "
Me.Badge.SetFocus
Me.Badge = ""
Exit Sub 'Sortir de la routine
End If
If DCount("Badge", "T_Recap", "[DateNavAller]=#" & Format(Me.DateNavAller, "mm/dd/yyyy") & "#" _
                                & " AND [HeureNavAller]='" & Me.HeureNavAller & "'") > 4 Then
MsgBox "Cette navette est pleine ! Changez d'heure ou date !"
Me.HeureNavAller = ""
End If
'A toi de voir comment gérer la suite, mettre un Undo ou mettre à Null
Me.HeureNavAller.SetFocus
 
End Sub

@+

SUPER cela fonctionne encore un grand merci pour tes réponses