records verwijderen

[fanatiek]

ik ben een programma aan het schrijven voor een bedrijf
ivm producten die een bepaalde tijd in ons magazijn mogen blijven;
hoe verwijder ik record(s) van een tabel wanneer in diezelfde tabel
een datum is gegeven die verstreken wordt
bvb. er zijn records die lopen tot 6 januari, wanneer het 7 januari
wordt moeten AL die records AUTOMATISCH worden verwijderd.
graag hierbij de nodige hulp

dank

 

[Guus2005]

Bij opstarten applicatie query uitvoeren:

ExecuteSql("Delete from tabelnaam where einddatum < getdate()")

HTH
Weest gegroet,
Guus

 

[fanatiek]

moet ik die code schrijven in mijne subformload of moet ik een query aanmaken ofzo
of een drukknop?

mvg

fanatiek

 

[fanatiek]

beste guus,

- mijn code in de subformload is als volgt...

Private Sub Form_Load()
ExecuteSql ("Delete from overzicht where Einddatum < getdate()")
End Sub

- als ik deze code invoer dan geeft mijn formulier een foutmelding:

compileerfout:Sub of Function is niet gedefinieerd endan verwijst.
endan verwijst men in de VBA code naar executesql...

- wat doe ik fout of wat moet ik nog doen?

mvg

fanatiek

 

[Guus2005]

ExecuteSql is een procedure die je nog moet schrijven.
Het enige wat deze procedure doet is het uitvoeren van je query. Ik weet dat daarvoor in Access een hele simpele oplossing is. In VB moet je eerst je connectie ophalen maar in Access niet omdat in wezen alles lokaal staat. Het was iets van opensql of runsql of iets dergelijks ik kan er ff niet opkomen. Daarbij was het zo dat je opensql(?) gebruikt voor select queries en runsql(?) voor action queries zoals update, insert en delete.

Je moet er even naar zoeken in de Access helpfile.

HTH
Weest gegroet,
Guus