How to Print System Date & Time in Data Base Table field?

well you just

select getdate()

This works for Text Box, But I wanted  like a "Button" control to do it.  How can I do it with Button control or make text box as Button control

Here is how. Call this from your button click:

Call InsertRecord("NameOfYourTable")

Public Sub InsertRecord(ByVal strTable As String)

  Dim dbs   As DAO.Database
  Dim rst   As DAO.Recordset
  
  Set dbs = CurrentDb
  Set rst = dbs.OpenRecordset(strTable)
  With rst
    .AddNew
      .Field("NameOfYourDateTimeField").Value = Now
    .Update
    .Close
  End With
  Set rst = Nothing
  Set dbs = Nothing
  
End Function

Select allOpen in new window

/gustav

I am new to Visual Basic, this should go on Event procedure on Click?  Most of the time it is Private Sub, you have here Public, any difference?

You can put it all in your OnClick event:

  Dim dbs   As DAO.Database
  Dim rst   As DAO.Recordset
  
  Set dbs = CurrentDb
  Set rst = dbs.OpenRecordset("NameOfYourTable")
  With rst
    .AddNew
      .Field("NameOfYourDateTimeField").Value = Now
    .Update
    .Close
  End With
  Set rst = Nothing
  Set dbs = Nothing

Select allOpen in new window

/gustav

I got following error:

Comile error:

User-defined type not defined

Here is the code that I entered

Private Sub Log_In_Click()
  Dim dbs   As DAO.Database
  Dim rst   As DAO.Recordset
 
  Set dbs = CurrentDb
  Set rst = dbs.OpenRecordset("LogIn")
  With rst
    .AddNew
      .Field("LabDate").Value = Now
    .Update
    .Close
  End With
  Set rst = Nothing
  Set dbs = Nothing
End Sub

Go to menu Tools, References.
Add a reference to Microsoft DAO 3.6

/gustav

How do I resolve this error:

Compile error:
Method or data member not found


This occurred near this:

 With rst
    .AddNew
      .Field

The name of Table is LogIn

The field name is LabDate

Oops, it should read:

      .Fields("LabDate").Value = Now

This is the other error:

Run-Time error '91':
Object variable or With block variable not set


Code here:

Private Sub Log_In_Click()
  Dim dbs   As DAO.Database
  Dim rst   As DAO.Recordset
 
  Set dbs = CurrentDb
  Set rst = dbs.OpenRecordset("LogIn")
  With rst
    .AddNew
      .Fields("LabDate").Value = Now
    .Update
    .Close
  End With
  Set rst = Nothing
  Set dbs = Nothing
End Sub

Code is correct, thus something else is going on. Even a typo would raise another error.

/gustav

Hey, I finally resorted to your 1st solution.  I had put the code in text box that is way I did not like like but after putting the code in Button it worked great.  

Thanks for your help.

Put this code in Button not in Text Box

You are welcome!

/gustav