2016-08-31 53 views
-1

如何將文本框放入VBA Access的for循環中?如何爲使用For循環制作變量

txta1=a(1) 
txta2=a(2) 
txta3=a(3) 

我們在FoxPro中:

txta&i =a(i) 
+1

歡迎計算器。請閱讀如何提出問題:http://stackoverflow.com/help/how-to-ask – jonathana

回答

3

試試這個

for i=1 to n 
me.controls("txta" & i)=a(i) 
next i 
+0

謝謝,但我無法解決我的問題。此代碼正在工作: 子測試() Dim a(40 )作爲整數 一(1)= 「1」 一個(2)= 「2」 一個(3)= 「3」 DoCmd.OpenForm 「FR_Certificate」,acViewLayout 隨着窗體![FR_Certificate] .txta1。值= A(1) .txta2.Value =α(2) .txta3.Value =α(3) 結束隨着 結束子 但是當我改變 .txta1.Value =α(1) 。 txta2.Value = a(2) .txta3.V ALUE =α(3) 與 對於i = 1至3個 Me.Controls( 「txta」 &i.value)= A(I) 下一I 我語法錯誤。 – ali

+0

非常感謝。如何在C#中使用變量i而不是數字1編寫textBox1.Text? – ali

0
Thank you but I couldn't solve my problem.This code is working: 
Sub test() 
Dim a(40) As Integer 
a(1) = "1" 
a(2) = "2" 
a(3) = "3" 
DoCmd.OpenForm "FR_Certificate", acViewLayout 
With Forms![FR_Certificate] 
.txta1.Value = a(1) 
.txta2.Value = a(2) 
.txta3.Value = a(3) 
End With 
End Sub 

but when I change 
.txta1.Value = a(1) 
.txta2.Value = a(2) 
.txta3.Value = a(3) 

with 

For i = 1 To 3 
Me.Controls(."txta" & i.value) = a(i) 
Next i 

I got synntax error. 
+0

您已將@ h2so4的代碼修改爲無意義的內容。 – Gustav

+0

@ali如果你想使用點。引用.txt1,.txt2,.txt3使用以下語法.controls(「txt」&i)= a(i)(即刪除指令中的我) – h2so4

+0

.Controls(「txta」&i).Value = a(i)作品。非常感謝h2so4。 – ali