Hello fellow users,
I am creating an update form to update my database using VBA. I am having an issue with the WHERE statement. It keeps showing up red in the code and I am not sure what I am doing wrong. Below is my code:
<code>
Private Sub cmdupdate_Click()
Dim strSQL As String
strSQL = "UPDATE settlement " & _
"SET channel = '" & cmbchannel & "', vendor = '" & cmbvendor & "', stream = '" & cmbstream & _
"', loan1 = '" & txtloan1 & "', loan2 = '" & txtloan3 & "', fname = '" & txtfname & _
"', lname = '" & txtlname & "', balance = '" & txtbalance & "', settlement = '" & txtsettlement & _
"', percentage = '" & txtpercentage & "', sstart = '" & txtsstart & "', send = '" & txtsend & _
"', sterms = '" & txtsterms & "', approved = '" & cmbapproved & "', status = '" & cmbstatus & _
"', closed = '" & txtreason & "', comments = '" & txtcomment & "', counter = '" & cmbcounter & _
"', settled = '" & cmbsettle & "', com = '" & txtcom & "', hqreview = '" & cmbhqreview & _
"', hqdate = '" & txthqdate & "', floor = '" & cmbfloor & "' & _
"WHERE ID = '" & txtid & "';
CurrentDb.Execute strSQL
If Err.Number <> 0 Then
Debug.Print strSQL
MsgBox strSQL
Exit Sub
End If
'message box
MsgBox "Your settlement has been updated successfully"
'clear the form
cmdclear_Click
End Sub
</code>
Any assistance would be greatly appreciated. Thanks
I am creating an update form to update my database using VBA. I am having an issue with the WHERE statement. It keeps showing up red in the code and I am not sure what I am doing wrong. Below is my code:
<code>
Private Sub cmdupdate_Click()
Dim strSQL As String
strSQL = "UPDATE settlement " & _
"SET channel = '" & cmbchannel & "', vendor = '" & cmbvendor & "', stream = '" & cmbstream & _
"', loan1 = '" & txtloan1 & "', loan2 = '" & txtloan3 & "', fname = '" & txtfname & _
"', lname = '" & txtlname & "', balance = '" & txtbalance & "', settlement = '" & txtsettlement & _
"', percentage = '" & txtpercentage & "', sstart = '" & txtsstart & "', send = '" & txtsend & _
"', sterms = '" & txtsterms & "', approved = '" & cmbapproved & "', status = '" & cmbstatus & _
"', closed = '" & txtreason & "', comments = '" & txtcomment & "', counter = '" & cmbcounter & _
"', settled = '" & cmbsettle & "', com = '" & txtcom & "', hqreview = '" & cmbhqreview & _
"', hqdate = '" & txthqdate & "', floor = '" & cmbfloor & "' & _
"WHERE ID = '" & txtid & "';
CurrentDb.Execute strSQL
If Err.Number <> 0 Then
Debug.Print strSQL
MsgBox strSQL
Exit Sub
End If
'message box
MsgBox "Your settlement has been updated successfully"
'clear the form
cmdclear_Click
End Sub
</code>
Any assistance would be greatly appreciated. Thanks