ms vba 동적 배열에 액세스 - 왜 작동하지 않습니까?

Question

txtInput이라는 텍스트 상자와 버튼 이름이 btnAdd 인 액세스 폼이 있습니다.

다음은 버튼의 클릭 이벤트에 대한 하위 절차입니다. 사용자가 텍스트 상자에 텍스트를 입력하고 버튼을 클릭 할 때마다 텍스트 문자열을 동적 배열에 추가해야합니다.

Public Sub btnAdd_Click() 
    Dim equipArray() As String 
    Dim ctr As Integer 

    ctr = 0 
    Do While txtInput <> "stop"   
     ReDim Preserve equipArray(x) 
     equipArray(x) = txtInput 
     ctr = ctr + 1 
    Loop 

End Sub 

하지만 작동하지 않습니다. 누구든지 도와 줄 수 있습니까?

Answer 1

버튼을 클릭 할 때마다 배열이 다시 생성됩니다. 당신이 그것을 다시 만들 때까지 당신은 그것을 보존하지 않습니다. 가장 좋은 방법은 양식에 숨겨진 텍스트 상자를 놓고 해당 텍스트 상자에 값을 쓰는 것입니다. 그런 다음 어떤 이벤트 (양식을 닫으면 원하는대로)에서 텍스트 상자의 값을 테이블에 쓸 수 있습니다.