Discussion :

[Rickhq]

Bonjour,

j'ai un formulaire qui me permet de réserver des plages horaires pour un employé (CIP) quelconque. Plusieurs plages semblables sont disponibles pour plusieurs employées mais un employé ne peut réserver plus d'une fois la même plage pour une même date. J'ai joins la table (démo) qui contient les plages ainsi que les champs qui sont sur le formulaire de saisie.

merci de votre aide!

[Nico820]

Je pense qu'il faudrait faire un left join, mais j'ai du mal à détecter le problème.

Pourrais-tu être un peu plus spécifique stp?

[Rickhq]

Merci pour le retour,

En fait pour faire simple, il me faut un pop-up qui me préviendrait lorsqu'il y aurait saisie en doublon

EX: Date: 2015-03-17, Début:10:30, Fin:10:45, CIP: AB3738
Date: 2015-03-17, Début:10:30, Fin:10:45, CIP: AB3738 (Doublon). Un Pop-up doit s'afficher pour empêcher cette 2ièm saisie.

Désolé je ne peut être plus explicite...

[madefemere]

Bonsoir Rickhq,

Pourquoi dans ce cas tu ne définis pas tes 4 champ comme clés primaire multiple?

Cordialement,

[Rickhq]

Merci madefemere,

J'ai bien essayé et cherché là dessus, mais je n'y arrive pas, compte tenu de la répétition de certaines données dans les champs (date, Début, Fin, CIP ) la clé primaire ne peut être y être mise dans la table en question.

[jimbolion]

Rickhq?

Ce que te dis Mandresy c'est bien de créer une clé unique composite qui te garantira l'unicité sur tes 4 champs (date, Début, Fin, CIP )




Si il s'agit cependant de valider le non chevauchement des plages horaires, le contrôle sera effectué par requête (les exemples fournis par Jeannot ou Denis et leurs gestions de Plannings fourmillent d'exemples)

Tu trouveras ici des exemples :

http://access.developpez.com/cours/?...m#formplanning

Jimbolion

[Rickhq]

Yessss! C'est exactement ce qu'il me fallait! Question: Y a t'il moyen de personnaliser le pop-pup ex: "Cette plage a déjà été sélectionnée pour ce représentant!"

Merci merci merci!!

[Rickhq]

J'obtiens ce message d'erreur quand un doublon est sélectionné...

[jimbolion]

Rickhq,

si ton erreur est géré par du code VBA, mettre en place alors une gestion d'erreur (on error goto) et en catchant l'erreur 3022 afficher le message souhaité.

Jimbolion

[Rickhq]

En fait il y 2 messages d'erreur identiques causé par ces deux codes;

[madefemere]

Bonsoir,

Donc il faut créer une gestion d'erreurs dans tes 2 modules :
Juste après la déclaration du module, mettre ON ERROR GOTO GESTERROR ' Aller à la ligne GESTERROR quand une erreur se produit. Et à partir de là traiter les erreurs possibles. Normalement cette gestion d'erreur va se trouver à la fin de ta procédure avant le End Sub. Du genre :

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
Private Sub Réservé_AfterUpDate()
ON ERROR GOTO GESTERROR
'Tu as tes codes...
...
 
...
GESTERROR : 
Select Case Err.Number
    Case 3022, 0
        MsgBox " Cette plage est déjà utilisée !"
        Me.Undo
    Case Else
        MsgBox "Erreur N°" & Err.Number & vbCrLf & Err.Description
End Select
 
End Sub

Et la même chose à injecter dans le code pour Private sub réservé_Click()

Cordialement,

[Rickhq]

Bonjour madefemere , Merci pour le retour.

Bon on se rapproche mais le pop-pup apparait 2 fois et cela même si il ne s'agit pas de doublon...

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
25
26
27
28
29
30
31
32
33
34
35
36
Private Sub Réservé_AfterUpdate()
On Error GoTo GESTERROR
 
CIP = [Texte22]
Representant = [Texte24]
Equipe = [Texte27]
CrééLe = Now
CreePar = Environ("Nom")
 
If Me.Réservé.Value = False Then
CIP = ""
Representant = ""
Equipe = ""
CrééLe = ""
Memo = ""
Salle = ""
CreePar = ""
Coaching = ""
MiseNiveau = ""
AideTechnique = ""
Diffuseur = ""
AjoutéàOutLook = False
End If
 
DoCmd.RunCommand acCmdRefresh
GESTERROR:
Select Case Err.Number
    Case 3022, 0
        MsgBox " Cette plage est déjà utilisée !"
        Me.Undo
    Case Else
        MsgBox "Erreur N°" & Err.Number & vbCrLf & Err.Description
End Select
 
 
End Sub

et

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
Private Sub Réservé_Click()
On Error GoTo GESTERROR
If IsNull(Me.Texte30) Or Me.Texte30 = "" Or Me.Texte30 = " " Then
        MsgBox "Vous devez sélectionner un CIP", vbInformation
        Réservé = False
        Réservé.Undo
End If
 
DoCmd.RunCommand acCmdRefresh
 
GESTERROR:
Select Case Err.Number
    Case 3022, 0
        MsgBox " Cette plage est déjà utilisée !"
        Me.Undo
    Case Else
        MsgBox "Erreur N°" & Err.Number & vbCrLf & Err.Description
End Select
End Sub

Mille merci pour ton aide!

[jimbolion]

Rickhq

mettre un exit sub après DoCmd.RunCommand acCmdRefresh

Code :

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

1
2
3
4
5
6
7
8
9
10
11
DoCmd.RunCommand acCmdRefresh
Exit Sub
GESTERROR:
Select Case Err.Number
    Case 3022, 0
        MsgBox " Cette plage est déjà utilisée !"
        Me.Undo
    Case Else
        MsgBox "Erreur N°" & Err.Number & vbCrLf & Err.Description
End Select
End Sub

jimbolion

[Rickhq]

Gros merci jimbolion ,

Avec çà j'ai tout ce qu'il me fallait!

Au plaisir!