查找MS Access中哪些表单字段指向哪些数据库字段

Question

让我解释一下WEIRDEST客户的要求，我们正在努力：

我们有一个MS Access VBA应用程序，其中包含数百个表单中的数千个表单字段。

这些表格中的一些字段会填充来自少量表/查询的数据。

表单中的其他几个字段通过查询/直接代码将数据插入到几个表中。

请注意，这些表是链接到SQL Server表的表。

有没有一种方法可以找到与哪个表格字段相关的表格字段？

因此，我们需要一些工具/宏来执行此操作。

我们如何找到MS Access中哪些表单字段指向哪些数据库字段？

基于@ClintB的答案 ，我们准备了以下代码。 ctl.ControlSource中的值似乎未指向实际的数据库对象：

Sub GetFormFieldToDBFieldMapping()
Dim frm As Object
Dim LiveForm As Form
Dim ctl As control
Dim i As Integer
Dim fso As Object
Dim ctlSource As String
Set fso = CreateObject("Scripting.FileSystemObject")
Dim oFile As Object
Set oFile = fso.CreateTextFile("D:\ControlSources.txt")

    For Each frm In Application.CurrentProject.AllForms

        'To access form controls, open it
        DoCmd.OpenForm frm.Name, acViewDesign
        Set LiveForm = forms(frm.Name)
        For i = 0 To LiveForm.Controls.Count - 1
        Set ctl = LiveForm.Controls.Item(i)
        If ctl.ControlType = 106 Or ctl.ControlType = 111 Or ctl.ControlType = 110 Or ctl.ControlType = 109 Then
        ctlSource = ctlSource & vbCrLf & "Form Name :" & LiveForm.Name & ": Control Name :" & ctl.Name & ": Control Source :" & ctl.ControlSource
        End If
        Next i
        'Do not forget to close when you are done
        DoCmd.Close acForm, frm.Name
    Next

oFile.WriteLine ctlSource
oFile.Close
Set fso = Nothing
Set oFile = Nothing

End Sub

Answer 1

我会做这样的事情。 （不是实际代码）

For each form in db
   For each control in form
       'Write a record to a table stating which formName, controlName and the control.controlSource
   Next
Next

编辑：ControlSource，而不是RowSource

Answer 2

您想出的代码很棒！ 这将为您提供：

• 表格名称
• 控制名称
• 控制源

您唯一需要的是该列将要到达的表名。 由于这些表是链接到SQL Server 的表 ，因此您可以找到所有带有其所有列的表 。

这将为您提供：

• 表名
• 栏名

将这两个信息保存在两个Excel工作表中。

对列名称进行V查找以查找表名称