Office: (Office 2016) Spalte in einer Tabelle suchen

Hallo, ich würde gerne in VBA eine Tabelle nach einer Spalte suchen, also ob eine bestimmte Spalte in einer Tabelle enthalten ist.

Dazu habe ich folgenden Code geschrieben.
Aber da taucht ein Problem auf wenn ich in der Funktion

Spalte = rs.Field(i).Name

vergleiche, ich nehme an da stimmt was mit dem Datentyp nicht.


------------------------------------------------------------------------------
Public Sub Spalte_Click()

Dim i As Integer
Dim rs As DAO.RecordSet


Set rs = CurrentDb.OpenRecordset("Tabelle", dbOpenSnapshot)

If SpalteNichtEnthalten("TEST") Then
MsgBox "Nicht Drinne"
End If

End Sub


Public Function SpalteNichtEnthalten(Spalte As String) As Boolean
Dim rueckgabe As Boolean
rueckgabe = True

For i = 0 To rs.Fields.Count - 1
If Spalte = rs.Field(i).Name Then
rueckgabe = False
End If
Next

SpalteNichtEnthalten = rueckgabe
End Function
------------------------------------------------------------------------
Da taucht immer der Fehler '424'
Objekt erforderlich

:)

 

Hallo,

besser du suchst an der "richtigen" Stelle, sprich den Metadaten, z.B. den DAO.Tabledefs und der Fields-Auflistung.

Ulrich

 

Hallo Ulrich,

Ich bin recht neu in VBA, was für ein Fehler habe ich den da gemacht ?

Also die Tabelle ist enthalten ich habe davor auch von der tabelle die spalten mittels MsgBox ausgegeben das hatte auch geklappt aber sobald ich das mit dem vergleich
-----------------------------------------
If Spalte = rs.Field(i).Name Then
rueckgabe = False
End If
---------------------------------------------
gemacht habe kam das problem.

 

Sollte es nicht rs.Fields(i).Name heißen?

 

Hallo,

neben dem, was Jan schon gezeigt hat (der Tippfehler mit fields), ist es nicht unbedingt nötig, extra dafür ein Recordset zu öffnen, daß man übrigens nach Gebrauch auch wieder schließen sollte!!!

Wenn ein Recordset schon geöffnet ist, könnte so eine Funktion verwendet werden:
Code:

ansonsten würde ein Zugriff auf die Tabledefs schon reichen:
Code:

Gruß Ulrich

 

\@blabuduwnmdjdsjajsus
Eine Lösung wurde dir ja inzwischen gezeigt. Ich möchte dir aber noch erklären,
was an deinem Code nicht stimmt bzw. woher die Fehlermeldung kommt.
Code:

Dieses Recordset ist lokal, und daher nur in der Prozedur "Public Sub Spalte_Click()"
bekannt. Wenn diese Prozedur durchgelaufen ist, gibt es keine Variable "rs" mehr.
Wenn du dieses RS in der aufgerufenen Prozedur "SpalteNichtEnthalten" verwenden
willst, musst du es als Parameter übergeben
Code:

und dann
Code:

Und dann noch

Code:

gruss ekkehard

 

\@ekkehard:
Hatte ich doch glatt übersehen... Gut, daß immer mehrere hier mitlesen.

Grüße Ulrich

 

Hallo,
trotz der Lösung, stellt sich die Frage wozu man das braucht ?
Die Feldnamen einer Tabelle sind doch relativ bedeutungslos, auf den Inhalt kommt es an.

Solche Notwendigkeiten lassen oftmals ein nicht so optimales Datenmodell vermuten.

 

Autsch. Inhalte adressiert man über Namen von Feldern, Tabellen ...

Die Feldexistenz würde man z.B. prüfen, wenn man Strukturänderungen am Backend vornimmt => immer erst prüfen, dann handeln. Dort bietet es sich wie schon gesagt an, direkt die Tabellendefinition und deren Feldauflistung zu verwenden.

Hat man verknüpfte Tabellen und muss sich vergewissern, wie die Feldnamen lauten, weil Originalname in der Herkunftstabelle und interpretierter Name in der verknüpften Tabelle nicht identisch sind, kann man sich auch eines Recordsets bedienen, bei Nur-Prüfung gerne mit einem leeren Recordset, denn für die Namensermittlung braucht man die hunderttausende Datensätze und deren Laden nicht.

 

\@NeuerMann1978:

Eberhard hat ja schon ein paar Punkte angeführt, warum das nicht so ist.
Hinzu kommen auch noch spezielle Softwaretechniken, wo z.B. dynamisch Filter generiert werden, Steuerelement, welche per Wrapperklassen zusätzliche Funktionalitäten erhalten oder z.B. generische Klassen, welche Workflows und andere Modelle implementieren.
Also Anwendungensfälle für solche Notwendigkeiten gibts viele.

Gruß Ulrich

 

Hallo,

das ist mir durchaus bewusst. Das meinte ich auch nicht.
Im Prinzip könnte ich ja statt Vorname, Nachname, Ort auch Feld1, Feld2, Feld3 schreiben. Dass das wenig sinnvoll ist mir klar, aber funktionieren würde es.
Das meinte ich mit bedeutungslos.

Mir ist auch klar, dass es Fälle gibt wo man das braucht bzw. brauchen kann.

Daher wollte ich ja wissen wozu er das braucht.
Und schließlich habe ich ja auch selbst relativiert und zum Ausdruck gebracht, dass es eine Vermutung ist.

 

Hallo danke für die Beiträge die haben mir geholfen einiges zu Verstehen, z.B. das ich ein Record wieder beenden muss.

@ekkehard
und das man die Variable rs der funktion übergeben muss, ich dachte das er das ganz normal erkennt so wie beim klassichen programmieren (c++,c# usw)

ach und wofür ich es brauche, ich will mittels ein Button klick mehrere vordefinierte spalten in eine Tabelle einfügen und dafür muss ich vorher gucken ob eine der Spalten schon enthalten ist. denn wenn sie enthalten ist nehmen ich das raus aus dem sql befehl die ich mir im code erstelle, je nachdem welche spalten schon enthalten sind.

 

Hallo,

Wie vermutet, scheint doch ein fragwürdiges Datenmodell vorzuliegen.
Was sind denn das für Spalten (Inhalt?) die da eingefügt werden müssen ?

 

das sind Tabellen für Schaltschränke und die sollen eben immer die selben spalten haben, und mittels solch ein Button soll das auch geschehen.

fragwürdig ist es dann vielleicht für dich

das spart dann halt zeit, wenn man nicht jedesmal die Tabelle nach den Spalten überprüfen muss die neu dazukommen.

 

Das heißt dann ...

- dass es pro Schaltschrank eine eigene Tabelle gibt, wobei die Tabellen strukturgleich sind?
- hinzukommende Tabellenspalten "fallen vom Himmel"? Eine Verwendung/Verarbeitung von solchen bisher unbekannten Feldern fällt gleich mit vom Himmel oder ist bereits taktisch voll ausprogrammiert?