基於表單組合框更改數據表單元格

Question

我想弄清楚如何使用組合框使用組合框來創建窗體，同時組合框使用查詢。我試圖做的是讓組合框在更改後更新。他們有65個組合框，每個組合框都有自己的默認值（1-65）。主表有一個名爲「Recall_Position」的列，並且查詢從此處以及「姓氏」和「名字」拉取。當窗體打開時，每個組合框都會自動填充「Recall_Position」等於組合框默認行的行的最後一個名稱。

示例1：包含「Recall_position」中第一個數字的行在「Lastname」下的同一行中具有名稱Smith，當打開表單時設置爲「1」的組合框因爲默認情況下將使用Smith打開已經在組合框中選擇。這已經確定並且沒有問題。

我想要得到的是當在組合框中選擇了不同的「姓氏」時，它將清除「姓氏」中的號碼並用該組合框的默認號碼設置新的「姓氏」。

示例2：使用示例1當組合框從史密斯更改爲伍茲時，它將在「姓氏」中找到史密斯，然後轉到「召回位置」下的同一行並清除史密斯的編號，然後找到伍茲並將「召回位置」 「1」。

如果我必須通過並添加一個VBA來回更改每個組合框，它不會打擾我。其原因是我創建的報告將根據「Recall_position」提取信息來創建名稱和電話號碼的名單。

Answer 1

嘗試使用此例如2：

Dim dbs As New ADODB.Connection 
Dim rst As New ADODB.Recordset 

Set dbs = CurrentProject.Connection 
    With rst 
     Set .ActiveConnection = CurrentProject.Connection 
     .Source = "TheTableYouHave" 
     .CursorLocation = adUseClient 
     .CursorType = adOpenKeyset 
     .LockType = adLockOptimistic 
     .Open 
    End With 
rst.MoveFirst 

rst.Find "[Recall Position] "27"" ' Will go to line number that hold 27 
OldLastName = rst!LastName ' Save the old last name 
rst!LastName = NewLastName ' Replace lastname in line 27 with new last name 

set dbs = Nothing 
set rst = Nothing 

等等，等等

你也可以更換RST [調用位置]用另一個號碼！這只是給你一個如何做到這一點的想法。 當你使用rst.的東西時，你告訴記錄集要移動到什麼位置，搜索等，當它是rst!某事，你進入記錄集以讀取單元格或替換單元格。它不像excel。你不能做一個單元格（2,5）。在這種情況下，這將是：

rst.move 5 
rst![Column 2 Name] = NewValue 

相當於

cells(2,5) = NewValue 

在Excel（對不起，如果我混行和列）。我希望你明白。 嘗試在VBA中使用Debug.Print rst!WhateverYouLike並瞭解代碼。

此致敬禮，埃米爾。