如何通过窗体的控件名循环获取表中对应的值

找到了一种方法, 贴出来与大家分享一下.

Sub SetPositionName()
Dim Ctl As Control
Dim strGWID, strGWName As String
Dim k As Integer

    For Each Ctl In Forms![frmGS]
        If Ctl.ControlType = acTextBox Then
            If Left(Ctl.Name, 2) = "GW" Then
                k = Mid(Ctl.Name, 3, Len(Ctl.Name) - 2)
                'Debug.Print Forms![frmGS].Controls("ID" & k).Caption
                strGWID = Forms![frmGS].Controls("ID" & k).Caption
                strGWName = DLookup("[GWName]", "tblPosition", "[GWID]= '" & strGWID & "'")
                Ctl.Value = strGWName
            End If
        End If
    Next
End Sub

有些网友提到用数组, 可不知如何实现, 哪个教师如果知道的, 请指教......