如何查找基於組合框「篩選器」的下一條記錄

Question

我有一個包含兩個組合框的表單，第一個（cboSet）選擇一個類集合，第二個（cboName）顯示該集合中的學生名稱（ID隱藏在第一列）。我有一個按鈕，我想用它來找到該組中的下一個學生。我已經嘗試實現下一個按鈕，它將轉到下一個記錄，但不是正確的學生。任何幫助將非常感激。

Answer 1

當你說下一個學生時，你是指具有下一個數字標識的學生，還是你在爲下一個學生使用其他標準？ 假設您想要與下一個學生過濾表單，這裏有一種可能的解決方案。沒有更多細節，這個例子有些含糊。看到你已經有了什麼會讓它更精確。

在按鈕的onclick事件：

Dim ID as Integer 

ID = me.cboName.column(0) + 1 
me.filter = "[ID] = " & ID 
me.filteron = true 

找到您所設定的下一個值，你可以不喜歡以下，當然，這只是一般的，基礎（希望有人正確）的代碼，所以你必須改變它以適應你的需求，但它應該指向你正確的方向。

dim db as dao.database 
dim rs as dao.recordset 
dim nextID as interger 
dim SQLquery as string 
nextID = 0 

SQLquery = "SELECT TOP 1 ID from COMBO_RECORD_SOURCE WHERE ID > " & me.namecombo.column(0) & " ORDER BY ID" 
set db = currentdb 
set rs = db.openrecordset(SQLquery,dbOpenSnapshot) 
if rs.recordCount > 0 THEN 
    rs.movefirst //I know it's not strictly necessary, old habit I like to do.. 
    nextID = rs!ID 
end if 

if nextID > 0 then 
    me.filter = "[ID] = " & nextID 
    me.filteron = true 
else 
    msgbox "There are no more names in this set." 
end if 

set rs = nothing 
set db = nothing