Updating a Table with Info

[Dalagrath]

Hello there, I am trying to update a table and adding new information when I hit a button. Now eventually this will record when a person enters and leaves the system, but I am testing this out on basic information first.

The code I used is this:

 
Private Sub Command6_Click() 
On Error GoTo Err_Command6_Click
 
'Dim Commands for Fields/Boxes
Dim LastName As String
Dim FirstName As String
Dim Number As Integer
Dim Address As String
 
GoSub AdditionSample
 
AdditionSample:
'Updating the Sample table using this
Set rst = db.OpenRecordset("tblSample", dbOpenDynaset)
With rst
.AddNew
!LastName = Form!frmSample!LastName
!FirstName = Form!frmSample!FirstName
!Number = Form!frmSample!PhoneNumber
!Address = DLookup("[Address]", "[tblEmployeeInformation]", "[EmployeeID] = 1")
.Update
.Close
End With
Return
Exit Sub
 
Exit_Command6_Click:
Exit Sub
 
Err_Command6_Click:
MsgBox Err.Description
Resume Exit_Command6_Click
 
End Sub

It keeps giving me an error on the Private Sub section. What am I doing wrong?

[ajetrumpet]

why do you have GOSUB and RETURN statements in the code?? Based on your post, it sounds like you want to run the code once through, correct??

in addition, this is from VBA help:

You can't enter or exit Sub procedures with GoSub...Return

which I'm pretty sure might relate to your error.

If you do indeed want the code to only run once, why write all of that when you can simply execute one line of code that runs an sql statement to do the same thing??

The other that's missing in the code, as I see it, is a "dim" statement for your "rst" object. That will throw an error, if nothing else does. You can't SET without DIMMING, even if you have the "require variable declaration" option turned off (I'm pretty sure about this).

[Dalagrath]

No, what I want is when I press the code, it takes the information from the form that I dedicate, and then it slams it into a table that I specify. This way, I can do something like track when someone enters or exits an application.