1 2 3 4 5 6 7 8 9 10 11 12 13 14 15
| ' ╔═══════════════════════════════════════════════════════════════════════════════════════════════════════════════╗
Sub Move_OutofInventory()
' ╚═══════════════════════════════════════════════════════════════════════════════════════════════════════════════╝█
' ▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀
' ne fonctionne pas...
Dim oStatement As Object
if IsNull(ThisDatabaseDocument.CurrentController.ActiveConnection) then
ThisDatabaseDocument.CurrentController.connect
endif
oStatement = ThisDatabaseDocument.CurrentController.ActiveConnection.createStatement()
StrTime = Format(now(),"D/MM/YY")
strSQL ="INSERT INTO ""TAB_SORTIE_INV"" (""TYPE"", ""SERIE_DU_TYPE"",""MARQUE"",""DATE_ACHAT"",""BUDGET_ACHAT"",""SERIAL"",""DATE_SORTIE_INV"") SELECT ""TYPE"", ""SERIEduTYPE"",""MARQUE"",""DATE_ACHAT"",""BUDGET_ACHAT"",""SERIALNUMBER"",'"+ StrTime +"' FROM ""TAB_INVENTAIRE"" WHERE ""ASortirDeLinventaire"" = true"
msgbox(StrSQL)
oStatement.execute(StrSQL)
End sub |
Partager