我需要從另一種形式的列表框中選擇的數據填充一個文本框

Question

我想使一個窗體中的文本框從另一個窗體的列表框中獲取數據。另一種形式將是一個查詢的彈出式窗體，將在點擊文本框後啓動。所以這是怎麼一回事呢

1. 形式A打開時點擊
2. 點擊文本框一個
3. 文本框A打開其中有一個列表框
4. 列表框值選擇在
5. 關閉按鈕表格B B形按下
6. 現在形式A中的文本框A應該包含我們在 列表框中選擇的數據B形式

我認爲可以通過創建變量（公共變量，如果我沒有弄錯）來完成，但我是一個總新手，不知道要使用什麼代碼。

事情是，我有幾個文本框在相同的形式將運行相同的代碼，並從相同的形式獲取文本框中的值。

Answer 1

難道這是有點像，

Private Sub textBoxA_OnClick() 
    DoCmd.OpenForm "FormB", OpenArgs:= "textBoxA" 
End Sub 

Private Sub textBoxB_OnClick() 
    DoCmd.OpenForm "FormB", OpenArgs:= "textBoxB" 
End Sub 

然後選擇你想要列表框項目。然後點擊按鈕，你可以做一個小的檢查，如果項目被選中。然後基於此，您可以將該數據放入文本框中。

Private Sub formBButton_OnClick() 
    If Me.FormBList.ListCount = 0 Then 
     MsgBox "You have not made any selection, please select an option.", _ 
       vbInformation 
     Exit Sub  
    End If 

    If Len(Me.OpenArgs & vbNullString) <> 0 Then _ 
     Forms("FormA").Controls(Me.OpenArgs) = Me.FormBList 

    DoCmd.Close acForm, Me.Name 
End Sub 

Answer 2

這是我用過的。

我隱藏了所有的文本框並使它們不可見。

我添加了一個添加按鈕。

添加按鈕打開窗體（frmslctattendee） 在形式組合框的值從查詢 然後命令按鈕後面的代碼如下選擇。

Private Sub Command5_Click() 
    If Forms!frmmeetings!txtat8.Visible = True Then 
     Forms!frmmeetings!txtat9.Visible = True 
     If Len(Forms!frmmeetings!txtat9 & vbNullString) = 0 Then 
      Forms!frmmeetings!txtat9.Value = cmbnameselect.Value 
     End If 
    End If 

    If Forms!frmmeetings!txtat7.Visible = True Then 
     Forms!frmmeetings!txtat8.Visible = True 
     If Len(Forms!frmmeetings!txtat8 & vbNullString) = 0 Then 
      Forms!frmmeetings!txtat8.Value = cmbnameselect.Value 
     End If 
    End If 

    If Forms!frmmeetings!txtat6.Visible = True Then 
     Forms!frmmeetings!txtat7.Visible = True 
     If Len(Forms!frmmeetings!txtat7 & vbNullString) = 0 Then 
      Forms!frmmeetings!txtat7.Value = cmbnameselect.Value 
     End If 
    End If 

    If Forms!frmmeetings!txtat5.Visible = True Then 
     Forms!frmmeetings!txtat6.Visible = True 
     If Len(Forms!frmmeetings!txtat6 & vbNullString) = 0 Then 
      Forms!frmmeetings!txtat6.Value = cmbnameselect.Value 
     End If 
    End If 

    If Forms!frmmeetings!txtat4.Visible = True Then 
     Forms!frmmeetings!txtat5.Visible = True 
     If Len(Forms!frmmeetings!txtat5 & vbNullString) = 0 Then 
      Forms!frmmeetings!txtat5.Value = cmbnameselect.Value 
     End If 
    End If 

    If Forms!frmmeetings!txtat3.Visible = True Then 
     Forms!frmmeetings!txtat4.Visible = True 
     If Len(Forms!frmmeetings!txtat4 & vbNullString) = 0 Then 
      Forms!frmmeetings!txtat4.Value = cmbnameselect.Value 
     End If 
    End If 

    If Forms!frmmeetings!txtat2.Visible = True Then 
     Forms!frmmeetings!txtat3.Visible = True 
     If Len(Forms!frmmeetings!txtat3 & vbNullString) = 0 Then 
      Forms!frmmeetings!txtat3.Value = cmbnameselect.Value 
     End If 
    End If 

    If Forms!frmmeetings!txtat1.Visible = True Then 
     Forms!frmmeetings!txtat2.Visible = True 
     If Len(Forms!frmmeetings!txtat2 & vbNullString) = 0 Then 
      Forms!frmmeetings!txtat2.Value = cmbnameselect.Value 
     End If 
    End If 

    If Forms!frmmeetings!txtat1.Visible = False Then 
     Forms!frmmeetings!txtat1.Visible = True 
     If Len(Forms!frmmeetings!txtat1 & vbNullString) = 0 Then 
      Forms!frmmeetings!txtat1.Value = cmbnameselect.Value 
     End If 
    End If 

    DoCmd.Close 
End Sub 

它完成這項工作。 等待您的意見。