Office中国论坛/Access中国论坛

标题: 转为MDE/ACCDE后更新事件报错 [打印本页]

作者: GOODWIN 时间: 2021-12-4 10:17
标题: 转为MDE/ACCDE后更新事件报错
本帖最后由 GOODWIN 于 2021-12-5 14:56 编辑

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

作者: GOODWIN 时间: 2021-12-4 10:21
本帖最后由 GOODWIN 于 2021-12-5 14:56 编辑

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

作者: GOODWIN 时间: 2021-12-5 14:57
本帖最后由 GOODWIN 于 2021-12-5 15:05 编辑

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 时间: 2021-12-7 07:58
各位老师，看到后帮忙解惑一下，谢稿

作者: Henry D. Sy 时间: 2021-12-7 10:07

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

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

作者: GOODWIN 时间: 2021-12-8 09:22
本帖最后由 GOODWIN 于 2021-12-15 15:43 编辑

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

作者: GOODWIN 时间: 2021-12-8 09:22

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

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

作者: Henry D. Sy 时间: 2021-12-9 10:24
很奇怪，附件下载不了，

作者: GOODWIN 时间: 2021-12-9 11:39
本帖最后由 GOODWIN 于 2021-12-15 15:42 编辑

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

重新上传

作者: Henry D. Sy 时间: 2021-12-9 12:27
没有任何空件或代码呀！

作者: GOODWIN 时间: 2021-12-9 14:19
本帖最后由 GOODWIN 于 2021-12-15 15:42 编辑

Henry D. Sy 发表于 2021-12-9 12:27
没有任何空件或代码呀！

重新上传了，不好意思

欢迎光临 Office中国论坛/Access中国论坛 (http://www.office-cn.net/)