我試圖使組合框的行源成為回圈陳述句的結果。
Dim intDay As Date
For intDay = BegDate To EndDate
If Format(intDay, "ddd") = "Sat" Then
Debug.Print intDay
End If
Next intDay
回圈回傳一個期間之間的所有星期六。日期位于名為 WDATE 的表欄位中，因此我希望 BegDate 和 EndDate 類似于 Min(WDATE) 和 Max(WDATE)
uj5u.com熱心網友回復：
永遠不要檢查字面的作業日或月份名稱，因為它們是本地化的。
你的回圈可能看起來：
Dim WeekdayDate As Date
For WeekdayDate = BegDate To EndDate
If Weekday(WeekdayDate) = vbSaturday Then
Debug.Print WeekdayDate
End If
Next
然而，使用一個鮮為人知的 Access寶石可以更好地構建這樣的組合/串列框：回呼函式。
在我的專案中研究簡單和擴展示例：
VBA .回呼。
最后一個例子涵蓋了你的情況（還有更多）。
轉載請註明出處，本文鏈接：https://www.uj5u.com/caozuo/406615.html
標籤：