Discussion :

[Lolo62000]

Bonjour,

j'ai passé ma matinée à essayer de triturer un bout de code et de l'adapter à mon cas, mais sans succès.
J'ai un formulaire qui sert à mettre à jour les informations concernant un fournisseur.
J'ai un code identifiant mes fournisseurs, qui peut revenir plus d'une fois si le fournisseur exerce dans différentes régions.
Lorsque je sélectionne ce code pour afficher et mettre à jour les infos, j'aimerais qu'une msgbox s'affiche, si il y a plus qu'un code identique dans ma db, afin de savoir qu'il existe d'autres entrées à mettre à jour.
Mes données:
Table = T_Fournisseur
Code identifiant`= Code_Space
Nom de la zone de liste déroulante servant à choisir le code: Modifiable216

J'ai essayé de rentrer ceci entre autres, mais je ne comprends pas vraiment la syntaxe.... :/

Code :

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

1
2
3
4
5
6
Private Sub Modifiable216_Change()
If DCount("*", "[T_Fournisseur]", "[Code_Space]='" & Me!Modifiable216.Value & "'") > 1 Then
  MsgBox "Fournisseur présent plus d'uen fois dans le bottin !", vbCritical
  Cancel = True
End If
End Sub

Merci pour votre aide.

Laurent.

[EricDgn]

Bonjour,

L'événement "change" ne peut être annulé (Cancel = True)

Il faut aller sur l'événement "Avant MAJ", qui peut être annulé, et y créer la procédure événementielle suivante:

Code :

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

1
2
3
4
5
6
Private Sub Modifiable216_BeforeUpdate(Cancel As Integer)
   If DCount("*", "[T_Fournisseur]", "[Code_Space]='" & Me!Modifiable216 & "'") > 1 Then
      MsgBox "Fournisseur " &  Me!Modifiable216 & " présent plus d'une fois dans le bottin !", vbCritical, "Anomalie" 
      Cancel = True
   End If
End Sub

Le DCount() va compter le nombre de fois que la valeur sélectionnée dans le déroulant est présente dans la table T_Fournisseur.

L'annulation va faire que la valeur sélectionnée ne sera pas acceptée (retour à la valeur initialement affichée dans le déroulant).

Bonne continuation.