[VB] Run macro

[DNA_Saint]

Ik ben bezig in Access, maar daarbij heb ik een scriptje dat er om de bepaalde tijd een macro moet starten.

Nu heb ik het scriptje wel voor het tellen van de tijd. Maar hoe start ik een macro?

Ik heb tot nu toe dit, maar het is niet echt goed nog

Visual Basic:

Private Sub Form_Timer()

  

    Dim CurrentTime As Date

    

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

    

    Select Case CurrentTime

        Case CDate("08:30"), CDate("10:30"), CDate("12:30"), CDate("14:30"), CDate("16:30")

           Const DBPath = "C:\DBpath\MyDB.mdb"
           Const MacroName = "MyMacro"

          Set AccessApp = GetObject(DBPath, "Access.Application")
          AccessApp.DoCmd.RunMacro MacroName

        Case Else

            'Do nothing

    End Select

        

End Sub

[ Voor 11% gewijzigd door DNA_Saint op 24-08-2007 10:40 ]

[fleppuhstein]

Leuk stukje code, maar, ga je elke minuut de sub aanroepen ?

Wat je doet is je pakt de tijd , slaat die op, en kijkt of hij matcht met je vooraf gezette tijden. Hij telt hellemaal niks.

Voor de rest is je vraag wel heel erg "Google" op het lijf geschreven, aangezien bij de eerste zoekopdracht, de eerste hit een goed antwoord opleverd. Direct van de Microsoft site.
http://www.google.com/sea...+start+an+macro+in+access

code:

  Case Else

            'Do nothing

Is trouwens wel een beetje overbodig.

[ Voor 1% gewijzigd door Creepy op 24-08-2007 11:00 . Reden: Hoe heet dat bedrijf ook alweer? ]

[Creepy]

Gezien je post history weet je dat je in voor Access zaken e.d. in OFF moet wezen. Aangezien fleppuhstein zo te zien een antwoord geeft waarmee je uit de voeten moet kunnen gaat deze dicht.