31. januar 2006 - 11:24Der er
6 kommentarer og 1 løsning
Bruge registreringsnøgler fra Access
Er der nogen, som kunne forklare mig hvordan man kan: Første gang, der er en som åbner db'en så skal der skrives en dato til registringsdatabasen og efterfølgende skal db'en tjekke ved opstart om datoen er overskredet, så man har mulighed for at lave en tidsbegrænset version af db'en.
Den vil selvfølgelig ikke virke hvis personen kan finde ud af at rydde op i registreringsnøglerne, men hvis man tager et par andre forholdsregler, så kan man i hvert tilfald gøre det til et problem at bruge db'en efter prøvetiden er udløbet!~)
Sub GemDatoRegistry() Dim Udløbsdato Udløbsdato = Date + 2 * 365 SaveSetting "MinApplikation", "MinSektion", "MinNøgle", Udløbsdato End Sub
Sub SletDatoRegistry() DeleteSetting "MinApplikation", "MinSektion", "MinNøgle" End Sub
Sub Test_HentDatoRegistry() MsgBox HentDatoRegistry() End Sub
Function HentDatoRegistry() As Variant On Error Resume Next HentDatoRegistry = GetSetting("MinApplikation", "MinSektion", "MinNøgle") On Error GoTo 0 End Function
Synes godt om
Slettet bruger
31. januar 2006 - 11:59#3
Som der står i "The Ten Commandments of Access", så vil jeg lige prøve at forstå koden inden jeg blindt smider den ind i mine db'er!~)
Synes godt om
Slettet bruger
31. januar 2006 - 11:59#4
Skal det hele ligges i et modul og så køres fra autoexec?~)
Synes godt om
Slettet bruger
31. januar 2006 - 12:04#5
kfisker>jeg regner også med at lave nogle tjekups af værdier i selve databasen, men jeg synes at den med registreringsnøglen er elegant og den vil jeg gerne have med!~)
Ja da. For en gangs skyld er det så enkelt ;o) Tak for point.
Synes godt om
Ny brugerNybegynder
Din løsning...
Tilladte BB-code-tags: [b]fed[/b] [i]kursiv[/i] [u]understreget[/u] Web- og emailadresser omdannes automatisk til links. Der sættes "nofollow" på alle links.
