HOW CAN I RECORD DATE AND USERS NAME AUTO!!!!

[chubby]

I was wondering how can I have the date and the Endusers name automatically placed into a table each time the EndUser opens or closes a form? I tried using a Macro and Append query but it does seem to work...

Chubby

 

[JSchumacher]

Are you trying to write history to a table regarding who is opening and closing forms and when? Assuming this is the table to store the desired information:

tblFormHistory
-------------
FormHistoryID
EndUserID
FormName
DateOpened
DateClosed


Create these functions in a module:

Public Function FormOpenHistory(strFormName As String) As Integer

Dim rst As DAO.Recordset

Set rst = CurrentDb.OpenRecordset("tblFormHistory&quot

rst.AddNew
rst.Fields("EndUserID&quot = DLookup("UserID", "tblCurrentUser&quot
rst.Fields("FormName&quot = strFormName
rst.Fields("DateOpened&quot = Now()
FormOpenHistory = rst.Fields("FormHistoryID&quot
rst.Update
rst.Close

End Function

Public Function FormCloseHistory(intFormID As Integer)
Dim rst As DAO.Recordset

Set rst = CurrentDb.OpenRecordset("tblFormHistory&quot

rst.Index = "PrimaryKey"
rst.Seek "=", intFormID
rst.Edit
rst.Fields("DateClosed&quot = Now()
rst.Update
rst.Close

End Function


For each form that you want history from use these for the Open and Close events:

Private Sub Form_Close()
FormCloseHistory intFormHistoryID
End Sub

Private Sub Form_Open(Cancel As Integer)
intFormHistoryID = FormOpenHistory(Me.Name)
End Sub

This assumes a Global variable:
Dim intFormHistoryID As Integer

The DLookUp statement assumes you have the EndUser information entered in a table - you may need to modify to your needs.