dos commando onder "einde"-knop

[JEPEDEWE]

Hallo,

Als ik mij access toepassing wil beëindigen wil ik dat het belangrijkste bestand: data.mdb naar mijn dropbox folder gekopieerd wordt

copy c:\kine\data.mdb c:\dropbox\kine

hoe doe ik dat binnen mijn code?

Bedankt

 

[OctaFish]

Ik denk dat je wel een procedure kunt maken die de db sluit, en vervolgens het copy commando uitvoert.Kijk eens naar het SHELL commando in de help, dan vind je wel een voorbeeldje.

 

[JEPEDEWE]

Ik schreef:

shell (copy "c:\kine\data.mdb" "c:\dropbox\kine")

en kreeg

Compileerfout:
Verwacht: lijstscheidingsteken of )

foutaanduidingen in de code op "c:\kine\data.mdb"

enig idee?

 

[OctaFish]

Je kan ook zoiets proberen:

FileSystemObject.CopyFile "c:\kine\data.mdb", "c:\dropbox\kine"

 

[JEPEDEWE]

ik krijg een fout 424
Object vereist op die lijn...

enig idee?

 

[Ellasar]

Mogelijk dat je voor die FileSystemObject nog wat declaraties moet doen (de dim is netjes maar hoeft niet als je geen option explicit boven aan de code hebt staan)

dim FileSystemObject
set FileSystemObject=CreateObject("Scripting.FileSystemObject")

 

[JEPEDEWE]

Nu krijg ik Fout 70
Toegang geweigerd

pfff

 

[OctaFish]

Zet de Scripting Runtime bibliotheek aan; die staat waarschijnlijk nog uit.

 

[JEPEDEWE]

Durf het bijna niet te zeggen maar ik weet totaal niet waar je het over hebt
Sorry

 

[OctaFish]

Zodra je Scripting commando's gaat gebruiken in vba is het verstandig om de Microsoft Scripting Runtime bibliotheek aan te zetten in het VBA venster via <Extra>, <Verwijzingen>.

 

[JEPEDEWE]

is dat activeX-besturingselementen in access 2003???
zie daar niks staan van script-toestanden
Merci

 

[JEPEDEWE]

zelfde probleem:

hier mijn code

Private Sub Knop5_Click()
Dim db As DAO.Database
Dim TB As Recordset
Dim SQL1 As String, msg As String
Dim FileSystemObject
Set FileSystemObject = CreateObject("Scripting.FileSystemObject")
Set db = CurrentDb()
SQL1 = "SELECT Fiche.NAAM, Fiche.ERKDAT FROM Fiche WHERE Fiche.ERKDAT Is Null;"
Set TB = db.OpenRecordset(SQL1)
If TB.RecordCount <> 0 Then
msg = "Erkdat van " & TB!NAAM & " is leeg gemaakt"
If MsgBox(msg, vbOKOnly, " ") = vbOK Then
End If
End If

FileSystemObject.CopyFile "c:\kine\data.mdb", "c:\dropbox\kine"
DoCmd.Quit
End Sub

Hopelijk vinden jullie het probleem

Merci

 

[OctaFish]

Je moet in ieder geval FileSystemObject als object dimmen en niet als Variant.
Dim FileSystemObject As Object dus.

 

[JEPEDEWE]

probleem blijft hetzelfde

Dim db As DAO.Database
Dim TB As Recordset
Dim SQL1 As String, msg As String
Dim FileSystemObject As Object
Set FileSystemObject = CreateObject("Scripting.FileSystemObject")

zo paste ik aan

 

[OctaFish]

Wordt het niet eens tijd voor een voorbeeld bestandje? Het begint wel erg op lukraak in de mist slaan te lijken

 

[JEPEDEWE]

denk dat het probleem echt niet duidelijker wordt met een voorbeeldbestandje...

Het enige wat moet gebeuren is dat er automatisch, als ik op de knop "einde" klik van mijn hoofdmenu, het bestand data.mdb naar de folder "dropbox" op de c drive gemaakt wordt... zo simpel... (denk ik dan)
Nu moet ik dat manueel doen en durf het wel eens (vrij vaak) vergeten

See??

JP

 

[Tardis]

Je bent in je code vergeten om een slash backward te zetten achter de naam van de folder waarnaar je kopieert.
Wijzig in je code deze regel

FileSystemObject.CopyFile "c:\kine\data.mdb", "c:\dropbox\kine"

in

FileSystemObject.CopyFile "c:\kine\data.mdb", "c:\dropbox\kine\"

Tardis

 

[JEPEDEWE]

voila, opgelost....
dikke merci
JP