Supportnet / Forum / Datenbanken
Tabellen-Entwurfssicht Access
Frage
Hallo Leute!
Kann man per VB in eine Entwurfssicht von Tabellen hineingehen und Feldnamen ändern?
Oder kann man alternativ per VB die Feldnamen auslesen?
Dicker
Antwort 1 von piano
Hallo
Sieh Dir diesen Code an:
[Code]Public Sub TabFelder()
Dim db As Database
Dim td As TableDef
Dim fld As Field
Set db = CurrentDb
Set td = db.TableDefs("Personen")
For Each fld In td.Fields
MsgBox (fld.Name)
Next fld
End Sub
[/Code]
So kannst Du Feldnamen auslesen.
oder auch (um den Feldindex zu erhalten:
[Code]
Public Sub TabFelder1()
Dim db As Database
Dim td As TableDef
Dim fld As String
Dim i As Integer
Set db = CurrentDb
Set td = db.TableDefs("Personen")
Debug.Print td.Fields.Count
For i = 0 To td.Fields.Count - 1
fld = td.Fields(i).Name
Debug.Print fld & " " & i
Next i
End Sub
[/Code]
Gruß piano
Es wäre nett, wenn Du ein Feedback abgeben könntest,
ob der Lösungsvorschlag Dein Problem gelöst hat.
- probieren geht über studieren -
Sieh Dir diesen Code an:
[Code]Public Sub TabFelder()
Dim db As Database
Dim td As TableDef
Dim fld As Field
Set db = CurrentDb
Set td = db.TableDefs("Personen")
For Each fld In td.Fields
MsgBox (fld.Name)
Next fld
End Sub
[/Code]
So kannst Du Feldnamen auslesen.
oder auch (um den Feldindex zu erhalten:
[Code]
Public Sub TabFelder1()
Dim db As Database
Dim td As TableDef
Dim fld As String
Dim i As Integer
Set db = CurrentDb
Set td = db.TableDefs("Personen")
Debug.Print td.Fields.Count
For i = 0 To td.Fields.Count - 1
fld = td.Fields(i).Name
Debug.Print fld & " " & i
Next i
End Sub
[/Code]
Gruß piano
Es wäre nett, wenn Du ein Feedback abgeben könntest,
ob der Lösungsvorschlag Dein Problem gelöst hat.
- probieren geht über studieren -