Bonjour à tous, 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
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
 
Option Compare Database
 
Private Sub Decrementer()
 
'Si la valeur du champs Code Barre est valide
If Not IsNull(Me.CodeBarre.Value) Then
 
        'Recherche et affichage de l'enregistrement correspondant au Code Barre entré
        With Me.RecordsetClone
 
            .FindFirst "[Code_Barre]=" & Me.CodeBarre.Value
 
            'Si enregistrement trouvé, Affichage de l'enregistrement
            If .NoMatch = False Then
 
                Me.Bookmark = .Bookmark:
 
            End If
 
            'Si enregistrement trouvé
            If .NoMatch = False Then
 
                'Plus grand que 0, décrémente de 1
                If [Total_en_inventaire].Value > 0 Then
 
                [Total_en_inventaire] = [Total_en_inventaire] - 1
 
                'Sinon, message d'erreur
                Else
 
                MsgBox "Il n'y a plus de cette article en inventaire."
 
                End If
 
            End If
 
            'Actualise le formulaire
            If .NoMatch = False Then
 
                Me.Refresh
 
            End If
 
 
            'Si enregistrement non trouvé, Affichage message d'erreur
            If .NoMatch = True Then
 
                MsgBox "Aucun enregistrement valide" & Chr(13) + Chr(10) & "Essayer un nouveau code barre."
 
            End If
 
        End With
 
    Else
        'Si champs texte vide, Message d'erreur
        MsgBox "Vous devez saisir un code barre."
 
    End If
 
    'Efface la valeur du champs texte et lui remet le focus
    Me.CodeBarre.Value = Null
    Me.CodeBarre.SetFocus
 
End Sub
 
Private Sub BTN_Decrementer_Click()
 
    Decrementer
 
End Sub
 
Private Sub Form_KeyDown(KeyCode As Integer, Shift As Integer)
 
    If KeyCode = vbKeyReturn Then
 
        Decrementer
 
    End If
 
End Sub
 
Private Sub Form_Load()
 
'À l'ouverture, formulaire vide
DoCmd.GoToRecord , , acNewRec
 
End Sub
Alors, mon problème est que quand j'appuie sur la touche "Enter", au lieu d'avoir ma requête Decrementation qui fait -1 à mon champs dans ma bd, il me sort le MsgBox comme si mon champs Code Barre de mon formulaire serait vide?

La même requête Decrementation en appuyant sur le bouton fonctionne sans problèmes.

Alors j'avoue que je n'y comprends rien? Quelqu'un peut m'aider à comprendre pourquoi il pense que mon champs est vide quand j'appuie sur "Enter", mais que si j'appuie sur le bouton tout fonctionne bien?

Merci de votre aide.