Discussion :

[yael44]

Bonjour,

J'ai 2 champs dépendants de type date dans un formulaire de saisie/modification de Cde : DateLiv et DateDep.

Lors de la saisie, je souhaite que :
- DateLiv et DateDep soient strictement supérieures à la date du jour
- DateDep soit antérieure à DateLiv

Voici une partie de mon code, qui ne fonctionne pas malheureusement (rien ne se passe :

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 DateLiv_BeforeUpdate(Cancel As Integer)
 
    Dim DateLivraison As String
    Dim DateJour As String
 
    DateJour = Date
 
    If (IsNull(Me.[DateLiv]) Or Me.[DateLiv].Value <> "") Then
        Exit Sub
    Else
        DateLivraison = [DateLiv]
        If (DateLivraison <= DateJour) Then
            MsgBox "Date de livraison incorrecte", vbCritical
        Exit Sub
        End If
    Exit Sub
    End If
 
End Sub

Merci d'avance pour votre aide

[yael44]

Je viens de trouver mon erreur :

If (IsNull(Me.[DateLiv]) Or Me.[DateLiv].Value = "") et non
If (IsNull(Me.[DateLiv]) Or Me.[DateLiv].Value <> "")

Par contre, après l'affichage de la boite de dialogue, la valeur saisie est conservée, alors que j'ai placé mon code sur l'évènement Avant Mise à jour. Cet évènement ne signifie-t'il pas "avant l'insertion dans la table de la nouvelle valeur saisie ?
Si la valeur saisie n'est pas valide, comment conserver l'ancienne valeur, ou revenir à un champ vide si on était en création de commande ?

Merci pour vos réponses

[Amani Roland]

Bonjour,

Place la ligne de code suivante juste après la Msgbox pour annuler l'évènement.

Code :

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

1
2
 
cancel = true

Bonne suite!

[yael44]

Merci pour ta réponse. Malheureusement, cela ne fonctionne pas. Le champ conserve la dernière saisie.

Je redonne mon code légèrement modifié :

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
Dim DateLivraison As String
    Dim DateJour As String
 
    DateJour = Date
 
    'Je contrôle que pour une commande en état C, la date de livraison est postérieure à la date du jour
    If Me.[Etat] = "C" And (Not IsNull(Me.[DateLiv]) Or Me.[DateLiv].Value <> "") Then
        DateLivraison = [DateLiv]
        If (DateLivraison <= DateJour) Then
            MsgBox "La date de livraison doit être postérieure à la date du jour", vbCritical
            Cancel = True
        Exit Sub
        End If
    Exit Sub
    End If

Une autre idée ?

[nico84]

Bonjour,

Personnellement je mets les controles AfterUpdate et si ça ne me plait pas je fais undo

[Tofalu]

Peut-être que quelque chose comme ceci serait plus propre que des Exit Sub dans des if vides

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
Private Sub DateLiv_BeforeUpdate(Cancel As Integer)
On Error GoTo err
If Nz(DateLiv.Value) <> "" Then
    If CDate(DateLiv) < Date Then
        err.Raise 15001
    End If
End If
 
fin:
    Exit Sub
err:
    Select Case err.Number
        Case 13: MsgBox "La donnée saisie n'est pas une date"
        Case 15001: MsgBox "La date doit être supérieure à aujourd'hui"
        Case Else: MsgBox err.Number & ":" & err.Description
    End Select
    Me.DateLiv.Undo
    Cancel = True
    Resume fin
 
End Sub