转为MDE/ACCDE后更新事件报错

GOODWIN

1.可以正常转换为MDE/ACCDE
2.在MDB/ACCDB界面可以正常运行
3.在MDE/ACCDE模式下，止页的更新打印会报错！
请各位老师/高手，帮忙分析一下问题的所在，及优化一下部份代码，谢谢

GOODWIN

1.在MDB/ACCDB界面可以正常运行，编译时没有任何报错，正常操作运行
2.转MDE/ACCDE进也没有任何报错，在止页运行更新事件打印后就会报错
麻烦各位老师，高手指教

GOODWIN

Private Sub TZ_AfterUpdate()
    Dim I As Long
    Dim No, Noc As Integer
    Dim PP, YH As String
    Dim stDocName As String
    Dim rpt As Report
    Dim a As String
    Dim B As String
    Dim rpt1 As Object

            If IsNull(Me.TQ) = False And IsNull(Me.TZ) = False Then
                If IsNull(Me![strPrint]) = False Then

                    stDocName = "PB"
                    DoCmd.OpenReport stDocName, acViewPreview
                    Set rpt = Reports(stDocName)
                    rpt.Printer = Printers(Me.strPrint.ListIndex)
                    Call NewPRINTC

                    PP = Me.TPM

                    For I = Me.TQ To Me.TZ
                         YH = PP & "," & Format(I, "000")
                         No = Len(PP)
                         Noc = 10 - (No Mod 10)
                         If Me.TQ = 1 Then
                            Noc = 10 / (Me.TQ + 1)
                         End If
                        B = Format(Now, "yymmddhhmmss")
                        Me.TM = YH & "," & B & "," & Me.T2 & "," & Me.T3 & "," & Me.TZ
                        a = Me.TM
                        Me.QRmaker3.InputData = a
                        Me.QRmaker3.Requery
                        DoCmd.OpenReport stDocName, acViewPreview, "", "", strWhere
                        DoCmd.OpenReport stDocName, acViewNormal, "", "", strWhere
           
                        For Each rpt1 In CurrentProject.AllReports
                            DoCmd.Close acReport, rpt1.Name
                        Next
                        
                    Next
                Else
                    MsgBox "请检查打印机", 64, "提示"
                    Exit Sub
                End If
            Else
                MsgBox "请检查起止输入", 64, "提示"
                Me.TQ.SetFocus
            End If Me.TPM.SetFocus End If
    Me.TPM.SetFocus
End Sub


正常可以的编译MDE，但是在MDE下，这个更新会报上面的错误

GOODWIN

各位老师，看到后帮忙解惑 一下，谢稿

Henry D. Sy

GOODWIN 发表于 2021-12-7 07:58
各位老师，看到后帮忙解惑 一下，谢稿

你至少应该传例子，否则如何测试！

GOODWIN

生成MED及ACCDE都正常没有任何报错，就是在正常运行时更新事件报错

GOODWIN

Henry D. Sy 发表于 2021-12-7 10:07
你至少应该传例子，否则如何测试！

生成MED及ACCDE都正常没有任何报错，就是在正常运行时更新事件报错，麻烦老师帮忙查找分析错误原因，谢谢！

Henry D. Sy

很奇怪，附件下载不了，

GOODWIN

Henry D. Sy 发表于 2021-12-9 10:24
很奇怪，附件下载不了，

重新上传

Henry D. Sy

没有任何空件或代码呀！