Bonjour à tous,

Je fais encore appelle à votre aide... Je sèche sur des conditions que je souhaite placer en VBA mais j'ai toujours une erreur d'instruction.

Je souhaite via un double clique copier une ref d'une liste vers un sous-formulaire, cela marche très bien mais je voulais éviter que l’utilisateur écrase une donnée déjà entrée dans le SF.

Pour cela, je veux vérifier que si le champ n'est pas vide alors un MSGBOX s'affiche et l'utilisateur peut valider son action. Et là, c'est le drame !!!

Voici mon code :

Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11
12
13
14
Private Sub Liste1_DblClick(Cancel As Integer)
 
 If Not IsNull(Fille26!id_prod) Then
 
MsgBox("Voulez-vous vraiment remplacer le produit ?", vbQuestion + vbYesNo, "Remplacer matière première") = vbNo _
Exit Sub
 
Else
Fille26!id_prod = Me.Liste1.Column(0)
 
End If
 
 
End Sub