ник: Мюллер
Как эту заразу запустить в данной ситуации??? И возможно ли это?
|
Както так
Sub Print_Field_Names()
Dim rst As Recordset, intI As Integer
Dim fld As Field
Set rst = Me.RecordsetClone
только вместо Me нужно подставить полное обращение к подчиненной форме
For Each fld in rst.Fields
' Print field names.
Debug.Print fld.Name
Next
End Sub