我正在嘗試使用表單中文本框中的資料填充報表上的所有文本框。表單和報表上的文本框名稱相同。我試過這個，但我被卡住了：
Dim ctl As Control
For Each ctl In Me.Controls
If ctl.ControlType = acTextBox Then
ctl.ControlSource = "[Forms]![frmlisteannuelle]![ctl.name]"
End If
Next
uj5u.com熱心網友回復：
你的代碼就快到了！它只是在開頭缺少一個等號以及運算式和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
uj5u.com熱心網友回復：
如果您想通過使用報表控制元件名稱來參考表單控制元件名稱來設定 ControlSource 屬性，請連接變數并包含 = 符號。考慮：
ctl.ControlSource = "=[Forms]![frmlisteannuelle]![" & ctl.name & "]"
轉載請註明出處，本文鏈接：https://www.uj5u.com/houduan/359369.html
上一篇：訪問-未觸發滑鼠按下事件
下一篇：左連接后表中的重復記錄