Tek-Tips is the largest IT community on the Internet today!

Members share and learn making Tek-Tips Forums the best source of peer-reviewed technical information on the Internet!

  • Congratulations IamaSherpa on being selected by the Tek-Tips community for having the most helpful posts in the forums last week. Way to Go!

Time Stamp in Excel

Status
Not open for further replies.

smatthews

IS-IT--Management
Jul 27, 2001
108
US
We are exploring tracking attendance for educational sessions by scanning a barcode ID on the attendee's badge. It automatically dumps the ID into Excel, however, we need a way to automate entering the date and time and then returning to the beginning of the next row. Has anyone done this or what would be the easiest way? I know there are commands in Excel for date and time but I can't seem to make the whole thing work. Any suggestions would be greatly appreciated.

Thanks in advance for your help.
Smatthews
 
I would say do it in Access
Then you can create a form and have it put the Time and Date into a new record as you scan the barocde.

This code does that

Private Sub Find1_AfterUpdate()
Dim SyncCriteria As String
Dim f As Form, rs As DAO.Recordset

'Define the form object and recordset object
Set f = Forms(Screen.ActiveForm.FormName)
Set rs = f.RecordsetClone

' define the criteria used for the sync
SyncCriteria = "[PalletTag]='" & Me![Find1] & "'"

' find the corresponding record in the Parts table
rs.FindFirst SyncCriteria
f.Bookmark = rs.Bookmark

Me!Shipped = True
Me!ShipDate = Format(Now, "mm/dd/yy")
Me!Shiptime = Format(Now, "hh:nn")

Me!BOL.SetFocus 'set focus to another box to key something in

End Sub
DougP, MCP
 
Status
Not open for further replies.

Part and Inventory Search

Sponsor

Back
Top