Trying to save selected record from a form to a table

T

tjassal

Joined
Mar 12, 2011
Messages
3
Reaction score
0
Hi: I need help with the below procedure:

Private Sub Ctl40OTHours_AfterUpdate()
On Error GoTo Err_Ctl40OTHours_AfterUpdate
Dim db As DAO.Database
Dim strSQL As String
Set db = CurrentDb
strSQL = "INSERT INTO NameHours ( ID, " _
& "Cost) " _
& "VALUES ('" & Forms("OVER-TIME TRACKING FORM").[frmTotalCost].Form.[ID] & "', " _
& "#" & Forms("OVER-TIME TRACKING FORM").[frmTotalCost].Form.[Cost] & "#); "
db.Execute strSQL, dbFailOnError
Set db = Nothing
exit_Ctl40OTHours:
Exit Sub
Err_Ctl40OTHours_AfterUpdate:
MsgBox Err.Description
Resume exit_Ctl40OTHours
End Sub

I am getting an error message as : microsoft office access can't find the field 'I ' referred to in your expression
 
& "VALUES ('" & Forms("OVER-TIME TRACKING FORM").[frmTotalCost].Form.[ID] & "', " _
Click to expand...

Is it right that your ID should be written with single quotation mark? Normally, an ID can be written as an Integer ... Do you understand what I want to say?

Maybe:
& "VALUES (" & Forms("OVER-TIME TRACKING FORM").[frmTotalCost].Form.[ID] & ", " _
Click to expand...
 
bluepeople12 said:
Is it right that your ID should be written with single quotation mark? Normally, an ID can be written as an Integer ... Do you understand what I want to say?
Sorry but I do not understand. I am still learing the access db. Please give me an example.
Maybe:
Click to expand...
Sorry but I do not understand. I am still learing the access db. Please give me an example.
 
Back
Top