时间戳

首页 > 解决方案 > 从表单上的文本框填充 Access 报告上的文本框

vba - 从表单上的文本框填充 Access 报告上的文本框

问题描述

我正在尝试使用表单文本框中的数据填充报表上的所有文本框。表单和报表上的文本框名称相同。我试过这个，但我被困住了：

Dim ctl As Control
For Each ctl In Me.Controls
    If ctl.ControlType = acTextBox Then
        ctl.ControlSource = "[Forms]![frmlisteannuelle]![ctl.name]"
    End If
Next

标签： vbams-access

解决方案

您的代码几乎就在那里！它只是在开头缺少一个等号以及表达式和clt.Name值之间的连接。看一看：

Private Sub Report_Open(Cancel As Integer)
    Dim ctl As Control
    For Each ctl In Me.Controls
        If ctl.ControlType = acTextBox Then
            ctl.ControlSource = "=Forms![frmlisteannuelle]![" & ctl.Name & "]"
        End If
    Next
End Sub

推荐阅读