PreviousControl 屬性

全部顯示

將 PreviousControl 屬性用于 Screen 對(duì)象可以返回對(duì)上次獲得焦點(diǎn)的控件的引用。只讀。

expression.PreviousControl

expression     必需。返回“應(yīng)用于”列表中的一個(gè)對(duì)象的表達(dá)式。

說(shuō)明

PreviousControl 屬性包含對(duì)上次獲得焦點(diǎn)的控件的引用。一旦建立了對(duì)控件的引用，就可以訪(fǎng)問(wèn)該控件的所有屬性和方法。

該屬性?xún)H在使用宏或 Visual Basic 時(shí)才可用。

除非在窗體打開(kāi)后有多于一個(gè)控件獲得焦點(diǎn)，否則不能使用 PreviousControl 屬性。如果窗體上只有一個(gè)控件獲得焦點(diǎn)，則在試圖使用該屬性時(shí) Microsoft Access 會(huì)出錯(cuò)。

示例

在以下的示例中，如果上次獲得焦點(diǎn)的控件不是 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