Adding VB code to a button

[sakopp]

I'm brand new at this and I'm making my first Access 2003 database. I would think my question is a real easy one.

The database is real simple with only 1 table. I created a form to get input from the user. Using the button wizard, I created an "Add Record" button that the user clicks when finished. When the button is clicked the VB code listed below runs. But before the code is finished, I want to assign values to 2 fields in the table for the record the user just created. I want to add today's date to a field called "DateEntere d", and then set a Yes/No field called "Complete" to "yes".

I should be able to enter a couple simple lines in the code below where the "?????" is. The problem is, I don't know how to write those lines. Can anyone tell me how to do it?

Thanks.





Private Sub Command0_Click( )
On Error GoTo Err_Command0_Cl ick


DoCmd.GoToRecor d , , acNewRec


?????


Exit_Command0_C lick:
Exit Sub

Err_Command0_Cl ick:
MsgBox Err.Description
Resume Exit_Command0_C lick

End Sub

[southoz]

Good ay ,

I use an orderdate field on my main form and on entering a new record it just fills in the field order_date (on the current form) by useing the date function
Me.Order_date = Date
to fill in the other field (if it's got a field on the form) just use Me.fieldname = data

southoz

[ADezii]

Set the Default Valued to these Fields as follows:
[DateEntered] = Now()
[Complete] = Yes

Anytime that you add a New Record these Fields will automatically be set to these Values. Hope this helps.

[MMcCarthy]

Try this:

 
 
Private Sub Command0_Click()
On Error GoTo Err_Command0_Click
 
Me.DateEntered=Date
Me.Complete=-1
 
DoCmd.GoToRecord , , acNewRec
 
 
 
Exit_Command0_Click:
Exit Sub
 
Err_Command0_Click:
MsgBox Err.Description
Resume Exit_Command0_Click
 
End Sub
 
 

[sakopp]

Thanks. I'll give those ideas a try.