按钮单击事件的时间，如何保存和记录

大凯　发表于：2018-11-05 10:21:10 　

Access的生产管理，按钮“Program Box Printer”，产品完成后，单击这个按钮进行日期打印，产品损坏或更换时，需要重新打印日期，所以需要再次单击这个按钮，为了追溯，想记录每次单击这个按钮时间，现在新增了一个文本框，然后在按钮的单击事件中记录这个时间，现在问题是，只能记录最后一次打印的时间，但我想记录所有的打印时间，只要每次单击按钮，都会记录这个时间。不知道如何实现，现在用的now函数，

Me.Text1288 = Now()，我现在想实现，每次单击按钮的时间，都会记录下来，然后存到print time字段，每次查询时能看到，每次打印的时间。谢谢大神回复。

Top

茼蒿发表于：2018-11-05 13:57:07

点击按钮写入代码 insert into 记录表（print time） values (now())

Top

大凯发表于：2018-11-06 09:37:38

谢谢茼蒿，试了，这个语句不行。

Private Sub Command1241_Click()

Dim vbanswer As Integer, Strdata1 As String

On Error Resume Next

DoCmd.RefreshRecord

Me.Winsock1.Connect

vbanswer = MsgBox("OK to Send " & Batch & "?", vbQuestion & vbYesNo, "Send to Printer")

If vbanswer = vbNo Then

Exit Sub

End If

'Me.Text1288 = Now()

Private Function now() As String

[print time] = now()

DoCmd.RunSQL "insert into warehouse ([Batch ID],[Location ID],[Prod Employee],[Prod TS]) VALUES([Auto_Title0],'In Production',[Text744],[print time])"

End Function

Call Rdata

End Function

Top

总记录：2篇页次：1/1 9 1 :

Access交流中心

按钮单击事件的时间，如何保存和记录