hey
i got a strange error of query expression after i edit and update
i checked my code 1 by 1. dont know why i get this message.
you decide
this is the update code
i got a strange error of query expression after i edit and update
i checked my code 1 by 1. dont know why i get this message.
you decide
this is the update code
Code:
With FrmExpenses.LsVw.SelectedItem
strSQL = "UPDATE Expenses SET "
strSQL = strSQL & "ExpDate = #" & MyDate(PickDate.Value) & "#,"
strSQL = strSQL & "ExpType = '" & RplS(txt(1).text) & "',"
strSQL = strSQL & "ExpQuantity = '" & txt(2).text & "',"
strSQL = strSQL & "ExpCost = " & CCur(txt(3).text) & ","
strSQL = strSQL & "ExpInvoice = '" & RplS(txt(4).text) & "',"
strSQL = strSQL & "ExpPament = ' " & Cmb1.text & "',"
strSQL = strSQL & "ExpCredit = ' " & Cmb2.text & "',"
strSQL = strSQL & "ExpBank = ' " & Cmb3.text & "',"
strSQL = strSQL & "ExpFinal = #" & MyDate(DTfinal.Value) & "#"
strSQL = strSQL & " WHERE ExpID = " & .Tag
strSQL = strSQL & ")"
CN.Execute strSQL
.text = Format(PickDate.Value, "dd/mm/yyyy")
txt(1).text = .SubItems(1)
txt(2).text = .SubItems(2)
txt(3).text = .SubItems(3)
txt(4).text = .SubItems(4)
Cmb1.text = .SubItems(5)
Cmb2.text = .SubItems(6)
Cmb3.text = .SubItems(7)
.text = Format(DTfinal.Value, "dd/mm/yyyy")