如何使用VBA使窗体跳转到Access中最近的未来日期？

Private Sub YourButton_Click()
    Dim rs As Recordset
    Dim strSQL As String
    Dim dt As Date
    
    ' 构建SQL查询语句，获取最近的未来日期
    strSQL = "SELECT TOP 1 YourDateField FROM YourTableName WHERE YourDateField >= Date() ORDER BY YourDateField ASC"
    
    ' 执行查询
    Set rs = CurrentDb.OpenRecordset(strSQL)
    
    ' 检查是否有符合条件的记录
    If Not rs.EOF Then
        ' 获取日期值
        dt = rs.Fields("YourDateField").Value
        
        ' 跳转到最近的未来日期
        DoCmd.GoToControl "YourDateField"
        Me.YourDateField.Value = dt
    End If
    
    ' 关闭记录集
    rs.Close
    Set rs = Nothing
End Sub