1

在Access中需要帮助。也许这对你来说很简单而且很容易,但我不知道该怎么做。我对此不是很熟悉,只是想为in/out. 如何找到下一条没有注销的记录?我的查询总是只寻找第一条记录,我希望它去寻找下一条记录为空注销。

提前致谢。

这是表。

Log Number  Staff Number    Sign-in  Sign-out
1   65294   3/6/2013 4:02:29 PM 3/7/2013 7:33:26 AM
2   007 3/6/2013 4:02:33 PM 3/7/2013 7:40:18 AM
3   4006381333627   3/6/2013 4:02:37 PM 3/7/2013 7:33:06 AM
4   4005401881216   3/6/2013 4:02:40 PM 3/7/2013 7:33:12 AM
5   4006381333689   3/6/2013 4:02:44 PM 3/7/2013 7:33:02 AM
34  007 3/7/2013 4:33:35 AM 

代码:

Private Sub Combo18_Click()
Dim rs As Object

Set rs = Me.Recordset.Clone

rs.FindFirst "[Log Number] = " & Str(Nz(Me![Combo18], 0))

If Not rs.EOF Then Me.Bookmark = rs.Bookmark

If IsNull(Sign_out) Then
    Me.Sign_out.Value = Now()
    End If

DoCmd.RunCommand acCmdSaveRecord
Me.Combo18.SetFocus
Me!Combo18 = Null

End Sub
4

0 回答 0