module ProcedureName? What is

Du kan enten skrive således i VBA på knappens VedKlik-hændelse:
call BackupAndZipittoC

eller skrive således direkte på VedKlik-Egenskaben (i egenskabsarket)
=BackupAndZipittoC()

btw, kunne man ikke få lov at se koden (evt på mail)? Det lyder da interessant :o)

Selvfølgelig kan du få lov at se koden. Jeg sender den senere (har lavet det som en task) men skal lige have det her til at spille først. ! Det funker nemlig ikke helt.
Modulet har samme navn son funktionen skal den have det eller er det ligegyldigt, eller må den ikke have det.

Private Sub Command15_Click()
    Call BackupAndZipittoC
End Sub
Giver følgende fejl
Complie error:
Expectred variable or procedure, not module

=BackupAndZipittoC() - Direkte i properties på On Click
Giver følgende fejl
The expression you entered has a function name that microsoft access cant find

Er det fordi Modulet ligger for sig selv, og ikke under eller som en del af (eller hvad man nu siger, er ikke så er faren med vba) formen hvorpå knappen er?

nej, modulet må IKKE hedde det samme som en eksisterende funktion.

Se om det ikke løser alle problemer?

koden kan enten ligge på en formular (men så virker den kun, når formularen er åben) eller i et modul.

Jeg plejer at lægge alle funktioner, som ikke indeholder order Me eller andre referencer til den aktuelle formular, i moduler, således at de er tilgængelige hele tiden.

Super nu eksekverer den modulet, men der er noeget der ikke spiller helt: Jeg poster det her så alle kan få glæde af det. Det er jo det der er hele ideén med sådan et forum :-)
Jeg får fejl på: Public Funktion makeres med gul og Dim fso As FileSystemObject med blåt

Public Declare Sub Sleep Lib "kernel32" (ByVal dwMilliseconds As Long)

Public Function BackupAndZipittoC()

'This function will allow you to copy a db that is open,
'rename the copied db and zip it up to anther folder.

'You must set a reference to the 'Microsoft Scripting Runtime' for the CopyFile
piece to work!
'You must have winzip installed
'Thanks to Ricky Hicks and G Hudson for the .CopyFile code

Dim fso As FileSystemObject

Dim sSourcePath As String
Dim sSourceFile As String
Dim sBackupPath As String
Dim sBackupFile As String

sSourcePath = "C:\Data\adata\Stock record\Hoofprint\"
sSourceFile = "Stock _be.mdb"
sBackupPath ="C:\Hoofprint\Backups\"
sBackupFile = "Backupstock_" & Format(Date, "mmddyyyy") & "_" & Format(Time,
"hhmmss") & ".mdb"

Set fso = New FileSystemObject
fso.CopyFile sSourcePath & sSourceFile, sBackupPath & sBackupFile, True
Set fso = Nothing

Dim sWinZip As String
Dim sZipFile As String
Dim sZipFileName As String
Dim sFileToZip As String

sWinZip = "C:\Program Files\WinZip\WinZip32.exe" 'Location of the WinZip program
sZipFileName = Left(sBackupFile, InStr(1, sBackupFile, ".", vbTextCompare) - 1)
& ".zip"
sZipFile = sBackupPath & sZipFileName
sFileToZip = sBackupPath & sBackupFile

Call Shell(sWinZip & " -a " & sZipFile & " " & sFileToZip, vbNormalFocus)
MsgBox "Backup is proceeding. This routine can take up to 10 seconds to
complete"
Sleep 10000

If Dir(sBackupPath & sBackupFile) <> "" Then Kill (sBackupPath & sBackupFile)
Beep
MsgBox "Backup was successful and saved @ " & Chr(13) & Chr(13) & sBackupPath &
Chr(13) & Chr(13) & "The backup file name is " & Chr(13) & Chr(13) &
sZipFileName, vbInformation, "Backup Completed"



End Function

Ja, Filesystemobject duer kun, hvis du har den rigtige reference. Og jeg ved faktisk ikke hvilken reference man skal have. I stedet kan du ændre disse linier:

Dim fso As FileSystemObject
ændres til
Dim fso As Object

Set fso = New FileSystemObject
ændres til
Set fso = CreateObject("Scripting.FileSystemObject")

Prøv, hvor langt du når med det?!

Jeg når til complete"" (står lige over Sleep 10000). Complete er markeret med blåt,
og fejl medelelsen siger:

sub or function not defined.

Complete skal jo også op i slutningen af forrige linie. Hvis du har kopieret koden andetsteds fra, så har der måske sneget sig et linieskift ind.
MsgBox "Backup is proceeding. This routine can take up to 10 seconds to complete"

Tusind tak for din hjælp. Det spiller nu. Der var godtnok noget med mine paths men det virker med C:\ så kan det også køre på den maskine det skal.

Super :o)