chrislm
Aug 08, 2013
view2132
view7
0
Goto Top

Access Spalte auslesen und Batch erstellen

GermanQuestionMicrosoft OfficeMicrosoft
Hallo.
ich möchte aus einer Spalte eine Batchdatei erstellen um schneller Bilder kopieren zu können.
ungefähr so hatte ich mir das gedacht:

Option Compare Database



Public Function bildercopy()
      Dim dbs As Database
   Dim rst As Recordset
   Dim merken1

      Set oFile = fso.OpenTextFile("C:\bilder.bat", 8, True)  
   Set dbs = CurrentDb
   Set rst = dbs.OpenRecordset("bilder abfrage", dbOpenDynaset)  
Set fso = CreateObject("Scripting.FileSystemObject")  

   With rst
        If .RecordCount > 0 Then

            
            .MoveLast
            .MoveFirst
            
            While Not .EOF

               
               merken1 = !Bilder

               
                   oFile.WriteLine "xcopy y:*" & merken1 & "* /s"  
                  
               .MoveNext
            Wend
        
        End If
        
   End With
   rst.Close
   
End Function

Leider bekomme ich einen Fehler: Objekt erforderlich (Fehler 424)
comment-contentCommentShareShare
Share on Facebook Share on Twitter Share on Reddit Share on Linkedin

Content-Key: 213741

Url: https://administrator.de/contentid/213741

Printed on: April 16, 2024 at 10:04 o'clock

7 Comments
Latest comment
Goto Top
Member: bastla
bastla Aug 08, 2013 updated at 12:35:26 (UTC)
Goto Top
Hallo chrislm!

Ob der Fehler sich wohl auf die Zeile 10 bezieht? Ich würde auf jeden Fall die Zeile 13 vor der Zeile 10 platzieren ...

BTW: Wenn Du schon Variablen per "Dim" deklarierst, dann aber gleich richtig und konsequent mit einem "Option Explicit" in Zeile 2 und Deklaration aller Variablen (also auch "fso" und "oFile").

Grüße
bastla
Member: chrislm
chrislm Aug 08, 2013 updated at 12:46:12 (UTC)
Goto Top
hallo und danke für die schnelle Antwort.
Also ich habe die Zeilen getauscht und bekomme nun einen Laufzeitfehler 3061
Wenn ich die Option Explicit in Zeile 2 setze, dann meckert er: Variable nicht definiert
und markiert mir diese Zeile:
Set fso = CreateObject("Scripting.FileSystemObject")
Member: bastla
bastla Aug 08, 2013 at 12:51:22 (UTC)
Goto Top
Hallo chrislm!
dann meckert er: Variable nicht definiert
Genau das ist auch der Sinn der Aktion - Du sollst vorweg alle Variablen deklarieren (hatte ich das erwähnt? face-wink) , daher eben auch noch
Dim fso As Object
Dim oFile As Object
Wenn Du dann noch diese Fehlermeldung erhältst, kann es sich nur um eine Variable handeln, die falsch geschrieben ist - so findest Du solche Tippfehler leichter ...

Grüße
bastla
Member: chrislm
chrislm Aug 08, 2013 at 13:01:46 (UTC)
Goto Top
das wäre schon mal soweit OK. Aber einen Laufzeitfehler 3061 habe ich leider immer noch, nun hier:
Set rst = dbs.OpenRecordset("bilder abfrage", dbOpenDynaset)
Member: bastla
bastla Aug 08, 2013 updated at 13:07:39 (UTC)
Goto Top
Hallo chrislm!

Dazu kann ich leider nix sagen ... face-sad

Grüße
bastla
Member: chrislm
chrislm Aug 08, 2013 at 13:39:56 (UTC)
Goto Top
Bin wieder etwas weiter. Der Fehler lag in der Abfrage, dort hatte ich im Datum noch eine Eingrenzung in Datum versehen und das wollte er wohl in dieser Form so nicht. Nun habe ich aber in der Zeile ein Laufzeitfehler 13 Typen unverträglich.
Member: chrislm
chrislm Aug 08, 2013 at 13:48:50 (UTC)
Goto Top
Ich habs...

Dim rst As DAO.Recordset
da lag das Problem
es muss noch als DAO deklariert werden...

Dennoch vielen Dank.
GermanQuestionMicrosoft OfficeMicrosoft