Question

访问需要帮助。也许它很简单，很容易，但我无法弄清楚如何做到这一点。我对此并不熟悉，只是尝试为in/out创建简单的应用程序。如何找到没有注销的下一条记录？我的查询总是只是寻找第一条记录，我希望它能够使用null注销去下一条记录。

提前致谢。

这是表格。

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

如何找到没有值的表中的下一条记录？

0 个答案: