records verwijderen na een tijd

[fanatiek]

ik heb een probleempje,

ik wil dat na een bepaalde tijd records worden verwijderd van de
tabel die op mijn formulier staat,
ik heb op internet gevonden dat men de huidige datum als date$
aanduidt, mag ik deze gebruiken?
ik ben nog maar beginner op VBA-code zodus dit probleem
- moet ik eerst een module aanmaken ofzo?
- kan ik deze kode ingeven via subformload?
ik zou graag willen dat ik elke keer als ik mijn formulier
open dat dan de onnodige records weg zijn...
in mijn formulier moeten de einddatums worden vergeleken
met de huidige datums

mijn voorlopige kode is

Private Sub Verwijderrecordsverstreken_Click()

Dim Einddatum As String
Dim overzicht As db

If Einddatum < Date$ Then
Delete Einddatum from overzicht

End If

End Sub


(overzicht is zowel mijn tabel, en ook mijn formulier naam
ik heb ze dezelfde naam gegeven, het gaf geen problemen,
Einddatum is mijn kolom die ik moet vergelijken)

met vele groeten en ik wacht op jullie reactie

veerle

 

[Guus2005]

De verwijder query moet ongeveer zijn:

ExecuteSql(Delete from overzicht where einddatum < getdate() -14")

Door deze query worden alle records verwijderd waarvan de einddatum 14 dagen geleden is verlopen.

Als je na een bepaalde datum je tabel leeg wilt maken doe je dat zo:

if Einddatum < getdate() then
        ExecuteSql("delete from overzicht") of ExecuteSql("truncate overzicht")
endif

In ExecuteSql wordt dan een ado object geopend en de query uitgevoerd en vervolgens het object weer leeggemaakt
Daarna moet je misschien je form refreshen.

Om even te reageren op je andere vragen:
Een module gebruik je om de code die je in meerdere forms gebruikt maar één keer te hoeven schrijven.
De procedures en functies in een module kan je voor een bepaalde functionaliteit groeperen. Bijvoorbeeld modAutorisatie. Hierin staan dan subs en functies specifiek voor het afhandelen van je autorisatie.


HTH
Weest gegroet,
guus