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
| Private Sub Form_Close()
On Error GoTo ErrFerme
'------------------------ Effacer les anciens inventaires
Call DEL_Inventaire_Carton
'------------------------ Enregistrer le stock carton dans un fichier texte
'
Set rst = db.OpenRecordset("SELECT * FROM Cartons ORDER BY CartonCodeJDE")
With rst
.MoveFirst
Do Until .EOF
If IsNull(.Fields("CartonQte")) = True Then l_Qte = 0 Else l_Qte = .Fields("CartonQte")
Call CartonsTxt(.Fields("CartonCodeJDE"), l_Qte)
.MoveNext
Loop
.Close
End With
'-------------------- Message de fermeture
msgbox "Le fichier " & s_StockCartons & a été enregistré sur " _
& vbCrLf & s_CheminStock, vbInformation, "TERMINÉ"
FinErrFerme:
Exit Sub
ErrFerme:
msgbox Error$
Resume FinErrFerme
End Sub
Sub CartonsTxt(s_Code As String, l_Qte As Long)
F = FreeFile
Open s_CheminStock + s_StockCartons For Append Shared As #F
Print #F, s_Code, l_Qte
Close #F
End Sub
Sub DEL_Inventaire_Carton()
On Error Resume Next
Kill s_CheminStock + s_StockCartons
End Sub |
Partager