如何讓您的組合框選擇選擇的項目（自我解決）

-1

我已經操縱和嘗試了不同的方式去做某件事。我在窗體上有一個組合框（Coding_drop_down）（Coding Pop Up）。如何讓您的組合框選擇選擇的項目（自我解決）

我以前從別人那裏接管了這個數據庫的維護，所以一切都已經存在。組合框本身有一個值列表，並在單擊下拉箭頭時引用它。然而，我已經改變了這一點，並將其綁定到我創建的表格（對於過去的事情）。現在，當我進入下拉菜單時，我會獲得那些只從表格而非數值列表加載的特定值。問題是，當選擇它不選擇的值時。我是否錯過了某些東西，或者是否需要操縱VBA？

VBA代碼的組合框：

Private Sub Command1_click() 
On Error GoTo Err_Command1_Click 

    Dim stDocName As String 

    stDocName = "Query to do easier coding" 
    DoCmd.OpenQuery stDocName, acNormal, acEdit 

Exit_Command1_Click: 
    Exit Sub 

Err_Command1_Click: 
    MsgBox Err.Description 
    Resume Exit_Command1_Click 

End Sub

按鈕的代碼：

Private Sub Command7_Click() 
On Error GoTo Err_Command7_Click 

    Dim stDocName As String 
    Dim stLinkCriteria As String 
    stDocName = "Query to do easier coding" 
    DoCmd.Close acForm, stDocName 

    DoCmd.OpenForm stDocName, , , stLinkCriteria 

Exit_Command7_Click: 
    Exit Sub

與實際組合框的上Click事件：

Private Sub Coding_drop_down_Click() 
Dim test As String 
test = Me.Coding_drop_down 
MsgBox test 

End Sub

來源

2014-10-29 Motorhead1308

Command1指示代碼是用於按鈕而不是用於組合框。我也沒有看到代碼會引用任何組合框。所以我不清楚你的問題在哪裏。 PS：你總是應該以某種方式重新命名你的控制器，以表明它是哪個控制器。 Command1並不是一個好名字;-) – cboden 2014-10-29 14:55:06

我把這個數據庫放在了一邊，VBA中沒有任何註釋，所以我花了幾分鐘的時間才發現Command1引用了組合框...... Command7 （是的，我知道）正在引用按鈕。我爲上面的按鈕添加了VBA。 – Motorhead1308 2014-10-29 15:01:53

當你說你有一個表單及其被調用的編碼彈出時，你是在說UserForm嗎？ – user3271518 2014-10-29 15:22:24

問題是組合框實際上綁定了某些東西，這就是問題的原因。

來源

2014-10-29 17:49:06 Motorhead1308

好的，試試這個爲你的組合框，它可能會給你一個好的開始。您需要在comboxBox中的項目列在.addItem中，一旦表單啓動，它們就會添加到組合框中。當您選擇該項目時，它會將該值存儲在所需工作表的第一個單元格中。如果這件事可以幫助你，讓我知道，我們可以努力幫助你解決問題。

Private Sub UserForm_Initialize() 

With ComboBox1 
    .AddItem ("Item 1") 
    .AddItem ("Item 2") 
    .AddItem ("Item 3") 
End With 

End Sub 

Private Sub ComboBox1_Click() 


    ActiveSheet.Range("A1") = ComboBox1.Value 

End Sub

來源

2014-10-29 15:30:53 user3271518

由於某些原因，即使在更改表單名稱和CboBox名稱後添加了正確的「Item」，它仍然不會選擇=/ – Motorhead1308 2014-10-29 15:46:55

您可以在問題中共享用戶表單的整個代碼嗎？用戶表單的名稱是什麼？ – user3271518 2014-10-29 15:55:30

上面所有的VBA都是在那個被命名爲（Coding Pop Up）的特殊形式上的......我會指出，當我試圖將這個添加到.AddItem Sub的Form名稱時，我可以找不到？所以看起來好像是Command1，我認爲這可能是問題所在。那個和這個數據庫沒有建立任何評論和錯誤的命名約定。 – Motorhead1308 2014-10-29 16:09:11

如何讓您的組合框選擇選擇的項目（自我解決）

回答

相關問題