訪問VBA複製選擇語句到數組

Question

我是VBA的初學者，我想知道如何將選擇語句複製到數組。我能怎麼做？ 我試圖做一些事情，但我不能complite。

Private Sub Komut485_Click() 
Dim a() As String 

'Dim a() As Integer 
'abc = Me.talep_kayit_no.Value 
'MsgBox abc 


For sayac = 1 To 5 

a(sayac) = "SELECT [3_gh_odemeler].[gh_no] FROM 3_gh_odemeler WHERE [3_gh_odemeler].[gh_no] =" & Me.talep_kayit_no.Value & ";" 

sayac = sayac + 1 

MsgBox a(1) 


Next 


End Sub 

Answer 1

我想數組總是從0開始，因此會使用第一個位置（0）作爲正確的位置。

Dim intArraySize as integer 
dim a() as string 
intArraySize =5 

redim a(intArraySize) 

For sayac = 0 To intArraySize 

a(sayac-1) = "SELECT [3_gh_odemeler].[gh_no] FROM 3_gh_odemeler WHERE [3_gh_odemeler].[gh_no] =" & Me.talep_kayit_no.Value & ";" 

sayac = sayac + 1 

MsgBox a(1) 


Next 


End Sub