安徽彩票大奖 欧洲百万乐透大奖 七星彩17049规律大奖 双色球中大奖领奖过程 3d近期中大奖故事 广州番禺中福彩大奖的 鸡男注定会中大奖 2016江苏彩民中大奖 趣彩网大奖网黑平台 大乐透4.97亿大奖 霍邱一彩民6元中双色球547万大奖 双色球黑龙江中大奖图 体育彩票中大奖名单 什么样的人能中大奖 彩票大奖作假

Screen.PreviousControl的使用技巧

2017-10-30 14:27:00
zstmtony
原创
757
Screen.PreviousControl 属性  
 
可以使用Screen对象有?#27807;?#26102;可返回到上?#20301;?#24471;?#27807;?#30340;控件的引用。只读的。
 
Screen对象 一个表示屏幕对象的变量。
注解
?#27807;?#26102;包含对上一次具有?#27807;?#30340;控件的引用。一旦建立了对控件的引用,可以访问所有的属性和控件的方法。
只有在任何窗体上的多个控件已获得?#27807;悖?#31383;体打开后,才能使用?#27807;?#26102;。如果您尝试使用此属性,当只有一个窗体上的控件已获得?#27807;?#26102;,Microsoft Access 将生成一个错误。
示例

下面的示例将显示一条消息,如果上?#20301;?#24471;?#27807;?#30340;控件不是txtFinalEntry文本框。


Public Function ProcessData() As Integer 

 ' No previous control error. 
 Const conNoPreviousControl = 2483 
 Dim ctlPrevious As Control 

 On Error GoTo Process_Err 

 Set ctlPrevious = Screen.PreviousControl 
 If ctlPrevious.Name = "txtFinalEntry" Then 
 ' 
 ' Process Data Here. 
 ' 
 ProcessData = True 
 Else 
 ' Set focus to txtFinalEntry and display message. 
 Me!txtFinalEntry.SetFocus 
 MsgBox "Please enter a value here." 
 ProcessData = False 
 End If 

Process_Exit: 
 Set ctlPrevious = Nothing 
 Exit Function 

Process_Err: 
 If Err = conNoPreviousControl Then 
 Me!txtFinalEntry.SetFocus 
 MsgBox "Please enter a value to process.", vbInformation 
 ProcessData = False 
 End If 
 Resume Process_Exit 

End Function


分享
? 1999-2019 Office交流网?? 中山市天鸣科技发展有限公司 粤ICP备10043721号-5 SQL查询:18
内存占用:7.75MB
PHP 执行时间:0.18
双色球大奖2000年
安徽彩票大奖 欧洲百万乐透大奖 七星彩17049规律大奖 双色球中大奖领奖过程 3d近期中大奖故事 广州番禺中福彩大奖的 鸡男注定会中大奖 2016江苏彩民中大奖 趣彩网大奖网黑平台 大乐透4.97亿大奖 霍邱一彩民6元中双色球547万大奖 双色球黑龙江中大奖图 体育彩票中大奖名单 什么样的人能中大奖 彩票大奖作假