在VBA中模拟更改ACCESS子窗体的字段值

唉，折腾了好几个小时，终于折腾出来了。出来的时候高兴了一下下。现在好像又没啥感觉了。闲话少说，赶紧记下来。

话说我要测试改字段值后的一系列变化，所以我想让程序模拟自动随机地改一个子窗体里的字段值，好激发这个字段对应的控件的dirty和beforeUpdate事件。代码如下：

'通过发键盘消息改它的value值 '要让子窗体的控件获得焦点,必须先让子窗体获得焦点 Me.sfr.SetFocus Me.sfr.Form.Controls("sngValue").SetFocus i = rndX.GetRandomNum(1, 100) '随机得到一个新的value值 '要使用sendkeys必须用以上设置焦点的语句,使得接受键盘输入的窗体获得焦点 Call SendKeys("{DELETE 2}") '先删掉两个数字 Call SendKeys(i) '再输入新的数值,这时会激发sngValue_Dirty事件 Call SendKeys(" {TAB}") '同时按下shift和tab键,光标移到上一个控件,这时会激发sngValue_BeforeUpdate事件

说明如下：

（1）关键是用sendkeys函数模拟键盘消息

（2）sendkeys函数只能向当前有焦点的窗口发送键盘消息，所以要先把子窗体的控件设为有焦点，这样当前活动窗口获得键盘输入后才能把字母输入到合适的位置

（3）输入新的数值即会激发dirty事件，而beforeupdate事件的激发则要用shift tab键来使焦点移动后激发。

（4）我本来是直接写了另外一个控件.setfocus来移动焦点，但是发现这个消息貌似比之前的sendkeys走得快，导致新输入的字符串录入到另外一个控件里了。严重怀疑鼠标和键盘不走同一个队列。

（5）还试着用过API函数sendmessage发WM_SETTEXT消息。未果。因为ACCESS窗体的文本框控件貌似不是标准的带Hwnd的控件，用SPY 都查不到句柄。看一网友用enumchildwindow试着找类似的delphi窗体的控件句柄失败告终，我也就放弃了。

 1/2    1 2 下一页 尾页