我嘗試在 access vba 中設定一個連續形式的過濾器。這是我使用的代碼：
Private Sub Form_Open(Cancel As Integer)
Dim filter As String
filter = "1 = 0" ' "1=0" is just for testing purpurses
Me.filter = filter
Me.FilterOn = True
Debug.Print Me.FilterOn & "; " & Me.filter
end sub
輸出是：
False; 1 = 0
并且不使用過濾器。
為什么這不起作用？有沒有辦法在顯示表單之前設定和激活過濾器？
uj5u.com熱心網友回復：
我發現原因是。我使用稍后設定記錄源的框架。雖然沒有記錄源，但“Me.FilterOn = True”根本不起作用。以下代碼確實有效：
Private Sub Form_Open(Cancel As Integer)
Me.RecordSource = "select * from MyTable"
Dim filter As String
filter = "1 = 0" ' "1=0" is just for testing purpurses
Me.filter = filter
Me.FilterOn = True
Debug.Print Me.FilterOn & "; " & Me.filter
end sub
輸出是：
True; 1 = 0
轉載請註明出處，本文鏈接：https://www.uj5u.com/houduan/478489.html