Screen.PreviousControl的使用技巧

2017-10-30 14:27:00
zstmtony
原創
942
Screen.PreviousControl 屬性  
 
可以使用Screen對象有焦點時可返迴到上次穫得焦點的控件的引用。隻讀的。
 
Screen對象 一箇錶示屏幕對象的變量。
註解
焦點時包含對上一次具有焦點的控件的引用。一旦建立瞭對控件的引用,可以訪問所有的屬性和控件的方法。
隻有在任何窗體上的多箇控件已穫得焦點,窗體打開後,纔能使用焦點時。如果您嚐試使用此屬性,當隻有一箇窗體上的控件已穫得焦點時,Microsoft Access 將生成一箇錯誤。
示例

下麵的示例將顯示一條消息,如果上次穫得焦點的控件不是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


分享