Forms 循环记录集的字段以填充表单?
我尝试使用For循环来循环单个记录集中的字段,以填充表单上的字段。我希望找到一种比键入六行txtField.value=rs更整洁/可重用的方法!场 当我在运行时查看代码时,这两个变量都有正确的信息,只是没有在表单上显示它们。任何帮助都将不胜感激Forms 循环记录集的字段以填充表单?,forms,vba,loops,recordset,Forms,Vba,Loops,Recordset,我尝试使用For循环来循环单个记录集中的字段,以填充表单上的字段。我希望找到一种比键入六行txtField.value=rs更整洁/可重用的方法!场 当我在运行时查看代码时,这两个变量都有正确的信息,只是没有在表单上显示它们。任何帮助都将不胜感激 Dim strClient As String Dim rsClient As dao.Recordset Dim tfield As String Dim ffiend As String Dim fld As dao.Field Set dbs_
Dim strClient As String
Dim rsClient As dao.Recordset
Dim tfield As String
Dim ffiend As String
Dim fld As dao.Field
Set dbs_Current = CurrentDb()
strClient = "Select * from tblClient where pk_client_id = " & gbl_Client_ID
Set rsClient = dbs_Current.OpenRecordset(strClient)
For Each fld In rsClient.Fields
On Error Resume Next
tfield = "txt" & fld.Name & ".value"
ffield = "rsClient!" & fld.Name
tfield = ffield
Next fld
您从未实际向窗体上的字段/控件添加值。请看表单的控件集合对象。谢谢,我现在已经找到了。我从错误的“角度”看它。你从来没有在表单上向字段/控件添加值。请看表单的控件集合对象。谢谢,我现在已经找到了。我从错误的“角度”看它。