如何按预约日期顺序遍历患者记录？Access表单开发问题

你当前的FindNext只能遍历当前匹配起始日期的记录，要实现遍历完当日患者后自动跳转到下一个有预约的日期，需要修改NextPatientButton_Click的逻辑：先检查是否还有当前日期的下一条记录，如果没有，则查找并定位到下一个存在预约的日期的第一条记录。

修改后的代码如下：

Private Sub NextPatientButton_Click()
    Dim currentDate As Date
    Dim nextApptDate As Variant
    
    Me.ApptDate.SetFocus
    ' 先尝试查找当前日期的下一条记录
    DoCmd.FindNext
    
    ' 检查是否已经到了当前日期的最后一条记录
    currentDate = Me.ApptDate
    If Me.ApptDate = Me.SearchStart Then
        ' 查找比当前日期大的最小预约日期
        nextApptDate = DMin("ApptDate", "Appointments", "ApptDate > #" & Format(currentDate, "yyyy-mm-dd") & "#")
        
        If Not IsNull(nextApptDate) Then
            ' 定位到下一个日期的第一条记录
            DoCmd.FindRecord nextApptDate, , , True, , , True
            ' 更新搜索起始日期控件，方便后续判断
            Me.SearchStart = nextApptDate
        Else
            ' 没有更多预约日期时的提示
            MsgBox "已遍历所有后续预约记录"
        End If
    End If
End Sub

关键逻辑说明： #

• 先执行DoCmd.FindNext尝试获取当前日期的下一条记录
• 通过对比当前记录的ApptDate和SearchStart的值，判断是否已经遍历完当日所有患者
• 使用DMin函数从Appointments表中查询比当前日期大的最小预约日期，这就是下一个有预约的日期
• 如果存在下一个日期，用DoCmd.FindRecord定位到该日期的第一条记录，并更新SearchStart控件的值
• 当没有后续预约日期时，弹出提示告知用户

另外，建议确保窗体的记录源是按ApptDate升序排序的查询，这样遍历顺序才符合日期先后要求，比如记录源可以设置为：

SELECT Appointments.ApptDate, Patients.*
FROM Appointments INNER JOIN Patients ON Appointments.PatientID = Patients.PatientID
ORDER BY Appointments.ApptDate ASC;

内容的提问来源于stack exchange，提问作者user22937141