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 |
Partager