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
| Private Sub Valid_Cond_Click()
On Error GoTo Erreur
'tester si la saisie est bien un nombre et que le code est rempli
If IsNumeric(Me.Changement_Cond) And Len(Forms![F_Modification]![CodeCartes_Cond]) > 0 Then
If MsgBox("Voulez-vous pratiquer au changement du Conditionnement ?", vbYesNo, "Attention") = vbYes Then
If MsgBox("Confirmez-vous la nouvelle Quantité : " & Me.Changement_Cond & " cartes par carton ?", vbYesNo) = vbYes Then
'Mise à jour de la base de données
SQL = "UPDATE CARTES SET CARTES.[CONDITIONNEMENT PAR CARTONS] = [Formulaires]![F_Modification]![Changement_Cond]" _
& " WHERE CARTES.ARTICLE= [Formulaires]![F_Modification]![CodeCartes_Cond] ;"
DoCmd.SetWarnings False
DoCmd.RunSQL (SQL)
DoCmd.SetWarnings True
MsgBox "Mise à jour conditionnement effectuée", vbInformation, "Changement"
'Rafraichir ou Vider les Zones de texte (liste codeCartes, Code Cartes, Désignation, Conditionnement)
Me.Recherche_Cond = ""
Me.CodeCartes_Cond = ""
Me.Designation_Cond = ""
Me.Conditionnement_NB = ""
Me.Changement_Cond = ""
' + Rendre de nouveau Invisible la zone de Texte : Changement (VERT)
Me.Changement_Cond.Visible = False
Me.Recherche_Cond.SetFocus
Me.Valid_Cond.Visible = False
Else
'si non on ne fait rien
Exit Sub
End If
Else
'si non on ne fait rien
Exit Sub
End If
Else
MsgBox "Vous devez entrer un nombre dans la zone CHANGEMENT et un code dans la zone Code cartes", vbExclamation, "Erreur"
Me.Changement_Cond = ""
End If
Exit Sub
Erreur:
MsgBox "Une erreur est survenue ou l'opération a été annulée, la mise à jour conditionnement n'a pas effectuée !!!", vbCritical, "Erreur"
Debug.Print Err.Description
Debug.Print [Formulaires]![F_Modification]![CodeCartes_Cond]
End Sub |
Partager