Question

有没有人知道是否有办法在MS Access报表上打印公式，就像在Excel中更改设置以仅显示公式而工作表中没有数据的方式一样？

我可以通过引号括起所有公式，但是我想看一下程序中是否有一个设置会为我做这个。

Answer 1

抱歉，没有。你被困在引号中。 :( 使用VB可能会节省一些时间 - 尝试这样的事情。

Function formula()
    On Error GoTo OutOfSections
    Const sRpt As String = "Report1"
    Dim rpt As Access.Report
    Dim ctl As Control
    Dim iCounter As Integer
    DoCmd.OpenReport sRpt, acViewDesign
    Set rpt = Reports(sRpt)
    Do
        For Each ctl In rpt.Section(iCounter).Controls
            If ctl.ControlType = acTextBox Then
                Debug.Print "=""" & Replace(ctl.ControlSource, """", "'") & """"
                ctl.ControlSource = "=""" & Replace(ctl.ControlSource, """", "'") & """"
            End If
        Next
        iCounter = iCounter + 1
    Loop
OutOfSections:

End Function

Answer 2

在我创建这篇文章后的那段时间里，我找到了一个很棒的技巧来查看报告中的公式。使用报表上的数据库文档管理器，您可以创建可搜索的Word文件。示例：如果要在报表中的公式中查找和替换多个字段名称，可以使用数据库文档管理器记录报表，然后在Word中搜索要替换的字段名称的所有实例。搜索将显示所有控件，其中存在字段名称（或任何文本字符串）。然后，您可以返回Access，通过属性面板顶部的下拉列表提取这些控件，并更改与这些控件关联的表达式。

打印访问报告公式

2 个答案: