captainlove
captainlove
- Local time
- Today, 14:32
- Joined
- Apr 18, 2008
- Messages
- 39
I am getting an error on my select statement with this code and the if statement.
Can anyone help
Private Sub txtRevisedCost_LostFocus()
sql = "select * FROM projectupctable WHeRE Prj_no = '" & Me.prj_No & "' AND upc = " & Me.UPC"
rs.Open SQL, CurrentProject.Connection, adOpenDynamic, adLockOptimistic
if rs.RecordCount = 0'then
Else
rs.Fields("RevisedCost") = Me.txtRevised
rs.Update
End If
rs.Close
rs = Nothing
End Sub
Can anyone help
Private Sub txtRevisedCost_LostFocus()
sql = "select * FROM projectupctable WHeRE Prj_no = '" & Me.prj_No & "' AND upc = " & Me.UPC"
rs.Open SQL, CurrentProject.Connection, adOpenDynamic, adLockOptimistic
if rs.RecordCount = 0'then
Else
rs.Fields("RevisedCost") = Me.txtRevised
rs.Update
End If
rs.Close
rs = Nothing
End Sub