Hi :),
I have the following code : to test the entry in a database :
Sub test()
Dim x As Integer
x = Add_NewBatch_DB(125, "12/05/2011", "20/06/2015", "20/06/2015")
End Sub
Private Function Add_NewBatch_DB(CptMach As Long, TmpSupp As Date, TmpNP As Date, CurrDte As Date) As Integer...