我們有一個帶有 2 個按鈕指向 2 個報告的表單，理想情況下，我們希望表單上有一個按鈕，以防止用戶列印錯誤的證書
有沒有辦法只有一個按鈕，所以當用戶單擊按鈕運行報告時，
如果 [type] 包含 "semi" 打開報告 "semi cert" & 如果 [type] 包含 "spring" 打開報告 "spring cert"
這些是我們的電流按鈕
Private Sub semi_Click()
DoCmd.OpenReport "Quick Hitch (SEMI) Certificate", acViewPreview, , "[no] = " & Me.[no]
DoCmd.PrintOut
DoCmd.Close
End Sub
Private Sub spring_Click()
DoCmd.OpenReport "Quick Hitch (SPRING) Certificate", acViewPreview, , "[no] = " & Me.[no]
DoCmd.PrintOut
DoCmd.Close
End Sub
uj5u.com熱心網友回復：
假設這type是您的文本框的名稱
Private Sub OpenReport_Click()
Dim reportName As String
Select Case Me.[type].Value
Case "semi"
reportName = "Quick Hitch (SEMI) Certificate"
Case "spring"
reportName = "Quick Hitch (SPRING) Certificate"
Case Else
MsgBox "Report type '" & Me.[type].Value & "'is unknown"
Exit Sub
End Select
DoCmd.OpenReport reportName , acViewPreview, , "[no] = " & Me.[no]
DoCmd.PrintOut
DoCmd.Close
End Sub
轉載請註明出處，本文鏈接：https://www.uj5u.com/qiye/531299.html
標籤：毫秒访问报告