vba - 如何更正 Access VBA 中的 MS Access 运行时错误“2498”？

Question

我正在尝试编写一个代码来打印当前记录的当前表单。这就是我正在使用的：

Private Sub PrintCommand_Click()
Dim myform As Form
Dim pageno As Long
pageno = Me.CurrentRecord
Set myform = Screen.ActiveForm
DoCmd.SelectObject acForm, myform.Name, True
DoCmd.PrintOut acPages, pageno, pageno, , 1
DoCmd.SelectObject acForm, myform.Name, False
End Sub

当我将“pageno”标注为整数时，它给我的一些超过 65000 的记录提供了溢出错误。因此，我将其标注为长数据类型，但随后我收到以下错误：运行时错误 '2498 '：您输入的表达式是其中一个参数的错误数据类型。”

我还尝试将“pageno”设置为变体数据类型，但我收到了相同的 2498 错误消息。关于解决此问题的方法或其他解决方法以打印我的当前记录的表格的任何建议？

更新：这有效并完成了我的目标......

Private Sub PrintCommand_Click()
'Print out the current record
Me.Filter = "[Quote Number] = " & QuoteNumberEntry.Value
Me.FilterOn = True
DoCmd.PrintOut
Me.Filter = ""
Me.FilterOn = False
End Sub

标签： vbams-accessruntime-error