紧急求助！！！！

请问版主，我在ACCESS中写了如下代码：

Function 宏4()
On Error GoTo 宏4_Err

    DoCmd.OpenQuery "查询3", acViewNormal, acReadOnly
    DoCmd.GoToControl "客户ID"
         
    
    For ID = 1 To N（问题在这里）
        
    DoCmd.ApplyFilter "", "[客户ID] =" & ID
    DoCmd.PrintOut
    Next ID

 宏4_Exit:
    Exit Function
 

宏4_Err:
    Msgbox Error$
    Resume 宏4_Exit

End Function

请问我该如何将N定义为[客户ID]的最大值？

还有，请问该如何设定日期段的循环？（即只打印要求的开始日期到结束日期之间所有客户的资料）

小弟先谢谢啦！！！