[Access 2002] '2 seconden vasthouden' als event

[anoniem]

Hallo, Ik wil als event "2 seconden vasthouden". Jammer genoeg bestaat die niet. Nu heb ikzelf al meerdere dingen gedaan, maar nog geen enkele werkte (100%). Voorbeelde: [code:1:4d78741eae] SecondenOud = 3600 * Hour(Now()) + 60 * Minute(Now()) + Second(Now()) While Not (3600 * Hour(Now()) + 60 * Minute(Now()) + Second(Now())) - SecondenOud >= 2 PeriodeB = 1 Wend[/code:1:4d78741eae][code:1:4d78741eae] SecondenNieuw = 3600 * Hour(Now()) + 60 * Minute(Now()) + Second(Now()) If PeriodeB = 0 Then DoCmd.OpenForm ("PeriodenBewerken") Else TV__Periode.Enabled = True TV__Begindatum.Enabled = True TV__Einddatum.Enabled = True TV__Periode.Locked = False TV__Begindatum.Locked = False TV__Einddatum.Locked = False TV__ConstantenID.Visible = True DoCmd.GoToRecord , , acLast DoCmd.DoMenuItem acFormBar, acEditMenu, 8, , acMenuVer70 DoCmd.DoMenuItem acFormBar, acEditMenu, 2, , acMenuVer70 DoCmd.DoMenuItem acFormBar, acEditMenu, 5, , acMenuVer70 TV__Periode.Enabled = False TV__Begindatum.Enabled = False TV__Einddatum.Enabled = False TV__Periode.Locked = True TV__Begindatum.Locked = True TV__Einddatum.Locked = True TV__ConstantenID.Visible = False TV__Periode = TV__Periode + 1 TV__Begindatum = TV__Begindatum + 29 TV__Einddatum = TV__Einddatum + 29 Knop__Vorige_record.Enabled = True Knop__Volgende_record.Enabled = False End If PeriodeB = 0[/code:1:4d78741eae] Iemand tips?

[anoniem]

[code:1:2bb381964c]'***************** Code Start ******************* Private Declare Sub sapiSleep Lib "kernel32" _ Alias "Sleep" _ (ByVal dwMilliseconds As Long) Sub sSleep(lngMilliSec As Long) If lngMilliSec > 0 Then Call sapiSleep(lngMilliSec) End If End Sub Sub sTestSleep() Const cTIME = 1000 'in MilliSeconds Call sSleep(cTIME) MsgBox "Before this Msgbox, I was asleep for " _ & cTIME & " Milliseconds." End Sub '***************** Code End *********************[/code:1:2bb381964c] PS: wel eens van google gehoord? Dat schijnt een zoekmachine of iets dergelijks te zijn...

[anoniem]

Nee, eigenlijk niet. mijn vader is googelaar, misschien kent hij het. Ik zal het vragen.