1 2 3 4 5 6 7 8 9 10 11 12 13 14
|
Public Function fInsereOperation(vcompte As Long, vIdTiers As Long, _
vIdCategorie As Long, vdate As Date, vCredit As Currency, _
vDebit As Currency, vDescription As String, vMemo As String, vPointe As Boolean) As Variant ' , vPointe As Boolean)
' insere une operation
Dim strSql As String
strSql = "INSERT INTO Operations [([IdCompte],[IdTiers],[IdCategorie],[DateOpe],[Credit],[Debit],[Description],[Memo],[Pointe])]"
strSql = strSql & " VALUES (" & vcompte & "," & vIdTiers & "," & vIdCategorie & ","
strSql = strSql & "#" & vdate & "#," & "'" & Nz(vCredit, 0) & "'" & ", " & "'" & Nz(vDebit, 0) & "'" & ",'" & vDescription & "'," & "'" & vMemo & "'," & vPointe & ");"
Debug.Print strSql
currentDB.Execute strSql |
Partager