access解决组合框无法满足大量数据的选择问题

核心提示：5、然后再在testForm中输入以下代码以完成多次打开窗体本身并显示子类中数据的功能，为了能够使代码重复利用，access解决组合框无法满足大量数据的选择问题(2)，写了两个通用过程OptionCompareDatabaseDimfPrivateSubForm_KeyDown(KeyCodeAsInteger,Shi

5、然后再在testForm中输入以下代码以完成多次打开窗体本身并显示子类中数据的功能。

为了能够使代码重复利用，写了两个通用过程

OptionCompareDatabase
Dimf
PrivateSubForm_KeyDown(KeyCodeAsInteger,ShiftAsInteger)
　　'先设定窗体的“键预览”属性为“是”
　　'本过程将加快你的输入速度
　　'如果按ESCAPE键，就关闭窗体
　　IfKeyCode=vbKeyEscapeThen
　　　　closeAllSelectForm"SelectForm"
　　EndIf
EndSub
PrivateSubList0_DblClick(CancelAsInteger)
　　checkYouSelect
EndSub
PrivateSubList0_KeyPress(KeyAsciiAsInteger)
　　'本过程实现全键盘操作
　　IfKeyAscii=13Then
　　　　checkYouSelect
　　EndIf
EndSub
SubcloseAllSelectForm(strFormNameAsString)
　　'通用过程1
　　'本过程用来关闭所有的指定名称的窗体
　　ForEachobjFormInForms
　　　　IfobjForm.Name=strFormNameThen
　　　　　　DoCmd.CloseacForm,objForm.Name
　　　　EndIf
　　NextobjForm
EndSub
SubcheckYouSelect()
　　'通用过程2
　　'检测你的选择
　　'如果发现suncount列为0（表示没有下一层了）
　　'就可以把你选定的产品名称放到文本框中了
　　OnErrorResumeNext
　　Setf=NewForm_SelectForm
　　DimobjFormAsForm
　　IfList0.Column(0)=0Then
　　　　Forms("testform").Text0.Value=List0.Column(2)
　　　　closeAllSelectForm"SelectForm"
　　Else
　　　　f.Visible=True
　　　　f.List0.RowSource="SELECTbtype.soncount,btype.UserCode,btype.FullName,btype.typeIdFROMbtypeWHEREparid='"&List0.Value&"'"
　　EndIf
EndSub