問題 ： Access里面有 組合 框，可以很快地從多行記錄中選擇所需要的 數據 。但是如果記錄超過1000-2000呢？選擇就非常不方便了。我該怎么辦？ 回答： 其實很多 數據 都可以分類（分層）來選擇，而且我們可以預先篩選 數據 。 以下這個示例就是用重復打開同

Access里面有組合框，可以很快地從多行記錄中選擇所需要的數據。但是如果記錄超過1000-2000呢？選擇就非常不方便了。我該怎么辦？

回答：

其實很多數據都可以分類（分層）來選擇，而且我們可以預先篩選數據。

以下這個示例就是用重復打開同一個窗體類來完成多層次數據的選擇。

當然，還包括預先篩選數據功能。

好了，現在開始：

1、建立一個窗體(testForm)，里面有一個文本框(text0)，一個按鈕(Command2)。

2、建立一個窗體(selectForm)，里面有一個列表框(list0)。

3、在testForm中的文本框的“更新后”事件中寫入以下代碼以打開品名選擇窗體(selectForm)，并對其中的列表框(list0)的行來源(RowSource)進行賦值。

Private Sub Text0_AfterUpdate()

DoCmd.OpenForm "selectform"

'這行代碼就實現了BTYPE表的模糊檢索，使用的是 WHERE 子句中的 LIKE 關鍵字進行通配

Forms("selectform").List0.RowSource = "SELECT btype.soncount, btype.UserCode, btype.FullName, btype.typeId FROM btype WHERE btype.fullname like '*" & Text0.Value & "*' "

End Sub

4、在testForm中的命令按鈕的“單擊”事件中寫入以下代碼以打開品名選擇窗體，按分類檢索

5、然后再在testForm中輸入以下代碼以完成多次打開窗體本身并顯示子類中數據的功能。

為了能夠使代碼重復利用，寫了兩個通用過程

Option Compare Database

Dim f

Private Sub Form_KeyDown(KeyCode As Integer, Shift As Integer)

'先設定窗體的“鍵預覽”屬性為“是”

'本過程將加快你的輸入速度

'如果按 ESCAPE 鍵，就關閉窗體

If KeyCode = vbKeyEscape Then

closeAllSelectForm "SelectForm"

End If

End Sub

Private Sub List0_DblClick(Cancel As Integer)

checkYouSelect

End Sub

Private Sub List0_KeyPress(KeyAscii As Integer)

'本過程實現全鍵盤操作

If KeyAscii = 13 Then

checkYouSelect

End If

End Sub

Sub closeAllSelectForm(strFormName As String)

'通用過程1

'本過程用來關閉所有的指定名稱的窗體

For Each objForm In Forms

If objForm.Name = strFormName Then

DoCmd.Close acForm, objForm.Name

End If

Next objForm

End Sub

Sub checkYouSelect()

'通用過程2

'檢測你的選擇

'如果發現 suncount 列為 0（表示沒有下一層了）

'就可以把你選定的產品名稱放到文本框中了

On Error Resume Next

Set f = New Form_SelectForm

Dim objForm As Form

If List0.Column(0) = 0 Then

Forms("testform").Text0.Value = List0.Column(2)

closeAllSelectForm "SelectForm"

Else

f.Visible = True

f.List0.RowSource = "SELECT btype.soncount, btype.UserCode, btype.FullName, btype.typeId FROM btype WHERE parid='" & List0.Value & "'"

End If

End Sub

聲明：本網頁內容旨在傳播知識，若有侵權等問題請及時與本網聯系，我們將在第一時間刪除處理。TEL:177 7030 7066 E-MAIL:11247931@qq.com