Office: (Office 2003) Tabellen Feldtyp mit VBA auslesen

HZ006 · 14. Juli 2008

Hallo
ich habe 2 Fragen.

1, Kann ich mit VBA den Feldtyp (Text, zahl(autowert),Datum)eins Tabellefeld mit VBA auslesen (nur Tabelle und Feldname bekannt) ?
wenn Ja Wie ?

2. Kann ich mit VBA feststellen welches Feld Der Primärschlüssel einer Tabelle ist (oder Datenherkunft im Formular könnte ja auch eine Abfrage oder SQL sein) und welcher Feldtyp der Primärschlüssel hat (wie oben, wenn ich den Feldname habe).

ich habe eine Routine wo ich das immer Anpassen muss und das währe einfacher wenn ich das Aus lesen könnte.

Grüsse zu später Stunde
HZ006

:)

Josef P. · 16. Juli 2008

Den Datentyp kannst du aus den Eigenschaften eines TableDef- oder Recordset-Feldes auslesen. (mit DAO oder ADO)

Den Primärschlüssel erhältst du über die Index-Auflistung (TableDef.Indexes). Beachte aber, dass ein PK durchaus auch aus mehreren Feldern bestehen kann.

HZ006 · 17. Juli 2008

Hallo
@josef
Danke für Dein Typ, doch er hat mich nicht weiter gebracht *frown.gif*

hier einer meiner Versuche:
Code:

Public Function t1()
Dim dbs As Database
Dim tdf As TableDef
Dim RST As Recordset
Set dbs = CurrentDb
Debug.Print dbs.TableDefs("TblPK").Name
' Debug.Print dbs.TableDefs("TblPK").Fields
' Debug.Print dbs.TableDefs("TblPK").Indexes
End Function
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

Fields und Indexes geben beim ausfüren "ungültiges Argument" !!!

Wie muss ich das anstellen ??????? kannst Du und willst Du mir noch Weiter Helfen ?

Atrus2711 · 17. Juli 2008

Hi,

klar: das sind ja auch Auflistungen. Es gibt den (einen) Namen für die Tabelle, aber die hat mehrere (!) Felder (Fields) und Indizes (Indexes).

Die Fields und Indexes musst du also einzeln durchlaufen (For Each).

Code:

Public Function t1()
Dim dbs As Database
Dim tdf As TableDef
dim fld as Field
Set dbs = CurrentDb
Debug.Print dbs.TableDefs("TblPK").Name
For Each fld in dbs.TableDefs("TblPK").Fields
Debug.print fld.name, fld.type
Next fld
'Indizes analog.
End Function
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

HTH

Josef P. · 17. Juli 2008

Fields und Indexes geben beim ausfüren "ungültiges Argument" !!!
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

Beim Ausführen von
Code:

Debug.Print dbs.TableDefs("TblPK").Indexes
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

glaube ich das sofort. *Smilie

Die Hilfe dazu hast du schon gelesen?

[OT]
Code:

Dim RST As Recordset
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

Ich kann dir nur empfehlen, eine vollständige Deklaration zu verwenden, damit die Art des Recordset bekannt ist.
Code:

Dim RST As DAO.Recordset
'vs.
Dim RST As ADODB.Recordset
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

ebs17 · 17. Juli 2008

Ich fahre mit dieser Funktionszusammenstellung recht gut:
Strukturänderungen an der Datenbank

Etwas irritiert mich aber an Deiner Fragestellung: Bastelt noch jemand anders außer Dir an der Struktur?
Normalerweise ist doch eine Änderung eine Einbahnstraße: Prüfen ob notwenig, dann ausführen. Die Ausgangssituation sollte man doch kennen.

HZ006 · 18. Juli 2008

Hallo
@Eberhard
ich will keine Strucktur änderun ich will nur wissen wie das Feld heist welches der index ist hat.

Das mit den Felder geht so dank an alle die geholfen haben

Code:

Public Function t1()
Dim dbs As DAO.Database
Dim tdf As DAO.TableDef
Dim fld As Field
Set dbs = CurrentDb
' Debug.Print dbs.TableDefs("TblPK").Name
For Each fld In dbs.TableDefs("TblPK").Fields
Debug.Print fld.Name, fld.Type; fld.Attributes
Next fld
End Function
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

feld Funktioniert Soweit

nur findet man irgend wo Was die zahlen Beim Typ Bedeutet
was ich fest gestelt habe 1 = J/N / 2 = Byte /3 = Integer / 4 = Long und Auto / 10 = String ???

Was Bedeutet Attributes ??

ist das dass Atrributes 17 Index ist ?????

Was überhaupt noch nicht Funktioniert *frown.gif*
und eigendlich für mich wichtig ist das ich weiss welches Feld den Index so das ich Speter weiss nach welchem Feld ich suchen muss

Code:

Public Function t2()
Dim dbs As DAO.Database
Dim tdf As DAO.TableDef
Dim fld As DAO.Field
Dim idxLoop As DAO.Index

Set dbs = CurrentDb
Debug.Print dbs.TableDefs("TblPK").Name
' For Each fld In dbs.TableDefs("TblPK").Indexes
' Debug.Print fld.Name, fld.Type
' Next fld
' Debug.Print dbs.TableDefs("TblPK").Indexes
For Each idxLoop In dbs.TableDefs.Index
Debug.Print " " & idxLoop.Name
Next idxLoop
End Function
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

Indexes und Index gibt Problebe

suche immer noch nach einer Lösung

Arne Dieckmann · 18. Juli 2008

Du könntest den Code aus TabToWeb klauen (erlaube ich dir *wink.gif*) oder das Tool direkt einsetzen. Link findest du in meiner Signatur.

Anne Berg · 18. Juli 2008

Du könntest aber auch einfach mal versuchen zu verstehen, was du da machst. Und in der Access-Hilfe nachlesen, wie man mit den Objekten und ihren Eigenschaften und Methoden umgeht. Abgeschriebener Code, den du nicht verstehst, nützt dir nicht wirklich viel.

Code:
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

For Each idxLoop In dbs.TableDefs.Index
Debug.Print " " & idxLoop.Name
Next idxLoop
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

Das ist in mehrfacher Hinsicht falsch, weil du nicht nach dem Index einer bestimmten Tabelle fragst und weil du nicht über die Indexes-Auflistung gehst. Die Zusammenhänge wurden aber doch bereits erläutert.
Richtig wäre Code:

For Each idxLoop in dbs.TableDefs("tabname").Indexes
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

HZ006 · 20. Juli 2008

Hallo
DANKE an alle

@anne
Konnte mit deinem Vorschlag meine Lösung Bastel *Smilie Danke

Code:

Public Function GFT(TabName As String, FeldName As String) As Integer
Dim dbs As DAO.Database
Dim fld As DAO.Field
Set dbs = CurrentDb
For Each fld In dbs.TableDefs(TabName).Fields
If fld.Name = FeldName Then
GFT = fld.Type
' typ 4 zahl
End If
Next fld
If Not dbs Is Nothing Then Set dbs = Nothing
If Not fld Is Nothing Then Set fld = Nothing
End Function
Public Function GPS(TabName As String) As String
Dim dbs As DAO.Database
Dim idxLoop As DAO.Index
Set dbs = CurrentDb
For Each idxLoop In dbs.TableDefs(TabName).Indexes
If idxLoop.Primary Then
GPS = Replace(idxLoop.Fields, "+", "")
If Len(GPS) > InStr(1, GPS, ";") And InStr(1, GPS, ";") > 1 Then
GPS = Left$(GPS, InStr(1, GPS, ";") - 1)
End If
End If
Next
If Not dbs Is Nothing Then Set dbs = Nothing
If Not idxLoop Is Nothing Then Set idxLoop = Nothing
End Function
------------------------------------------------------------------------
Function xxx(TN As String)
Dim FNam As String
FNam = Trim$(GPS(TN))
Debug.Print FNam; GFT(TN, FNam)
End Function
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

Resultat von
Call xxx("TblPK")
AW 4

Office: (Office 2003) Tabellen Feldtyp mit VBA auslesen

Tabellen Feldtyp mit VBA auslesen

Tabellen Feldtyp mit VBA auslesen

Tabellen Feldtyp mit VBA auslesen

Tabellen Feldtyp mit VBA auslesen

Tabellen Feldtyp mit VBA auslesen - Similar Threads - Tabellen Feldtyp VBA

Schriftart einer Tabelle im Unterformular verändern

Tabellenränder beim Druck ausblenden

2 Tabellen nach bestimmten Kriterien synchronisieren

Zusammenfassen von Tabellen

Intelligente Tabelle Filter fixieren

Datenübernahme in andere Tabelle ohne Leerzeilen, Anfänger

Intelligente Tabelle mit Suchfeld durchsuchen?