这个问题版主帮帮解决一下,谢谢.

chunyi

在俄发货录入中如果输入的款号没有在产品档案中,则打开产品档案窗体追加刚录入的款号.可当录入好了后关闭产品档案窗体,回到发货录入中,还是找不到刚录入的款号,只有把俄发货录入关掉再开开才可用.

有人用这样的代码

Private Sub 命令14_Click()

DoCmd.RunCommand acCmdSaveRecord '保存记录

Forms("俄发货录入")![款号].Undo  '还原俄发货录入

Forms("俄发货录入")![款号].Requery '重新查询

Forms("俄发货录入")![款号] = Me.[款号] '输入款号

DoCmd.Close

End Sub

可是我的好几个窗体都用到这个产品档案窗体的.如果改成:

Private Sub 命令14_Click()

DoCmd.RunCommand acCmdSaveRecord '保存记录

Forms("俄发货录入")![款号].Undo  '还原订单窗体

Forms("俄发货录入")![款号].Requery '重新查询

Forms("俄发货录入")![款号] = Me.[款号] '输入客户编号

Forms("边贸发货表")![款号].Undo

Forms("边贸发货表")![款号].Requery

Forms("边贸发货表")![款号] = Me.[款号]

DoCmd.Close

End Sub

我如果加成这样,就运行不过去了.不可能我在产品档案窗体中对每个用到这个的窗体都建一个按钮,

请问版主有什么好的办法吗?

情比金坚

有人用这样的代码？？？？这段代码是矛盾的[em04]

chunyi

那应该如何做呢?请帮帮忙吧.版主.我真的不会了啊

chunyi

没人帮忙吗？

情比金坚

把原来的me.款号.Requery改成：Private Sub 款号_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single)

Me.款号.RowSource = "SELECT [产品档案].[款号], [产品档案].[类别] FROM 产品档案"End Sub另产品档案也要加一句：Private Sub Command11_Click()

On Error GoTo Err_Command11_Click    Me.AllowEdits = True

    DoCmd.DoMenuItem acFormBar, acRecordsMenu, acSaveRecord, , acMenuVer70

chunyi

为什么系统提示:命令与操作"SaveRecord"不可用呢

chunyi

?