Access VBA教程：PreviousControl属性（Access特有的属性）

盗梦

PreviousControl属性特点：
    1、PreviousControl属性是VBA一个很特别的属性。
    2、它也非常有用。
    3、在VB中是没有这个属性的。

PreviousControl属性作用：
* 它主要是返回上次获得焦点的控件对象。
例如你选择一个文本框，然后 点击一个按钮，在这个按钮的事件中对前面的文本框 进行相应的处理。
这时就需要获取上一个获得焦点的文本框控件是哪个控件，这里PreviousControl属性就非常有用了。

Access VBA教程：PreviousControl属性将 PreviousControl属性用于Screen对象可以返回对上次获得焦点的控件的引用。只读。

expression.PreviousControl

expression   必需。返回“Applies To”列表中的一个对象的表达式。

说明

PreviousControl属性包含对上次获得焦点的控件的引用。一旦建立了对控件的引用，就可以访问该控件的所有属性和方法。

该属性仅在使用宏或Visual Basic 时才可用。

除非在窗体打开后有多于一个控件获得焦点，否则不能使用 PreviousControl属性。如果窗体上只有一个控件获得焦点，则在试图使用该属性时 Microsoft Access 会出错。

VBA示例

在以下的示例中，如果上次获得焦点的控件不是txtFinalEntry 文本框，则显示一条消息。

1. Public Function ProcessData() As Integer
   
2.     ' No previous control error.   
   
3.     Const conNoPreviousControl = 2483   
   
4.     Dim ctlPrevious As Control     
   
5. On Error GoTo Process_Err
   
6.      Set ctlPrevious = Screen.PreviousControl
   
7.     If ctlPrevious.Name = "txtFinalEntry" Then
   
8.         'Process Data Here.
   
9.         ProcessData = True
   
10.     Else
    
11.         ' Set focus to txtFinalEntry and display message.
    
12.        Me!txtFinalEntry.SetFocus
    
13.         MsgBox "请输入值."
    
14.         ProcessData = False
    
15.     End If
    
16. Process_Exit:
    
17.     Set ctlPrevious = Nothing
    
18.     Exit Function
    
19. Process_Err:
    
20.     If Err = conNoPreviousControl Then
    
21.         Me!txtFinalEntry.SetFocus
    
22.         MsgBox "请输入值.", vbInformation
    
23.         ProcessData = False
    
24.     End If
    
25.     Resume Process_Exit
    
26. End Function

复制代码

t小宝

这个属性不错 有用，阿航研究很深入哈

盗梦

t小宝 发表于 2015-4-15 21:27
这个属性不错 有用，阿航研究很深入哈

翻资料翻到的