Office中国论坛/Access中国论坛

标题: 如何循環文字框 [打印本页]

作者: leoyan76 时间: 2008-8-5 17:05
标题: 如何循環文字框
請教各位，下面紅代代碼如何修改？

Private Sub Form_Timer()
If j < 7 Then
Me.MSComm1.Output = "#03" & j & Chr(13)
Me("text" & j) = Mid$(Me.MSComm1.Input, 3)
j = j + 1
Else
j = j - 7
End If
End Sub

作者: leoyan76 时间: 2008-8-5 17:33
有Text0 ~text6，7個文字框，如何用一句代碼將其賦值呢？

作者: tmtony 时间: 2008-8-5 18:45
for i=0 to 6
me.controls("text" & i).value=值
next

作者: leoyan76 时间: 2008-8-6 11:01
多謝！

欢迎光临 Office中国论坛/Access中国论坛 (http://www.office-cn.net/)