Office中国论坛/Access中国论坛

标题: 如何实现预览打印当前窗体记录？ [打印本页]

作者: liuyinhe 时间: 2010-8-14 14:36
标题: 如何实现预览打印当前窗体记录？
本帖最后由 liuyinhe 于 2010-8-15 07:03 编辑

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

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 时间: 2010-8-14 18:42
自己顶

作者: liuyinhe 时间: 2010-8-15 07:03
在顶一哈

作者: liuyinhe 时间: 2010-8-15 15:08
自己顶

作者: liuyinhe 时间: 2010-8-15 18:10
我已找到这个例子http://www.office-cn.net/forum.p ... typeid%26typeid%3D5解决了我的问题！！

作者: heikediguo2004 时间: 2010-8-20 10:54
是罗斯文数据库，不是罗斯福数据库

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