Bilder laut Tabelleneintrag kopieren oder verschieben

[JoergAT]

Hallo,
vielleicht kann mir jemand Helfen. Ich habe folgendes Problem.

Ich möchte gerne über einen Button diese Bilder (siehe Bild), die in dieser Tabelle stehen von Ihrem alten Ordner "Ist" in den neuen Ordner "Soll" kopieren oder verschieben je nachdem was gewählt (Aktionsart)wurde.

Wer kann mir hier weiterhelfen?
Das wäre super :-)

Ich benötige den vba Code für meinen Button

Danke schon mal im voraus.
Gruß Jörg

Datei zum download: http://regional-meine-wahl.de/DatenKopieren.accdb

Bild als pdf: http://regional-meine-wahl.de/Ansicht.pdf

[Beaker s.a.]

Hallo Jörg,
Externe Links sind hier nicht gerne gesehen. Ich öffne sie gar
nicht mehr.
Packe beide Dateien in ein zip-Archiv und lade es direkt hier
im Forum hoch, - siehe "Attachments and other options"
gruss ekkehard

[JoergAT]

OK, danke
bin neu hier muss mich erst einfinden ;-)

[JoergAT]

Aha gefunden

[Beaker s.a.]

Hallo Jörg,
Nur ganz kurz, muss jetzt weg
Luftcode:

Code [Auswählen] Erweitern

Dim sCopyMove As String
Dim rst As DAO.Recordset
'Recordset erstellen mit DS-Herkunft wie UFo
'per Schleife
While Not rst.EOF
    sCopyMove = rst.DatenpfadIst & rst.DatenbildIst & " " & rst.DatenpfadSoll & rst.DatenbildSoll
    Select Case rst.AktionsArt
    Case "Bild Kopieren"  'ein Schlüssel (1, 2, ...) wäre hier besser
        Copy sCopyMove
    Case "Bild verschieben"
        Name sCopyMove
    End Select
LoopKann sein, dass in dem/um den String noch " fehlen.

gruss ekkehard

[JoergAT]

Hallo ekkehard,

habe deinen Code getestet und auch so weit ich kann abgeändert, so das die Fehlermeldungen vielleicht verschwinden.

Leider ohne Erfolg.

Könntest du da nochmal drüber schauen?

Wäre super :-)

Danke Gruß Jörg

[Beaker s.a.]

Könntest du da nochmal drüber schauen?

Wo?
Hast die Anlage im OP getauscht?
Am Einfachsten du lädst die DB mal hier hoch, da muss ich nicht alles
nachbauen.

[JoergAT]

Könntest du da nochmal drüber schauen?

Wo?
Hast die Anlage im OP getauscht?
Am Einfachsten du lädst die DB mal hier hoch, da muss ich nicht alles
nachbauen.

Die Datenbank befindet sich in der zip Datei (Ansicht.zip) in der Fragestellung.

Danke für die Mühe

[Beaker s.a.]

Hallo Jörg,
Hier der Code für den Button (Fehlerbehandlung fehlt noch)

Code [Auswählen] Erweitern

Private Sub btoListeBearbeiten_Click()

    Dim sQuelle As String
    Dim sZiel As String
    Dim rst As DAO.Recordset
   
    Set rst = Me.ufcDatenbilderKopieren.Form.Recordset

    With rst
        .MoveFirst
        Do While Not .EOF
            sQuelle = .Fields(1) & .Fields(2) & " "
            sZiel = .Fields(3) & .Fields(4)
            Select Case .Fields(5)
            Case 0
                FileCopy sQuelle, sZiel
            Case 1
              Name sQuelle As sZiel
            End Select
            .Edit
                .Fields(6) = True
            .Update
            .MoveNext
        Loop
    End With
   
Set rst = Nothing

End Sub
gruss ekkehard

[JoergAT]

Hallo ekkehard, danke für deine Mühe, aber ich bekomme es nicht zum laufen.

Code habe ich wie folgt abgeändert.

    Dim sQuelle As String
    Dim sZiel As String
    Dim rst As DAO.Recordset
   
    Set rst = Me.ufcDatenbilderKopieren.Form.Recordset

    With rst
        .MoveFirst
        Do While Not .EOF
            sQuelle = .txtDatenpfadIst & .txtDatenbildIst & " "
            sZiel = .txtDatenpfadSoll & .txtDatenbildSoll
           
            Select Case .txtAktionsart
                Case 0
                 FileCopy sQuelle, sZiel
                   
                Case 1
                 Name sQuelle As sZiel
             
            End Select
            .Edit
                .txterledigt = True
            .Update
            .MoveNext
        Loop
    End With
   
Set rst = Nothing

Was ist da noch falsch?
Danke Gruß Jörg

[ebs17]

Code [Auswählen] Erweitern

    With rst
        .MoveFirst
        Do While Not .EOF
            ' sQuelle = .txtDatenpfadIst & .txtDatenbildIst & " "
            sQuelle = .Fields("txtDatenpfadIst") & .Fields("txtDatenbildIst") & " "
           
            ' oder schlechter
            ' sQuelle = !txtDatenpfadIst & !txtDatenbildIst & " "
(Syntax ist nicht beliebig.)

[JoergAT]

Top, vielen vielen Dank das funzt super.



Gruß Jörg

Hier nochmal zum download