How to put date created from command button into table

[AA Arens]

I have a button PutDate on a form "Company" that put the current date
in the Notes field:

Private Sub PutDate_Click()
Me!ModDate = Date
Me.Refresh

If Len(Me.Notes & "") 0 Then
Me.Notes = Me.Notes & vbCrLf & Format(Date, "dd-mm-yyyy") & " ------ "
End If
If Len(Me.Notes & "") = 0 Then
Me.Notes = Me.Notes & Format(Date, "dd-mm-yyyy") & " ------ "
End If

Notes.SetFocus
Notes.SelStart = Len(Notes.Value)
End Sub

Now my question: I also want to have this value (the date) put in a
column of a table which name "Company". How to perform that? (In
mentioned table all data from the same form are added.)

In my opinion it should not be so difficult.

Access 2003.

[steph]

AA Arens wrote:

I have a button PutDate on a form "Company" that put the current date
in the Notes field:

Private Sub PutDate_Click()
Me!ModDate = Date
Me.Refresh

If Len(Me.Notes & "") 0 Then
Me.Notes = Me.Notes & vbCrLf & Format(Date, "dd-mm-yyyy") & " ------ "
End If
If Len(Me.Notes & "") = 0 Then
Me.Notes = Me.Notes & Format(Date, "dd-mm-yyyy") & " ------ "
End If

Notes.SetFocus
Notes.SelStart = Len(Notes.Value)
End Sub

Now my question: I also want to have this value (the date) put in a
column of a table which name "Company". How to perform that? (In
mentioned table all data from the same form are added.)

In my opinion it should not be so difficult.

Access 2003.

Hi,

Is your form "Company" based on the table "Company"? Is the column of
table "Company", that you want to put the date in, part of your form
"Company"? If yes then of course it would be something like:

Me.Column=Date

.... as with ModDate and Notes.

Hope that helps,
Stephan