Office: (Office 2019) Edit und Update

Hallo liebe Gemeinde. Ich beiße mir die Zähne aus und benötige ein wenig Hilfe.
Zunächst der Code:

Code:

Public Sub WriteFilesInTable()

Dim db As DAO.Database
Dim rs, rs1 As DAO.Recordset
Dim strTbl, strTbl2, strPath As String
Dim Ext, strDatei, strArtist, strTitel, strNoten, strSong, strTitel1 As String
Dim fldPfad, fldDatei, fldArtist, fldTitel, fldNoten, fldSong, fldTitel1 As String
Dim Ordner As Variant
Dim SQL As String

'Benutzerauswahl Ordner
Set Ordner = Application.FileDialog(msoFileDialogFolderPicker)
'Ordner ausgewählt?
If Ordner.Show = False Then Exit Sub
'Pfad definieren
strPath = Ordner.SelectedItems(1)

'Welche Tabelle, welche Daten in welche Felder?
strTbl = "tbl_Files_Import"
strTbl2 = "tbl_Files_Edited"

'tbl Felder tbl_Files_Import
fldPfad = "Pfad"
fldDatei = "Datei"
fldArtist = "Artist"
fldTitel1 = "Titel1"
fldTitel = "Titel"
fldNoten = "Noten"
fldSong = "Song"

'tbl_Files_Import und tbl_Files_Edited Inhalt löschen
DoCmd.SetWarnings False 'Ausschalten der Meldungen
DoCmd.RunSQL "DELETE * from tbl_Files_Import;", False 'Löschen aller DS
DoCmd.RunSQL "DELETE * from tbl_Files_Edited;", False 'Löschen aller DS
DoCmd.SetWarnings True 'Einschalten der Meldungen

'öffnen tbl_Files_Import
Set db = CurrentDb
Set rs = db.OpenRecordset(strTbl, dbOpenDynaset)

'auslesen Verzeichnis, Extension 'berechnen'
strDatei = Dir(strPath & "\*.*")
Ext = (Right(strDatei, 3))

'tbl_Files_Import aus Verzeichnis füllen, bis alle Dateien abgearbeitet sind
Do While strDatei <> ""
    rs.AddNew
    rs(fldPfad) = strPath
    rs(fldDatei) = strDatei
    strArtist = Left(strDatei, InStr(1, strDatei, "-") - 2)
    rs(fldArtist) = strArtist
            
    strTitel1 = Mid(strDatei, InStr(1, strDatei, "-") + 2, Len(strDatei) + 1 - InStr(1, strDatei, "-") + 1)
    rs(fldTitel1) = strTitel1
    strTitel = Left(strTitel1, InStr(1, strTitel1, "-") - 2)
    rs(fldTitel) = strTitel
            
    rs.Update
    strDatei = Dir
Loop

'Distinct über tbl_Files_Import, da alle Dateien 2 x (mp3 und pdf)
'und füllen der Tabelle tbl_Files_Edited
    Dim SQL As String
    DoCmd.SetWarnings False 'Ausschalten der Meldungen
    SQL = "SELECT DISTINCT tbl_Files_Import.Pfad, tbl_Files_Import.Artist, tbl_Files_Import.Titel, tbl_Files_Import.Noten, tbl_Files_Import.Song INTO tbl_Files_Edited FROM tbl_Files_Import"
    DoCmd.RunSQL SQL
    DoCmd.SetWarnings True 'Einschalten der Meldungen

'nochmal das gleiche Verzeichnis wie oben auslesen
strDatei = Dir(strPath & "\*.*")

'Tabelle tbl_Files_Edited öffnen
Set rs1 = db.OpenRecordset(strTbl2, dbOpenDynaset)

'tbl_Files_Edited mit Dateien aus Verzeichnis anreichern, bis alle Dateien abgearbeitet sind
Do While strDatei <> ""
    'pdf oder mp3 - nachher wichtig für Zuordnung zum Datensatz
    Ext = (Right(strDatei, 3))
    'Titel aus Datei lesen
    strTitel1 = Mid(strDatei, InStr(1, strDatei, "-") + 2, Len(strDatei) + 1 - InStr(1, strDatei, "-") + 1)
    strTitel = Left(strTitel1, InStr(1, strTitel1, "-") - 2)
            
'Wenn die Datei eine pdf ist, dann gehe in Tabelle tbl_Files_Edited
'suche dort nach dem Titel strTitel, öffne den Satz, packe die Datei dazu
'und mache ein update auf die Tabelle - das gleiche für mp3 unter else
    If Ext = "pdf" Then
        rs1.FindFirst "Titel = 'strTitel'"
        rs1.Edit
        rs1!Noten = strDatei
        rs1.Update
    Else
        rs1.FindFirst "Titel = 'strTitel'"
        rs1.Edit
        rs1!Song = strDatei
        rs1.Update
    End If
    
    'nächste Datei
    strDatei = Dir
Loop

'Recordset schließen
rs.Close
Set rs = Nothing
rs1.Close
Set rs1 = Nothing
Set db = Nothing

    MsgBox "Quellverzeichnis eingelesen."

End Sub

Ziel des Ganzen: Ich habe wechselnde Verzeichnisse mit jeweils nach einem bestimmten Muster benannten Dateien. Interpret - Titel.pdf und Interpret - Titel.mp3. Diese lese ich ein und zum Schluss habe ich ein Formular mit Interpret Titel pdf (=Notenblatt) und mp3 (Song), die ich mit einem jew. follow.me Befehl öffne. Soweit so gut.
In der 2. Loop Schleife öffne ich eine Tabelle und möchte zu den einzelnen Datensätzen jeweils die pdf-Datei bzw. mp3-Datei zuspielen. Das funktioniert nur beim allerersten Datensatz. Warum auch immer. Ich vermute den Fehler im Edit/Update.
Aber vlt. geht das auch nicht? Oder nur ganz anders? Oder sowieso ganz anders?
Ich hoffe, ich konnte es Stand jetzt einigermaßen erklären. Ich habe auch mal meine ganze accdb hochgeladen.

 

Moin,
hast Du den Code mal im Einzelschritt durchlaufen lassen?
(Haltepunkt setzen, Code starten und ab Haltepunkt mit F8 zeilenweise weiter)
Vielleicht kannst Du so erkennen, wo der Code von Deinen Wünschen abweicht.
Gruß
Doming

 

Hallo Domin. Ja, durchaus. Script läuft ja auch durch. Mittlerweile habe ich feststellen können, dass beim
rs1.FindFirst "Titel = 'strTitel'"
der Satz einfach nicht gewechselt oder geschlossen wird oder was auch immer. Script schreibt statt in den gesuchten Satz immer in den ersten Satz. FindNext bringt auch nichts. Im Augenblick experimentiere ich mit einem sql, der den Satz dann updaten soll. Mal sehen, ob der script das dann anders macht.

 

...und seltsam, ja, mit SQLs schreibt er in die Datensätze, bzw. hängt das dran, was dran soll... Warum auch immer. Ich habe das 'Editieren' jetzt wie folgt gelöst:

Code:

'nochmal das gleiche Verzeichnis wie oben auslesen
strDatei = Dir(strPath & "\*.*")

Do While strDatei <> ""
    Ext = (Right(strDatei, 3))
    strTitel1 = Mid(strDatei, InStr(1, strDatei, "-") + 2, Len(strDatei) + 1 - InStr(1, strDatei, "-") + 1)
    strTitel = Left(strTitel1, InStr(1, strTitel1, "-") - 2)
            
    If Ext = "pdf" Then
        sqlTitel = "SELECT * FROM tbl_Files_Edited WHERE Titel='" & strTitel & "'"
        Set rs1 = db.OpenRecordset(sqlTitel)
    
        If Not rs1.EOF Then
            rs1.Edit
            rs1!Noten = strDatei
            rs1.Update
        Else
            MsgBox "Datensatz nicht gefunden!"
        End If
        rs1.Close
  
    Else
        sqlTitel = "SELECT * FROM tbl_Files_Edited WHERE Titel='" & strTitel & "'"
        Set rs1 = db.OpenRecordset(sqlTitel)
    
        If Not rs1.EOF Then
            rs1.Edit
            rs1!Song = strDatei
            rs1.Update
        Else
            MsgBox "Datensatz nicht gefunden!"
        End If
        rs1.Close
    End If
    
    strDatei = Dir
Loop

Set rs = Nothing
Set rs1 = Nothing
Set db = Nothing

    MsgBox "Quellverzeichnis eingelesen."

End Sub

Damit mag er das und dann funktioniert es auch. Access lebt...