Slt,
Pas de problème apparent et pourtant, sans raison, les conditions ne sont pas toujours réspectées???L'ensemble de ce code n'est pas terminé, mais déja le premier If ne donne pas satisfaction, un coup ça marche un coup pas ???
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
37
38
39
40
41 Private Sub HeureRdv_AfterUpdate() Dim DoublonVeille As Integer DoublonVeille = MsgBox("Un Rdv Veille ou Net est déja prévu pour le jour que vous avez choisi !Veuillez changer d'heure de RDV ou de jour", vbYesNoCancel) Dim Forcing As Integer Forcing = MsgBox("Si vous tenez ABSOLUMENT a garder ce jour et cette heure pour votre Rdv, Il faut, dans ce cas, prevenir un(e) responsable du phoning pour déverrouiller !", vbYesNo) Dim CompteVeilleNet As Long Dim CompteBrut As Long CompteVeilleNet = DCount("[DateRdv]", "R_RdvPlusMoinsDeuxHeuresVeilleNet") CompteBrut = DCount("[DateRdv]", "R_RdvPlusMoinsDeuxHeuresBrut") 'vérif du Dcount direct formulaire Me.Texte40 = CompteVeilleNet Me.Texte42 = CompteBrut 'Si le Rdv saisi est veille If ((Me.RésultatRdv) = "Veille") Then 'mais que le Dcount en revèle déja un If ((CompteVeilleNet) = 1) Then Select Case DoublonVeille Case vbYes Me.HeureRdv.SetFocus Case vbNo Select Case Forcing Case vbYes Me.TrigrammeResponsable.Visible = True Me.CodeAccèsResponsable.Visible = True Case vbNo Me.HeureRdv.SetFocus End Select End Select End If 'Le Rdv n'est pas Veille donc Brut Else 'mais que le Dcount en revèle déja un If ((CompteBrut) = 1) Then Me.EtatRdv = "Brut2" End If 'mais que le Dcount en revèle Plus d'un If ((CompteBrut) > 1) Then MsgBox "blabla pas droit" End If End If End Sub
J'ai pourtant bien pris soins de vérifier mes DCount, de fermer mes boucles, etc, et vraiment j'ai passé des heures a relire ce code et je ne vois pas ce qui cloche ?
Aurai-je oublié quelque chose ??
Quelqu'un a une idée ?
d'avance merci...
Partager