Freigeben über

Screen.PreviousControl-Eigenschaft (Access)

  • Artikel

Verwenden Sie die PreviousControl-Eigenschaft zusammen mit dem Screen-Objekt , um einen Verweis auf das Steuerelement zurückzugeben, das zuletzt den Fokus erhalten hat. Schreibgeschützt.

Syntax

Ausdruck. PreviousControl

Ausdruck Eine Variable, die ein Screen-Objekt darstellt.

Hinweise

Die Einstellung der Eigenschaft PreviousControlPreviousControl enthält eine Referenz auf das Steuerelement, das zuletzt den Fokus hatte. Nachdem Sie einen Verweis auf das Steuerelement erstellt haben, können Sie auf alle Eigenschaften und Methoden des Steuerelements zugreifen.

Wenn ein Formular geöffnet wurde, können Sie die Eigenschaft PreviousControlPreviousControl erst verwenden, nachdem mindestens zwei Steuerelemente des Formulars den Fokus erhalten haben. Microsoft Access meldet einen Fehler, wenn Sie diese Eigenschaft verwenden, aber erst ein Steuerelement des jeweiligen Formulars den Fokus erhalten hat.

Beispiel

Das folgende Beispiel zeigt eine Meldung an, wenn das Steuerelement, das den Fokus zuletzt erhalten hat, nicht das Textfeld txtFinalEntry war.

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

Support und Feedback

Haben Sie Fragen oder Feedback zu Office VBA oder zu dieser Dokumentation? Unter Office VBA-Support und Feedback finden Sie Hilfestellung zu den Möglichkeiten, wie Sie Support erhalten und Feedback abgeben können.