VBA code to add new record through a button on a form

[sgp667]

Hi guys this is my first piece of VBA code ever. Its meant to create new record in "Hours" table when clicking on "NewPayButton", and in the field Beginning its supposed to use today's date.
Needles to say it fails to do its job. Debugger points to the third line[Private Sub NewPayButton_Click()], with pop up saying "Object required".
I'm not sure what object am I missing?

Option Compare Database


Private Sub NewPayButton_Click()
Dim PayrollDb As DAO.Database
Dim WHours As DAO.Recordset
Dim Today As Date


Set PayrollDb = CurrentDb
Set WHours = PayrollDb.OpenRecordset("Hours")
Set Today = Now


WHours.AddNew
WHours("Begining").Value = Today
WHours.Update


End Sub

I've attached the database that uses this code.


Thanks

[June7]

Try:

Private Sub NewPayButton_Click()
CurrentDb.Execute "INSERT INTO Hours(Beginning) VALUES(Now());"
End Sub

Why is this necessary? Why don't you bind form to the table and bind textboxes to fields? Entry to textbox will pass directly to the table.

[sgp667]

This is just the first procedure this I will use I am making another one to make a loop so that I can input multiple records in on click.
This code worked perfectly.

So the way I understand this CurrentDb.Execute "" executes SQL code?

[June7]

Yes, it does. SQL action statements. Of course doesn't apply to SELECT query statement.

[sgp667]

Thanks June7 you have been extremely helpful with all of my past questions(this one included).