Office中国论坛/Access中国论坛

标题: 这个问题版主帮帮解决一下,谢谢. [打印本页]

作者: chunyi 时间: 2005-3-12 01:03
标题: 这个问题版主帮帮解决一下,谢谢.
[attach]9344[/attach]

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

有人用这样的代码

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

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

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

作者: 情比金坚 时间: 2005-3-12 02:34
有人用这样的代码？？？？这段代码是矛盾的[em04]

作者: chunyi 时间: 2005-3-13 05:57
那应该如何做呢?请帮帮忙吧.版主.我真的不会了啊

作者: chunyi 时间: 2005-3-14 01:48
没人帮忙吗？

作者: 情比金坚 时间: 2005-3-14 03:14
把原来的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 时间: 2005-3-14 23:43
为什么系统提示:命令与操作"SaveRecord"不可用呢

作者: chunyi 时间: 2005-3-19 18:30
?

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