Avatar billede hnto Nybegynder
23. juli 2003 - 17:48 Der er 2 kommentarer og
1 løsning

VBA i access 97 hurtigt svar ønskes

jeg har et script :

Function kopier_billeder()
Dim db As Database
Dim rs As DAO.Recordset
Dim StartFolder As String


StartFolder = "d:\billeder\"

Set db = CurrentDb
Set rs = db.OpenRecordset("test", dbOpenSnapshot)
rs.MoveFirst
       
Do Until rs.EOF

        FileCopy StartFolder & rs![Navn], rs![sti] & rs![Navn]
        rs.MoveNext
Loop

rs.Close
Set rs = Nothing
db.Close
MsgBox "Data er nu kopieret"
End Function


Jeg får dog en fejl i linien :
FileCopy StartFolder & rs![Navn], rs![sti] & rs![Navn]
hvor den skriver "path not found"

rs![sti] = d:\billeder_1\siemens\

hvad gør jeg forkert idet folderen findes ???
Avatar billede overchord Nybegynder
23. juli 2003 - 18:11 #1
Proev at lave en sti i loopet:

strDestination = rs![sti} & rs![navn]

- indsaet toggle point og se om den sammensaetter navnet korrekt
Avatar billede hnto Nybegynder
23. juli 2003 - 18:26 #2
JEG STORE IDIOT ?!?!?!?!?!?...

Havde stirret mig blind på en stavefejl.. GGRRRRRRR....

billeder_1 hed i oprigtigt billede_1
Avatar billede overchord Nybegynder
24. juli 2003 - 00:41 #3
lol
Avatar billede Ny bruger Nybegynder

Din løsning...

Tilladte BB-code-tags: [b]fed[/b] [i]kursiv[/i] [u]understreget[/u] Web- og emailadresser omdannes automatisk til links. Der sættes "nofollow" på alle links.

Loading billede Opret Preview
Kategori
Dyk ned i databasernes verden på et af vores praksisnære Access-kurser

Log ind eller opret profil

Hov!

For at kunne deltage på Computerworld Eksperten skal du være logget ind.

Det er heldigvis nemt at oprette en bruger: Det tager to minutter og du kan vælge at bruge enten e-mail, Facebook eller Google som login.

Du kan også logge ind via nedenstående tjenester