不在列表事件无法实现对组合框行来源实时更新

roych

这是朋友的一个小程序，当时帮忙写了不在列表（Not_In_List）事件，但他说不在列表事件无法实现对组合框行来源实时更新（详见窗体frmFedExExpress中的组合框2RecipientCode，对应事件名称为Ctl2RecipientCode_Not_In_List()），调试多次果然如此。

在该控件的更新后、更改或者不在列表中等几个事件里加上在Me.Ctl2RecipientCode.Requery方法，无果（不知道是不是电脑的问题，调试成功一次后再也没那么走运了）。大家看看有什么问题。

bbpst

不是你电脑问题，确实存在无法实行更新状况。

koutx

在frmRecieInfo窗体的UnLoad事件中加入:
Private Sub Form_Unload(Cancel As Integer)
DoCmd.SelectObject acForm, "frmFedExExpress"
Form_frmFedExExpress.Ctl2RecipientCode.Requery
Form_frmFedExExpress.Ctl2RecipientCode.Dropdown
end sub

bbpst

效果达到了，但cmdAdd控件打开添加窗然后关闭时出错：

roych

bbpst 发表于 2012-7-10 10:07
效果达到了，但cmdAdd控件打开添加窗然后关闭时出错：

koutx的方法是正确的，加了错误处理之后就好了，详见新上传的附件。欢迎大家再进行测试~~~

t小宝

在frmRecieInfo窗体的卸载或关闭事件中写一句代码就可以更新了：
Form_frmFedExExpress.Ctl2RecipientCode.Requery

如果要下拉列表，3楼的代码还要加上一句：
DoCmd.SelectObject acForm, "frmFedExExpress"
Form_frmFedExExpress.Ctl2RecipientCode.Requery
Form_frmFedExExpress.Ctl2RecipientCode.SetFocus   ' 加上这句
Form_frmFedExExpress.Ctl2RecipientCode.Dropdown

roych

t小宝 发表于 2012-7-10 10:28
在frmRecieInfo窗体的卸载或关闭事件中写一句代码就可以更新了：
Form_frmFedExExpress.Ctl2RecipientCode ...

谢谢宝GG的关注，要的就是3楼的效果~~~

bbpst

3楼的再加上获取焦点的语名就完美了。
学习。