2009-06-12 76 views
0

有誰知道是否有辦法在MS Access報表上打印公式,就像您可以更改Excel中的設置以僅顯示公式和工作表中沒有數據的方式?打印訪問報告公式

我可能會經歷並用引號將所有公式包裹起來,但我期待看看程序中是否有設置可以爲我做到這一點。

+0

也許你應該解釋爲什麼你認爲這將是解決你的問題。也就是說,告訴我們問題,而不是詢問您認爲的解決方案是否可行。 – 2009-06-13 04:11:33

+0

問題是:在打印設置中是否有一個Access設置(類似於Excel有打印公式的選項)來打印顯示公式而不是數據的報告的副本?我認爲這很清楚。 – Kyle 2009-06-15 13:54:51

回答

1

自從我創造了這個職位,已經過去的時候,我發現了一個偉大的伎倆在一份報告中查看公式使用。例如:如果要在整個報表中查找和替換公式中的多個字段名稱,則可以使用數據庫記錄器記錄報告,然後在Word中進行搜索對於你試圖替換的字段名稱的所有實例,搜索將顯示出所有的字段名稱(或者任何文本字符串)存在的控件,然後你可以返回Access,那些通過屬性面板頂部的下拉菜單進行控制,並更改exp與這些控制相關的迴應。

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