Anzeige eines Wertes im Formular aus einer for next Schleife

19/02/2010 - 10:13 von Michael Waffenschmidt | Report spam
Hallo NG,
ich habe hier einen hübschen Code mit dem ich meine Datenbank in einer
Textdatei schreibe ...
For x = 0 To db.TableDefs.Count - 1
erg = erg & db.TableDefs(x).Name & vbCrLf
For y = 0 To CurrentDb.TableDefs(x).Fields.Count - 1
erg = erg & " - " & _
CurrentDb.TableDefs(x).Fields(y).Name & " " & _
CurrentDb.TableDefs(x).Fields(y).Type & " " & _
CurrentDb.TableDefs(x).Fields(y).Size & _
vbCrLf
'Dateinamen anzeigen
Me.Text_Statuszeile CurrentDb.TableDefs(x).Fields(y).Name

Next
erg = erg & vbCrLf
Next

Mein Problem:
Ich rufe die Funktion aus einem Formular auf.
In diesem Formular befindet sich das Feld "Me.Text_Statuszeile " in
diesem sollen die Dateiname
agezeigt werden beim durchlaufen der For Next Schleife ... geht aber
nicht ...
Was mache ich falsch ? Geht es überhaupt ?
 

Lesen sie die antworten

#1 Karl Donaubauer
19/02/2010 - 10:24 | Warnen spam
Michael Waffenschmidt wrote:
Hallo NG,
ich habe hier einen hübschen Code mit dem ich meine Datenbank in
einer Textdatei schreibe ...
For x = 0 To db.TableDefs.Count - 1
erg = erg & db.TableDefs(x).Name & vbCrLf
For y = 0 To CurrentDb.TableDefs(x).Fields.Count - 1
erg = erg & " - " & _
CurrentDb.TableDefs(x).Fields(y).Name & " " & _
CurrentDb.TableDefs(x).Fields(y).Type & " " & _
CurrentDb.TableDefs(x).Fields(y).Size & _
vbCrLf
'Dateinamen anzeigen



DoEvents

Me.Text_Statuszeile > CurrentDb.TableDefs(x).Fields(y).Name

Next
erg = erg & vbCrLf
Next

Mein Problem:
Ich rufe die Funktion aus einem Formular auf.
In diesem Formular befindet sich das Feld "Me.Text_Statuszeile " in
diesem sollen die Dateiname
agezeigt werden beim durchlaufen der For Next Schleife ... geht aber
nicht ...
Was mache ich falsch ? Geht es überhaupt ?



Ich glaube zwar nicht, dass du - ob der Geschwindigkeit - viel lesen
können wirst, aber s.o.

Außerdem solltest du alle CurrentDb da oben durch db ersetzen.
Eine solche Datenbank-Variable hast du doch schon in den
ersten Zeilen in Verwendung.

Servus
Karl
****************
Access-FAQ: http://www.donkarl.com /// http://www.donkarl.com?NEK
.NET-Entwickler-Konferenz für Accessler 27./28.2. + 20./21.3.2010

Ähnliche fragen