Copy maken via opdrachtknop lukt niet.

[edmoor]

Daar is het forum voor Willy
Het is leuk om te doen en zo leer je ervan, tenminste, als je de juiste antwoorden krijgt ;-)
Ik verwacht dat het bovenstaande je probleem oplost maar het zou ook nog kunnen zijn dat dat niet het enige probleem is en je ook nog rekening moet houden met de opmerking van dnties.
Dat horen we dan wel weer.

 

[willyv28]

Ik zie niet goed waar ik dat moet tussen plaatsen bij mijn opdrachtknop, wil je mij nog een tip geven. Willy.

 

[OctaFish]

De functie zet je in een (nieuwe) module. Dat is dus dit stuk:

Function GetFilename(path As String)
    Dim PathName() As String
    
    PathName = Split(path, "\")
    GetFilename = PathName(UBound(PathName))
End Function

Vervolgens roep je de functie aan met GetFileName("Hier komt dan ofwel een variabele (als je met een tabelveld werkt) of een padnaam die je intypt")
Een beetje zoals in het voorbeeld met een knop cmdTest wordt gedaan.

 

[willyv28]

Zal het eens uitwerken. bedankt.

 

[willyv28]

Het lukt me niet, ik zie niet waar ik dat moet tussen plaatsen of is dat de complete commando voor de knop. De Kopie wil ik "Kopie factuur" noemen.

 

[OctaFish]

Ik heb het draadje met enige verwondering gevolgd, want het kan allemaal zoveel simpeler... Je hebt die functie dus helemaal niet nodig namelijk. Ik doe het meestal zo:

Private Sub cmdKopie_Click()
Dim fileObj As Object
Dim strBestandNaam As String
Dim strPad As String
Dim strBestandPad As String
Dim strBackupNaam As String
Dim strBackupPad As String
Dim msg As Integer

On Error GoTo fout

strBestandNaam = CurrentProject.Name
strPad = CurrentProject.Path
''strBackupNaam = "Facturatie BJ " & Year(Date) - 1 & "-" & Year(Date) & ".mdb"
strBackupNaam = Format$(Now(), "yyyymmdd") & " " & strBestandNaam

strBestandPad = strPad & "\" & strBestandNaam
strBackupPad = "H:\" & strBackupNaam
Set fileObj = CreateObject("scripting.filesystemobject")
fileObj.copyfile strBestandPad, strBackupPad, True

msg = MsgBox("De backup is gelukt!")

Exit_Kopie_Click:
Exit Sub

fout:
MsgBox "De backup is mislukt!", vbCritical

End Sub

Je haalt met CurrentProject.Name de naam op van de huidige database (daar gaat je functie...) en met CurrentProject.Path de lokatie. Die twee knoop je aan elkaar met een \ teken.
Vervolgens zet je daar de datum voor in de backup naam om aan te geven hoe oud de backup is.
En de rest van de code had je al.

 

[willyv28]

Bedankt voor jullie geduld. Ik krijg een Compileerfout in strPad = CurrentProject. Path waarvan CurrentProject is blauw gekleurd. De foutmelding is "een variabele is niet gedefineerd".

 

[OctaFish]

Officieel ziet het commando er zo uit:

strPad = Application.CurrentProject.Path
strBestandsnaam = Application.CurrentProject.Name

Dat kun je dus ook nog proberen.

 

[willyv28]

Het is gelukt, bedankt.