Ga naar inhoud

[Access 2002] '2 seconden vasthouden' als event


Aanbevolen berichten

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?
Link naar reactie
[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...
Link naar reactie

Om een reactie te plaatsen, moet je eerst inloggen

Gast
Reageer op dit topic

×   Geplakt als verrijkte tekst.   Herstel opmaak

  Er zijn maximaal 75 emoji toegestaan.

×   Je link werd automatisch ingevoegd.   Tonen als normale link

×   Je vorige inhoud werd hersteld.   Leeg de tekstverwerker

×   Je kunt afbeeldingen niet direct plakken. Upload of voeg afbeeldingen vanaf een URL in

×
×
  • Nieuwe aanmaken...