[分享]如何使用自定义对话框

fan0217

其要点：1.在模块中用Public声明变量，注意变量类型，要和你传递的值的类型一样。如：Public intValue As Long

2.打开对话框的一定要是模式窗体，打开代码如：DoCmd.OpenForm "客户", , , , , acDialog    注：客户是自定义对话框窗体

3.将对话框要返回的值赋予先前声明的变量。

4.将变量值再赋予窗体指定的字段。

全局变量在这里起到的作用相似与Windows的剪贴板，只是暂时保存并传递数据，如果要在几个地方使用此变量，要在赋予窗体指定的字段后，清除变量的数据。

还可以扩展这种方法，赋予变量值后，在程序的任何地方都可以调用。用这种方法可以大量节省窗体和代码的数量，在窗体间传递数据非常有效。

[此贴子已经被作者于2006-2-11 21:11:30编辑过]

fan0217

示例说明：

     客户后面的“...”按钮就是打开自定义对话框的按钮。单击后打开客户窗体，按确定返回客户ID，并填入客户字段。

苍蝇

很不错的例子，好好学学。

sufupan

OK

sufupan

OK

yangzn

按取消按钮呢??? 不就会更换成原值

我个人喜欢用 在form1 里申请一个公用变量 和 bOK变量    并且单击OK 的事件中  写 me.visible=false

再在要打这个对话框的窗体中

dim frm as new form1

frm.show

while frm.visible

    doevents

wend

if frm.bok then  

   ' 得到 frm.你要传的值

endif

[此贴子已经被作者于2006-2-11 11:51:01编辑过]

fan0217

取消按钮还有点问题，只需要做点小的更改。

tmtony

不错不错!!

dfmz_fd

e1e

dfmz_fd

eq