錯誤Dim，.Text =沒有錯誤，直到啓動，沒有文本=錯誤

Question

所以我試圖找出爲什麼我的代碼爲Visual Basic不工作，我試圖讓它有兩個文本框在一個因爲我需要他們單獨的文本旁邊他們，我打算用一個變量來簡化這個，但是當我把代碼它似乎沒有工作，它出現了一個BC30452錯誤，當我從第二個文件中取出.Text文件，當我將這個.text文件添加到它時，它在啓動之前不會給我帶來任何錯誤。

代碼：

Dim Night1 = N1Output And "-" And N1 

Dim Night2 = N2Output And "-" And N2 

Dim Night3 = N3Output And "-" And N3 

Dim Night4 = N4Output And "-" And N4 

Dim Night5 = N5Output And "-" And N5 

Dim Night6 = N6Output And "-" And N6 

Dim Night7 = N7Output And "-" And N7 

Dim Night8 = N8Output And "-" And N8 

Dim Night9 = N9Output And "-" And N9 

Dim Night10 = N10Output And "-" And N10 

Dim Night11 = N11Output And "-" And N11 

Dim Night12 = N12Output And "-" And N12 

Dim Night13 = N13Output And "-" And N13 

Dim Night14 = N14Output And "-" And N14 

Dim Night15 = N15Output And "-" And N15 

我添加。文本對他們的末端，它不會有最初的錯誤，但在啓動時，如果我用按鈕打開窗體的代碼將無法正常工作位於。 N1，N2，以及輸出文本框

Answer 1

你可以通過所有User_Form Textboxes使用Night數組，以及剛剛循環，併爲每對填充Night(i)。

例如，對於For i = 1 To 15中的第3個循環，它將從名爲「N3Output」的User_Form控件中添加「 - 」的值，然後從「N3」中取值（文本）並將其放入數組中，裏面Night(3)元素。

嘗試下面的代碼（應該是你User_Form模塊內）：

Private Sub MergeTextBoxes() 

Dim Night() As String 
Dim i As Long 

ReDim Night(1 To 15) '<-- redim Night array size to 15 (according to your example) 

For i = 1 To 15 
    Night(i) = Me.Controls("N" & i & "Output").Value & "-" & Me.Controls("N" & i).Value '<-- add values to all 15 array elements from User_From textboxes 
Next i 

End Sub