Bonsoir à tous,

J'ai téléchargé la version express de WINDEV afin de l'étudier, pouvez-vous me donner un exemple pour transformer ce code écrit en VBA Access, il vérifie avant la mise à jour si ce numéro n'existe pas( clé primaire), si "oui" on envoie un message à l'utilisateur puis le champ de saisie s'efface pour taper une bonne valeur.
en bref il ne peut pas y avoir de doublon possible.

Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
Private Sub National_BeforeUpdate(Cancel As Integer)
If DCount("*", "TROUPEAU", "[Dixchiffres]='" & Me.DixChiffres & "'") > 0 Then
         MsgBox "Cet animal existe déjà dans la base de donnée.", , "Saisie d'un doublon"
      Me.Undo
    Cancel = True
   End If
  End Sub

Merci d'avance