Freigeben über

Screen.ActiveDatasheet-Eigenschaft (Access)

  • Artikel

Verwenden Sie die ActiveDatasheet-Eigenschaft zusammen mit dem Screen-Objekt , um das Datenblatt zu identifizieren oder darauf zu verweisen, das den Fokus hat. Schreibgeschütztes Form-Objekt.

Syntax

Ausdruck. ActiveDatasheet

Ausdruck Eine Variable, die ein Screen-Objekt darstellt.

Hinweise

Die Einstellung der ActiveDatasheet-Eigenschaft enthält das Datenblattobjekt, das zur Laufzeit den Fokus besitzt.

Verwenden Sie diese Eigenschaft, um auf ein aktives Datenblatt zusammen mit einer seiner Eigenschaften oder Methoden zu verweisen. Der folgende Code z. B. verwendet die ActiveDatasheetActiveDatasheet-Eigenschaft, um auf die oberste Zeile der Auswahl zu verweisen, die im aktiven Datenblatt wirksam ist.

TopRow = Screen.ActiveDatasheet.SelTop

Beispiel

Das folgende Beispiel verwendet die ActiveDatasheetActiveDatasheet-Eigenschaft, um die Datenblattzelle zu ermitteln, die den Fokus hat. Sind mehrere Zellen markiert, ermittelt die Prozedur die Position der Zelle, in der sich die erste Zeile und die erste Spalte der Auswahl kreuzen.

Public Sub GetSelection() 
 ' This procedure demonstrates how to get a pointer to the 
 ' current active datasheet. 
 
 Dim objDatasheet As Object 
 Dim lngFirstRow As Long 
 Dim lngFirstColumn As Long 
 Const conNoActiveDatasheet = 2484 
 
 On Error GoTo GetSelection_Err 
 
 Set objDatasheet = Screen.ActiveDatasheet 
 
 lngFirstRow = objDatasheet.SelTop 
 lngFirstColumn = objDatasheet.SelLeft 
 MsgBox "The first item in this selection is located at " & _ 
 "Row " & lngFirstRow & ", Column " & _ 
 lngFirstColumn, vbInformation 
 
GetSelection_Bye: 
 Exit Sub 
GetSelection_Err: 
 If Err = conNoActiveDatasheet Then 
 MsgBox "No data sheet is active.", vbExclamation 
 Resume GetSelection_Bye 
 End If 
End Sub

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.