根據組合框中的選擇填充文本框

全部！我會盡量詳細描述我的困境。我在Visual Basic中有一些背景知識，但在Outlook 2010中沒有真正的VBA或VBscript。我正在使用Outlook 2010.我創建了一個自定義表單（這是我第一次）。我有一個名爲ComboBox1的組合框和一個名爲TextBox1的文本框。我試圖用ComboBox1（例如，我從ComboBox1選擇值1，TextBox1填充124）選擇一個數字來自動填充TextBox1。我做在Visual Basic編輯器（VBA版本7.0）使用此代碼的企圖：根據組合框中的選擇填充文本框

Sub popBox() 
If ComboBox1 = "Value 1" Then 
TextBox1 = "124" 
End If 
End Sub

我的問題是我在做什麼錯？我應該使用VBscript編輯器，還是使用VBA做適當的事情？我甚至有可能問什麼？謝謝大家！

來源

2012-07-10 Turkwise

今天早上是一個偉大的！我發現瞭解決我的問題的方法。在未來任何人有這個問題，這是我想出了：

Sub Item_CustomPropertyChange(ByVal Aircraft) 

Set myInspector = Item.GetInspector 
Set FormPage = myInspector.ModifiedFormPages("Form") 
Set Aircraft = FormPage.Controls("Aircraft") 
Set PartNumber = FormPage.Controls("PartNumber") 
    Select Case Aircraft.Value 
     Case "Value 1" 
      PartNumber.Value = "124" 
     Case "Value 2" 
      PartNumber.Value = "125" 
    End Select 
End Sub

來源

2012-07-12 01:39:41 Turkwise

右鍵單擊您的表單並選擇「查看代碼」。現在，您應該可以從代碼編輯器的文本輸入部分上方的下拉菜單中進行選擇。選擇「ComboBox1」，然後從相鄰的下拉菜單中選擇「更改」。

編輯器應爲您創建一個名爲「Private Sub ComboBox1_Change（）」的例程。輸入以下命令：

Private Sub ComboBox1_Change() 
    Select Case ComboBox1.Value 
    Case "Value 1" 
     TextBox1.Caption = "124" 
    Case Else 
     TextBox1.Caption = "" 
    End Select 
End Sub

你也可以粘貼上面的代碼（只要您的組合框被稱爲「ComboBox1」和你的文本框「TextBox1的」）在窗體的代碼，並獲得相同的結果。讓我知道你怎麼去。

來源

2012-07-10 05:17:10 mkingston

謝謝你的迴應！我試過這段代碼，它似乎並不適合我。組合框和文本框都被綁定，如果這有所作爲。 ComboBox1綁定到飛機，TextBox1綁定到PartNumber。我知道我必須用Item_CustomPropertyChange（ByVal Aircraft）（也許）在VBscript中做一些事情，但我不太確定在那之後要去哪裏。 – Turkwise 2012-07-10 23:44:43

對不起，在一個晚上發佈兩次，但我忘了插入我今天制定的代碼（但不工作）。我的定製選項卡被命名爲 '形式' 隨着當今大量的研究，我想出了這個：子Item_CustomPropertyChange（BYVAL飛機）設置myInspector = Item.GetInspector 設置FormPage = myInspector.ModifiedFormPages（「表」）集飛機= FormPage.Controls（「飛機」）設置部分號碼= FormPage.Controls（「部分號碼」） \t選擇事例Aircraft.Value \t \t案例「值1」 \t \t \t PartNumber.Value =「124 「 \t \t案例「值2」 \t \t \t PartNumber.Value = 「125」 \t結束選擇結束子 – Turkwise 2012-07-11 04:08:19

根據組合框中的選擇填充文本框

回答

相關問題