memo koppelen aan datum en tijd.

[michieldanen]

Hallo,

Ik heb een database met allerlei afspraken (memo) erin. Nu wil ik graag een popup maken die triggert op datum en tijd.
Hoe doe ik dat precies?

 

[Thelma]

dat wil ik ook ....
Volg deze thread met spanning!

 

[beheer25]

Als je een formulier open hebt kun je een macro of VBA code laten lopen die om de xxx seconden uitgevoerd wordt.

Als je hierin een check laat doen waarin de afspraken worden vergeleken met de systeemtijd kun je op het moment dat dat het geval is een messagebox of formulier openen met daarin de gegevens die je wilt laten zien.

Kijk eens bij het onTimer event van het formulier.


Grtz,

 

[michieldanen]

Private Sub Form_Load()
Form.TimerInterval = 1000
Me.Visible = False
End Sub

Public Sub Form_Timer()
Dim FrmDate As Date
Dim Sysdate As Date
FrmDate = "??????"
Sysdate = Format(Now, "HH:MM:SS")
If FrmDate = Sysdate Then MsgBox "U heeft een afspraak"
End Sub

Wat moet ik doen wil er in een tabel worden gekeken of er al een afspraak is?

 

[ivdh]

SQL ="SELECT Afspraak FROM Tabel WHERE Datum = '" & Format(Now, "HH:MM:SS") & '"
Set Rst = currentdb.openrecordset
If Not Rst.EOF Then
FrmDate = Rst("Datum")
End If
Rst.Close
Set Rst = Nothing

zoiets?

Als ik het goed snap controleer je iedere 1000 seconden of er een afspraak gemaakt is??? En wat als er daartussen een afspraak gepland is?

 

[michieldanen]

Foutje
Maar bedankt voor je oplossing