Share via


PreviousControl Property [Access 2003 VBA Language Reference]

You can use the PreviousControl property with the Screen object to return a reference to the control that last received the focus. Read-only.

expression.PreviousControl

expression Required. An expression that returns one of the objects in the Applies To list.

Remarks

The PreviousControl property contains a reference to the control that last had the focus. Once you establish a reference to the control, you can access all the properties and methods of the control.

This property is available only by using a macro or Visual Basic .

You can't use the PreviousControl property until more than one control on any form has received the focus after a form is opened. Microsoft Access generates an error if you attempt to use this property when only one control on a form has received the focus.

Example

The following example displays a message if the control that last received the focus wasn't the txtFinalEntry text box.

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

Applies to | Screen Object