Automatisk password skift.

passwoord ?
hvorhenne? er det en password funktion du selv har lavet eller

Du må have en tabel med brugere kaldet brugere. Ved current kan du oprette en kode:

If Me.NewRecord And DCount["*","brugere") = 0 Then
og så koden til skift af password
End If

I tabellen brugere, skal der være en dato for oprettelse af password. I formularens Current skal der så være en kode, der måler på 2 datoer: Dato for oprettelse og Date():

If DateDiff("d",Dato for oprettlese, Date) >180 Then
og så kode til skift af password
end If

Det skal naturligvis rettes til, men jeg skal på arbejde og har ikke så meget tid. Men det skulle være nok til at starte dig.

Jeg anvender den indbygget brugeropsætning for sikkerhed. 'Tools' - 'Security' - 'User and Group accounts'. Jeg vil helst undgå at skulle oprette tabel til håndtering af brugeradministration.
Jeg ved ikke om det kan lade sig.....

Det kan ikke lade sig gøre at skifte det automatisk, og:
Det er det letteste password at brude, det koster bare 60 usd, der findes et hav af programmer til det, se:
http://www.google.com/search?q=access+password+recovery&ie=UTF-8&oe=UTF-8&hl=da&lr=
Vh Henrik13

Det var et svar.  :o)

Det er ligegyldigt om den kan brydes. Men det er bare ærgerligt at man ikke kan uden at skulle lave tabeller for brugeradministration.

Hvis du ikke vil gemme datoen for sidste opdatering i en særlig tabel, kan du nok ikke styre det automatisk.

Udskriftningen af passwordet kan du fixe fra en formular med et par indtastningsfelter (OldPassword og NewPassword og evt. NewPassword2 til kontrol) og en lille rutine i stil med:

Private Sub RetKnap_Click()
  Dim wrkDefault As Workspace
  Set wrkDefault = DBEngine.Workspaces(0)
 
  On Error GoTo PassErr
  If IsNull(Me!OldPassword) Then Me!OldPassword = ""
  wrkDefault.Users(CurrentUser).NewPassword Me!OldPassword, Me!NewPassword
  Set wrkDefault = Nothing
  DoCmd.Close
  Exit Sub

PassErr:
  MsgBox "Forkert adgangskode", vbInformation, "Indtastningsfejl"
  On Error GoTo 0
  Me.OldPassword.SetFocus
End Sub

... og hvad blev løsningen ?