根據以前的表單值訪問2016設置表格字段

Question

我創建了一個Access數據庫，由兩件事組成 - 軟件和許可證。許可證通過他們的ID附加到軟件。

我有一個爲軟件創建的表單，並希望創建一個按鈕，點擊該按鈕後，打開一個新的「添加許可證」表單，其中預先填充軟件ID，並且人們可以填寫剩餘的信息上。 我一直在使用來自類似Office 2016模板的宏，並且在嘗試將這些信息放入新的許可證表單時，它會不斷翻倒。

我附上了我的宏下面的屏幕截圖 - 我已經經歷了很多迭代，現在我得到的錯誤是30024，它似乎表明它無法找到將SoftwareID放入的字段新開張的表格。 我也將「控件名稱」設置爲「SoftwareID」，因爲這也是在別處建議的，但這也行不通。

有什麼建議嗎？

Screenshot of Macro in question

Answer 1

我無法得到它使用的是嵌入式宏，所以我用VBA宏來代替其工作:)工作。要做到這一點（假設你還沒有完成之前）：

• 設計視圖中打開您的「軟件」的形式
• 顯示屬性表（絲帶 - >設計選項卡）
• 點擊此按鈕
• 單擊「事件」選項卡上的屬性表
• 刪除「點擊」事件
• 右鍵點擊您的按鈕，然後單擊「生成事件」
• 從「選擇生成器」珀普P功能框，單擊「代碼生成器」
• 假設你沒有任何其他的宏，你的代碼應該看起來就像，唯一的變化是您的按鈕的名稱礦井（礦是Command163）

PS我無法獲得代碼標籤正確顯示，所以我只是添加了一些換行符。對不正確縮進的道歉。

選項比較數據庫

私人小組Command163_Click（）

DoCmd.RunCommand acCmdSaveRecord

openFreshAddLicenseForm（Me.ID）

結束子

公共功能openFreshAddLicenseForm（ID As Integer）

對錯誤轉到Macro1_Err

DoCmd.OpenForm 「添加許可證」

DoCmd.GoToRecord， 「」，acNewRec

形式！[添加許可證]！SoftwareID = ID

Macro1_Exit：

退出功能

Macro1_Err：

MSGBOX錯誤$

恢復Macro1_Exit

端功能