如何实现预览打印当前窗体记录？

liuyinhe

这是取自罗斯福家庭财产示例数据库里的代码，移到我的数据库里就不行了。


Private Sub Preview_Click()
On Error GoTo HandleErr
    If IsNull(Me![资产编号]) Then
        MsgBox "本报表中没有数据。取消报表..."
    Else
        DoCmd.DoMenuItem acFormBar, acRecordsMenu, acSaveRecord, , acMenuVer70
        DoCmd.OpenReport "表2", acPreview, , "[资产编号] = " & [资产编号]
    End If
ExitHere:
    Exit Sub
HandleErr:
    Select Case Err
        Case Else
            MsgBox Err & ": " & Err.Description, , _
              "Form_HouseholdInventory.Preview_Click"
    End Select
    Resume ExitHere
    Resume
End Sub

出现错误提示：
2046：命令或操作“SaveRecord”当前不可用。

liuyinhe

自己顶

liuyinhe

在顶一哈

liuyinhe

自己顶

liuyinhe

我已找到这个例子http://www.office-cn.net/forum.p ... typeid%26typeid%3D5解决了我的问题！！

heikediguo2004

是罗斯文数据库，不是罗斯福数据库