请教高手如何将实现通过中间变量传送内容？

孤帆远影

A="asdfdsafa"

B为变量

C1...Cn为文本框名称

如何实现将A，通过 B  送入 C1...Cn

海狸先生

b=ac1=bc2=b是这样吗？如果不是，请您具体说

wu8313

Private Sub 命令6_Click()a = "asdfdsafa"

Dim b As String

b = a'----------------------------------------

Dim ctl As Control    ' 列举 Controls 集合中的成员。

    For Each ctl In Me.Controls

        ' 检查控件是否为文本框。

        If ctl.ControlType = acTextBox Then

            ' 设置控件属性。

            With ctl

               ' .SetFocus

               ' .Enabled = True

               ' .Height = 400

               ' .SpecialEffect = 0

               .Value = b

            End With

        End If

    Next ctl

'----------------------------------------

End Sub

孤帆远影

我主要是想把文本框变量名放入另一个变量中，每次只把新的文本框名称放入中间变量后调用一个过程，完成赋值过程，但不知道Access是否支持这种功能，语句如何写！

LucasLynn

以下是引用孤帆远影在2005-8-3 16:38:00的发言：



我主要是想把文本框变量名放入另一个变量中，每次只把新的文本框名称放入中间变量后调用一个过程，完成赋值过程，但不知道Access是否支持这种功能，语句如何写！

上传你的文件吧，根据你的描述还是不太明白你的情况。

孤帆远影

我想写成如下效果，但不语法或Access能够有此功能：

bbb (文本框名1)           结果：文本框名1="dfadsfasdjfklasd"

bbb (文本框名2)          结果：文本框名2="dfadsfasdjfklasd"

.........

function bbb(ddd as string)

     ddd="dfadsfasdjfklasd"

end  function