[求助 论坛高手热心人士特别是hi-wzj ]另类的追加查询的问题(多字段变更，主从窗体

secowu

谢谢。

这代码通过测试：

Private Sub 选择需要的操作_AfterUpdate()

On Error GoTo error

Me.选定窗体.SourceObject = Me.[选择需要的操作]

errorexit:

Exit Sub

error:

Exit Sub

End Sub

问题：

1.在窗体"文员制单界面"的“翻单”那个命令里

    如果需要改变的字段超过有5个的话。

     目前需要更改的字段有：

     彩印单号、下单日期、柜编、锌号、工作单号、PO号

     子窗体里的送货数量、送货备品、送货日期

  那么这样一个一个的弹出对话框是不是很麻烦呢？

   有没有弄个小窗体（或是集中点的对话框），

   来设定需要改变的字段的值呢？

2. 我想在“制单界面”里输入产品时，来个判断，

    如果这个产品在“条码产品库”里没有，则提醒用户是否将新记录添加到表里。

    这个代码又怎么写呢？

非常期待Hi-WZJ高手的帮忙！！！









在线等待中........

[此贴子已经被作者于2005-7-21 12:23:16编辑过]

eyewitnes

me.子窗体名称.form.sourceobject = "窗体或查询或表的名称"

secowu

谢谢。

这代码通过测试：

Private Sub 选择需要的操作_AfterUpdate()

On Error GoTo error

Me.选定窗体.SourceObject = Me.[选择需要的操作]

errorexit:

Exit Sub

error:

Exit Sub

End Sub



问题：

1.在窗体"文员制单界面"的“翻单”那个命令里

    如果需要改变的字段超过有5个的话。

     目前需要更改的字段有：

     彩印单号、下单日期、柜编、锌号、工作单号、PO号

     子窗体里的送货数量、送货备品、送货日期

  那么这样一个一个的弹出对话框是不是很麻烦呢？

   有没有弄个小窗体（或是集中点的对话框），

   来设定需要改变的字段的值呢？

2. 我想在“制单界面”里输入产品时，来个判断，

    如果这个产品在“条码产品库”里没有，则提醒用户是否将新记录添加到表里。

    这个代码又怎么写呢？

[此贴子已经被作者于2005-7-21 8:56:47编辑过]

风筝

有问题，请在原贴后回复，不要发新贴！

eyewitnes

1、办法1：可以做一个窗体将需要改动的数据进行记录，然后写入您希望写入的位置

     办法2：可以通过输入一串字符，中间用符号进行分隔，然后将符号分隔开的字符写入相应的字段

2、在NOINLIST事件中加入提示代码

secowu

以下是引用eyewitnes在2005-7-21 10:10:00的发言：



1、办法1：可以做一个窗体将需要改动的数据进行记录，然后写入您希望写入的位置

     办法2：可以通过输入一串字符，中间用符号进行分隔，然后将符号分隔开的字符写入相应的字段

2、在NOINLIST事件中加入提示代码

怎么写呢？

搞不懂

谢谢，放在文件里