Supportnet / Forum / Datenbanken

Tach zusammen, ich versuche aus dem Feldinhalt einer Tabelle ein Verzeichnis auf meiner FP erstellen. Dazu hab ich den Befehl MKDIR in VBA gefunden. Der angefügte Code, den ich im Inet gefunden habe, will aber nicht funktionieren: ################################################# Function VerzErstellen() Dim db As dao.Database Dim rs As dao.Recordset Dim strDir As String Set db = DBEngine(0)(0) Set rs = db.OpenRecordSet("SELECT Feld1 from Tabelle1") While Not rs.EOF strDir = "C:\" & Nz(rs!Verzeichnis, vbNullString) <-! MkDir strDir rs.MoveNext Wend Set rs = Nothing Set db = Nothing End Function ################################################# An der markierten Stelle stimmt was nich. Nur was?

Hallo
Woher soll Access das Feld "Verzeichnis" kennen??:

Set rs = db.OpenRecordSet("SELECT Feld1, Verzeichnis from Tabelle1")

While Not rs.EOF
strDir = "C:\" & Nz(rs!Verzeichnis, vbNullString) <-!

oder

Set rs = db.OpenRecordSet("SELECT Feld1 from Tabelle1")

While Not rs.EOF
strDir = "C:\" & Nz(rs!Feld1 , vbNullString) <-!

Gruß piano

_{Es wäre nett, wenn Du ein Feedback abgeben könntest,}
^{ob der Lösungsvorschlag Dein Problem gelöst hat.}

badankt!

Ich glaub ich muß mal meine Brille putzen! ;)