Office中国论坛/Access中国论坛

标题: [分享]如何使用自定义对话框 [打印本页]

作者: fan0217 时间: 2005-12-15 05:15
标题: [分享]如何使用自定义对话框

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

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

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

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

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

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

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

作者: fan0217 时间: 2005-12-15 05:19
示例说明：

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

作者: 苍蝇 时间: 2005-12-28 00:11
很不错的例子，好好学学。

作者: sufupan 时间: 2006-2-11 01:28
OK

作者: sufupan 时间: 2006-2-11 01:29
OK

作者: yangzn 时间: 2006-2-11 19:49
按取消按钮呢??? 不就会更换成原值

我个人喜欢用在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 时间: 2006-2-12 05:11
取消按钮还有点问题，只需要做点小的更改。[attach]15768[/attach]

作者: tmtony 时间: 2006-2-12 08:55
不错不错!!

作者: dfmz_fd 时间: 2006-2-12 20:22
e1e

作者: dfmz_fd 时间: 2006-2-12 20:23
eq

作者: dfmz_fd 时间: 2006-2-12 20:23
good

作者: 水鱼 时间: 2006-2-19 05:40
不错,好东西

作者: haoooooooo 时间: 2006-3-4 07:12
我没有找到窗体传递值的命令啊！

不是用recordset吗？

作者: chenzhao 时间: 2006-3-11 17:12
haha

作者: chenzhao 时间: 2006-3-11 17:12
cao

作者: chenzhao 时间: 2006-3-11 17:12
d

作者: wcfywyd 时间: 2006-4-4 06:59
很好!!!!!!!!!!

作者: coolhao 时间: 2006-4-11 04:46
sss

作者: coolhao 时间: 2006-4-11 04:47
dd

作者: coolhao 时间: 2006-4-11 04:47
ff

作者: jqm288 时间: 2006-9-6 06:01
谢谢!!

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