Macro der tjekker dato??

Du har selv angivet løsningen. Dan en makro med navnet Autoexec.

Betingelsen skal være: Date()-#17-02-2004#>5
Handlingen skal være: Afslut Access

(Husk lige, at brugere, der har bare lidt forstand på Access, uden problemer vil kunne omgå denne blokade)

... ups. Datoen skal naturligvis stadig være #17-04-2004#. Sorry

Lav et modul, hvor du sætter følgende funktion ind

Function CheckDate()
if (date() - #17-04-2004#) > 5 then
docmd.quit
exit sub
else
stDocName = "minformular"
DoCmd.OpenForm stDocName, , , stLinkCriteria
exit sub
end if
end function

I din autoexec skal du vælge "Afspilkode" og sætte følgende linie ind: CheckDate()

En lille rettelse til funktionen:

Function CheckDate()
if (date() - #17-04-2004#) > 5 then
docmd.quit
exit sub
else
stDocName = "minformular"
DoCmd.OpenForm stDocName
exit sub
end if
end function

.. og så kunne du lægge en linie 2 ind i makroen med handlingen ÅbnFormular. Denne linie udføres jo kun, hvis linie 1 ikke afslutter Access.

>>> hekla
Havde ikke set dine svar. Vi er jo ret enige, lader det til  ;o)

Hmm den virker ikke koden den giver fejl i exit sub

stDocName = "minformular"

og i denne

Og ved første løsning fdata så kan jeg ikke angive det ved handlingen afslut access

VBA:  CheckData er en Function. Du skal bruge Exit Function.
      Du skal måske også Dim'e dine variable.

Makro: Kører du engelsk? Så hedder kommandoen Quit.

Fdata så lang er jeg med - Men den giver fejl

Jeg har en der hedder afslutaccess = dansk version men her kan jeg ikke skrive en betingelse ind..

Og hvordan dim´e ... jeg??

Så er jeg tilbage.
Vælg menupunktet Vis Betingelser. Så dukker der en ny kolonne op, du kan skrive i.

Perfekt virker nu- Mange tak for hjælpen - Er du super bruger i access?? fdata

Selv tak. Jeg tager din bemærkning som en kompliment  ;o)
Husk at lukke spørgsmålet.

Jeg har anvendt fdatas løsning - Hvor at databasen automatisk lukker ned når datoen er overskredet..

Det hele er lavetvedhjælp af en macro

Lukket