Discussion :

[Malick]

Pour les besoins de mon suivi en interne, j'ai créé un champ Numéro Bloc qui est de type numérique et dans lequel les informations sont saisies.

Je souhaiterais maintenant mettre en place un contrôle qui permet de garantir la chronologie des numéros saisis par l'utilisateur, sinon afficher un message comme alerte.

Pensez-vous que cela est possible via VBA ? Si oui, pourriez-vous me donner une piste et j'essaierais d'écrire le code ?

Merci d'avance

Cordialement,
Malick

[madefemere]

Bonsoir Malick,
Utiliser la fonction Dmax et rajouter 1 et comparer avec la valeur saisie.
A vérifier sur l'événement avant mise a jour ou après mise a jour.
Cordialement

[Malick]

Bonsoir Madefemere

Merci pour la piste ; je vais m'y mettre et t'informerais de la suite.

Malick

[Malick]

Salut, madefemere

Voici le code que j'ai fait et qui marche :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
Private Sub NumeroBloc_BeforeUpdate(Cancel As Integer)
Dim Response As Integer
Dim Alerte As String
        Response = Nz(DMax("NumeroBloc", "tBlocsTickets"), " ") + 1
    If Me.NumeroBloc <> Response Then
        Alerte = MsgBox("Le numéro de bloc saisi est incorrect, veuillez le corriger.", vbOKOnly + vbCritical, "Chronologie des numéros de bloc")
            If Alerte = vbOK Then
                Cancel = True
            End If
    End If
End Sub

Si tu as des remarques pour l'améliorer ou l'optimiser, je suis preneur.

Merci d'avance

Cordialement

[Malick]

Merci madefemere pour ton aide, je passe la discussion en résolue.

Cordialement,
Malick