Bonjour....
J'ai un probleme avec un code.
Moi j'ai crée un formulaire qui permet la sortie du stock avec un sous formulaire qui permet de visualiser la situation du stock selon l'article selectionné.
Apres j'ai fait deux bouton, un qui permet d'ajouter un enregistrement et l'autre qui permet de l'enregistrer. mais dans le bouton pour enregistrer j'ai ajouté un code qui permet de verifier si la quantité sortie est < à la qté disponible et qui enleve de la qté disponible la qté sortie.
mais il me dit qu'il y a un erreur et je n'arrive pas à comprendre où il est.
voici le code
merci beaucoup
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 Private Sub Comando15_Click() On Error GoTo Err_Comando15_Click If Me.QtàScaricata.Value < 0 Then DoCmd.DoMenuItem acFormBar, acEditMenu, 8, , acMenuVer70 DoCmd.DoMenuItem acFormBar, acEditMenu, 6, , acMenuVer70 MsgBox "stock insufficiente" Else: DoCmd.DoMenuItem acFormBar, acRecordsMenu, acSaveRecord, , acMenuVer70 situazione_magazzino.Form!QuantitàDisponibile = situazione_magazzino.Form!QuantitàDisponibile - Me.QtàScaricata End If Exit_Comando15_Click: Exit Sub Err_Comando15_Click: MsgBox Err.Description Resume Exit_Comando15_Click End Sub
Partager