목록 상자 값을 사용하여 텍스트 상자를 업데이트하는 방법

Question

두 개의 열로 구성된 목록 상자와 함께 MultiSelect 속성이 없음으로 설정된 Access 폼이 있습니다. 이 목록 상자를 사용하여 2 텍스트 상자를 업데이트해야합니다. 사용자가 항목을 선택하면 첫 번째 열의 값은 한 텍스트 상자를 업데이트하는 데 사용되고 두 번째 열의 값은 다른 텍스트 상자를 업데이트하는 데 사용됩니다. 상자, 뭔가 같은 :

Private Sub listbox_AfterUpdate() 

Dim colval1 As String 
Dim colval2 As String 

colval1 = Me.listbox.column(1).Value 
colval2 = Me.listbox.column(2).Value 

Me.[textbox1] = colval1 
Me.[textbox2] = colval2 


End Sub 

나는이 목록 상자의 가치를 얻는 방법을 모르겠다.

Answer 1

목록 상자 열 번호는 0부터 시작하므로 첫 번째 열 값은 Me.listbox.Column(0)으로 액세스 할 수 있습니다. 열 뒤에 .Value을 추가하면 Access에서 오류 ("필요한 개체")가 발생합니다.

또한 열 값을 텍스트 상자에 지정하기 전에 변수를 저장할 필요가 없습니다. 텍스트 상자에 열 값을 직접 지정할 수 있습니다.

Private Sub listbox_AfterUpdate() 
    Me.[textbox1] = Me.listbox.Column(0) 
    Me.[textbox2] = Me.listbox.Column(1) 
End Sub 

Answer 2

미친 VBA는 :

Me.[textbox3] =Me.listbox 

는 당신에게 당신의 가치를 제공 할 것입니다.