---

Hallo miteinander,

ich möchte gerne in Access 2000 Dateien in einem bestimmten Verzeichnis auswählen und öffnen. Kann mir jemand weiterhelfen?

Gruß Volker

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP

---

Hallo Volker,

bist du ein wenig mit VBA vertraut ?

Wilfried Stelberg

------------------
Warum lisp'eln wenn's auch anders geht.
www.ib-stelberg.de

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP

---

Hallo Wilfried,

ein klein wenig.

Gruß Volker

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP

---

liste.gif

Hallo Volker,

eine Möglichkeit ist es eine Tabelle anzulegen und diese beim Laden des Formulars zu füllen.
Ich habe eine Tabelle tmp_Datei mit dem Feldnamen Dateiname anlegt.
In einem Formular habe ich ein ungebundenes Listenfeld (Liste) eingebunden und als Source die obige Tabelle eingestellt.

Code:

---

Private Sub Form_Load()

    Dim rs As Recordset
    Dim Datei As String
   
    Set rs = New Recordset
    CurrentDb().Execute ("Delete from tmp_Datei")
    rs.Source = "tmp_Datei"
    rs.CursorType = adOpenDynamic
    rs.LockType = adLockOptimistic
    rs.ActiveConnection = CurrentProject.Connection
    rs.Open
   
    Datei = Dir("C:\Temp\*.*")
    While Datei <> ""
        rs.AddNew
        rs.Fields("Dateiname") = Datei
        rs.Update
        Datei = Dir
    Wend
    rs.Close
    Liste.Requery

End Sub

---

Damit hast du die Dateien im Zugriff und kannst per Doppelklick oder Button damit machen was du willst.

Wílfried Stelberg

------------------
Warum lisp'eln wenn's auch anders geht.
www.ib-stelberg.de

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP

---

Hallo Wílfried

ich habe die Prozedur angepasst. Leider bekomme ich immer eine Fehlermeldung in der Zeile Recordset.Source. Die Meldung lautet

Laufzeitfehler "91"
Objektvarialble oder With-Blockvariable nicht festgelegt.

Private Sub Form_Load()

    Dim rs As Recordset
    Dim Datei As String
 
    Rem Set rs = New Recordset
    CurrentDb().Execute ("Delete from tmp_Datei")
    Recordset.Source = "tmp_Datei"
    Recordset.CursorType = adOpenDynamic
    Recordset.LockType = adLockOptimistic
    Recordset.ActiveConnection = CurrentProject.Connection
    Recordset.Open
 
    Datei = Dir("C:\ACAD-Temp\*.*")
    While Datei <> ""
        Recordset.AddNew
        Recordset.Fields("Dateiname") = Datei
        Recordset.Update
        Datei = Dir
    Wend
    Recordset.Close
    Liste.Requery

End Sub[i][/i]

Was ist falsch?

Gruß Volker

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP

---

Hallo Volker,

1. das Wort RECORDSET ist ein reserviertes Schlüsselwort und darf nicht als Objekt- oder Variablenbezeichnung verwendet werden.
2. bevor ein Recordset verwendet werden kann muss eine neue Instanz angelegt werden.
das kann man bei der Deklaration mit: DIM RS as NEW Recordset
oder im Code mit: SET RS = NEW Recordset

Ist so als willst du einen Eimer verwenden. In das Foto passt kein Wasser rein. Erst wenn du dir einen kaufts/baust der so aussieht wie auf dem Foto kannst du was damit machen.

Code:

---

Private Sub Form_Load()

    Dim rs As Recordset
    Dim Datei As String
  
    Set rs = New Recordset
    CurrentDb().Execute ("Delete from tmp_Datei")
    rs.Source = "tmp_Datei"
    rs.CursorType = adOpenDynamic
    rs.LockType = adLockOptimistic
    rs.ActiveConnection = CurrentProject.Connection
    rs.Open
  
    Datei = Dir("C:\ACAD-Temp\*.*")
    While Datei <> ""
        rs.AddNew
        rs.Fields("Dateiname") = Datei
        rs.Update
        Datei = Dir
    Wend
    rs.Close
    Liste.Requery

End Sub

---

versuchs mal so.

Wilfried Stelberg

------------------
Warum lisp'eln wenn's auch anders geht.
www.ib-stelberg.de

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP

---

Hallo Wilfried,

ich habe Probleme mit dem Schlüsselwort "New"

Fehler beim kopilieren Unzulässige Verwendung des Schlüsselworts New

Ich arbeite mit ACCESS 2003. Kann es hieran liegen?

Gruß Volker

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP

---

Hallo Volker,

habs gerade mal an einem anderen Rechner mit 2003 probiert.
Ergänze mal wie unten.
Access 2003 will wohl nicht nur wissen das der Eimer so aussehen soll, sondern das es einer aus Plastik ist 

Code:

---

    Dim rs As ADODB.Recordset
    Dim Datei As String
 
    Set rs = New ADODB.Recordset
...

---

Wilfried Stelberg

------------------
Warum lisp'eln wenn's auch anders geht.
www.ib-stelberg.de

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP

---

Hallo Wilfried,

nun bekomme ich die Fehlermeldung "Laufzeitfehler Objekt erforderlich" und im Debugmodus bleibt der Code in der Zeile Liste.Requery hängen.

Gruß Volker

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP

---

me.gif

Hallo Volker,

Liste steht für den Namen deines Listenfeldes bzw. deines Combofeldes welches du in dein Formular eingefügt hast.

Im Entwurfsmodus kannst du den Namen des Steuerelementes unter Eigenschaften einstellen bzw. nachschauen.

Umganz sicher zu gehen kannst du bei der Eingabe erst das Parentobjekt (me) gefolgt von einem Punkt (me.) eingeben. Dann erscheint im Dropdownfeld der Name des Controls.

Viel Erfolg

Wilfried Stelberg

------------------
Warum lisp'eln wenn's auch anders geht.
www.ib-stelberg.de

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP

---

Hallo Wilfried,

ich bin begeistert. Vielen Dank.

Gruß Volker

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP

---

Hallo Volker,
hab noch was gefunden was eigentlich einfacher ist.
hier noch die Kurzform ohne Tabelle und Recordset (wenn es denn nicht riesige Mengen an Daten sind)

Code:

---

Private Sub Form_Load()

    Dim Dateiliste As String
    Dim Datei As String
   
    Datei = Dir("C:\Temp\*.*")
    While Datei <> ""
        If Dateiliste = "" Then
            Dateiliste = Datei
        Else
            Dateiliste = Dateiliste & ";" & Datei
        End If
        Datei = Dir
    Wend
    ' Wenn nicht in den Eigenschaften eingestellt ist
    'Liste.RowSourceType = "Wertliste"
    Liste.RowSource = Dateiliste

End Sub

---

Wilfried Stelberg

------------------
Warum lisp'eln wenn's auch anders geht.
www.ib-stelberg.de

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP