打印访问报告公式

有谁知道是否有办法在MS Access报表上打印公式，就像您可以更改Excel中的设置以仅显示公式和工作表中没有数据的方式？打印访问报告公式

我可能会经历并用引号将所有公式包裹起来，但我期待看看程序中是否有设置可以为我做到这一点。

2009-06-12 Kyle

也许你应该解释为什么你认为这将是解决你的问题。也就是说，告诉我们问题，而不是询问您认为的解决方案是否可行。 – 2009-06-13 04:11:33

问题是：在打印设置中是否有一个Access设置（类似于Excel有打印公式的选项）来打印显示公式而不是数据的报告的副本？我认为这很清楚。 – Kyle 2009-06-15 13:54:51

自从我创造了这个职位，已经过去的时候，我发现了一个伟大的伎俩在一份报告中查看公式使用。例如：如果要在整个报表中查找和替换公式中的多个字段名称，则可以使用数据库记录器记录报告，然后在Word中进行搜索对于你试图替换的字段名称的所有实例，搜索将显示出所有的字段名称（或者任何文本字符串）存在的控件，然后你可以返回Access，那些通过属性面板顶部的下拉菜单进行控制，并更改exp与这些控制相关的回应。

来源

2012-02-13 17:33:38 Kyle

对不起，没有。你坚持把它们包装在引号中。 :( 用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

来源

2009-06-12 20:20:04 Praesagus

打印访问报告公式

回答

相关问题