콤보 상자에서 선택한 항목을 선택하는 방법 (자체 해결)

Question

나는 무언가에 대해 다른 방법을 시도하고 조작했습니다. 콤보 박스 (Coding_drop_down)가 폼 (팝업 팝업)에 있습니다.

이전에는 다른 사람으로부터이 데이터베이스에 대한 유지 관리를 담당 했으므로 모든 것이 이미 존재했습니다. 콤보 박스 자체에는 값 목록이 있었으며 드롭 다운 화살표를 클릭하면 해당 항목이 참조되었습니다. 그러나 나는 그것을 변화 시켰고 내가 만든 테이블에 바인딩했다. 이제 드롭 다운으로 이동하면 이전에 수행 한 특정 값을 값 목록이 아닌 테이블에서만로드합니다. 문제는 값을 선택할 때 선택하지 않는다는 것입니다. 내가 뭔가를 놓치고 있거나 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 

그리고 실제 콤보 박스의 클릭에 대한 이벤트 :

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

End Sub 

Answer 1

문제는 콤보 상자가 실제로 무언가에 바인딩되어 그 것이 문제의 원인이었습니다.

Answer 2

좋아, comboBox에이 기능을 사용해보십시오. 그러면 좋은 시작이 될 것입니다. comboxBox에 원하는 항목이 .addItem에 나열되고 일단 양식이 시작되면 ComboBox에 추가됩니다. 항목을 선택하면 원하는 시트의 첫 번째 셀에 값을 저장합니다. 이것이 당신을 도울 수있는 것이면 알려 주시면 문제 해결에 도움이 될 것입니다.

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