[Acces] Check datum > updaten

[DNA_Saint]

Ik heb een code om access zelf een macro te laten starten om de bepaalde tijd.

Maar ik krijg nu een error, als ie bij de ingevulde tijd aankomt.

Visual Basic:

Option Explicit
Option Compare Database
Imports Access = Microsoft.Office.Interop.Access

Private Sub Form_Timer()

    Dim CurrentTime As Date

    CurrentTime = CDate(Format(Now(), "hh"))

    Select Case CurrentTime

        Case CDate("09"), CDate("13"), CDate("14")
        Dim oAccess As Access.ApplicationClass

        'Start Access and open the database.
        oAccess = CreateObject("Access.Application")
        oAccess.Visible = True
        oAccess.OpenCurrentDatabase("C:\Documents and Settings\Administrator\Mijn documenten\WNH2002-final2.mdb", False)

        'Run the macros.
        oAccess.Run ("alles_updaten")

        'Clean-up: Quit Access without saving changes to the database.
        oAccess.DoCmd().Quit (Access.AcQuitOption.acQuitSaveNone)
        System.Runtime.InteropServices.Marshal.ReleaseComObject (oAccess)
        oAccess = Nothing
       
    End Select

        

End Sub

In VB staat: oAccess.OpenCurrentDatabase("C:\Documents and Settings\Administrator\Mijn documenten\bla.mdb", False) in het rood.
Maar dit heb ik direct gekopieerd van Microsoft site...

daarbij geeft ie een error als ie wordt gestart:
ongeldig buiten procedure

wie ziet een fout?

[ Voor 126% gewijzigd door Lustucru op 25-08-2007 01:01 . Reden: zó afgezaagd ]

[Witte]

Waarom maak je niet een access database met een autoexec-macro en start je die met de windows taakplanner (doe maar eens AT /? in de dos-prompt)?
Ik heb zelf ook een aantal access-databases die elke dag uitgevoerd worden, om een en ander te updaten en te herstellen.
Zorg er wel voor dat de macro access zelf sluit.

[ Voor 85% gewijzigd door Lustucru op 25-08-2007 01:01 . Reden: zo mogelijk nog flauwer ]

[Lustucru]

Je krijgt morgen of zo een mailtje van me