Discussion :

[rouchi]

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

[madefemere]

Bonjour,

Je traiterai la condition dans l'autre sens

Code :

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

1
2
3
4
5
6
7
8
9
10
11
Private Sub Liste1_DblClick(Cancel As Integer)
 
If IsNull(Fille26!id_prod) Then
    Fille26!id_prod = Me.Liste1.Column(0)
Else
    If MsgBox("Voulez-vous vraiment remplacer le produit ?", vbQuestion + vbYesNo, "Remplacer matière première") = vbYes Then
        Fille26!id_prod = Me.Liste1.Column(0)
    End If
End If
 
End Sub

Cordialement.

[rouchi]

Un grand merci !!

Je ne pensais pas qu'il était possible de faire comme ça.

Je cherche avec ElseIf.

Çà marche parfaitement.