Felder in Datenbank verschieben (DAO) Über die OrdinalPosition-Eigenschaft des DAO-Feldes lässt sich das Feld beliebig verschieben.
Autor:   Dieter Otter	Bewertung:     [ Jetzt bewerten ]	Views:  14.039
https://www.tools4vb.com	System:  Win9x, WinNT, Win2k, WinXP, Win7, Win8, Win10, Win11	kein Beispielprojekt

Geben Sie hier Ihre persönliche Bewertung ab! Anzahl Bewertungen bisher: 12 Bewertung insgesamt: gut Durchschnittliche Bewertung: 4.4 von 5 Sternen

sehr gut     gut     nützlich     mittelmäßig     mangelhaft

Nehmen wir an, in der Tabelle der Acccess-Datenbank befinden sich an den ersten beiden Stellen zwei Felder, die nicht von sehr großer Bedeutung sind. Jetzt würden Sie gerne diese beiden Felder an das Ende der Feldauflistung der Tabelle verschieben.

Das ganze lässt sich über die OrdinalPosition-Eigenschaft der Felder bewerkstelligen.

Hierzu legen Sie für das betroffene Feld dann einfach die neue gewünschte Position fest. Achtung! Die Zählung beginnt bei 0.

Beispiel:
Das nachfolgende Beispiel zeigt, wie sich die ersten beiden Felder einer Tabelle an das Ende der Feldauflistung verschieben lassen.

Dim Db As Database 
Dim nCount As Integer 
 
' Datenbank öffnen
Set Db = DBEngine.OpenDatabase("Datenbank.mdb") 
 
' Tabellendefinition
With Db.TableDefs("Tabellenname") 
  ' Anzahl Felder insgesamt
  nCount = .Fields.Count 
 
  ' OrdinalPosition der beiden ersten Felder "hochsetzen"
  .Fields(1).OrdinalPosition = nCount 
  .Fields(0).OrdinalPosition = nCount 
End With
 
' Datenbank schließen 
Db.Close