25. oktober 2002 - 15:50Der er
15 kommentarer og 2 løsninger
Adgang til Database??
Jeg har en database hvor visse folk skal have adgang og andre ikke skal, men jeg gider ikke passwords, eller sagt på en anden måde, jeg mener ikke at der er brug for det.
Jeg har en metode GetUsername() som finder den bruger der er logget på den givne computer pt. Det som jeg gerne vil have er en eller anden vba-kode som, når jeg åbner databasen checker om jeg findes i brugertabellen (kaldet Systembrugere). Hvis usernamet findes skal databasen bare åbne men hvis det ikke gør skal den komme med en msgbox der siger at man ikke har lov til at bruge databasen. Er der nogen der kan hjælpe mig med sådan en kode og hvor den evt. skal være??
Desuden vil jeg også gerne lige høre hvordan jeg kan undgå at folk taster F11 for at komme ind i databasemenuen. Så kan man jo bare oprette sig selv. Er der desuden andre ting jeg skal tage højde for??? Så vil jeg blive glad hvis i gør mig opmærksom på det.
I dette særtema ser vi på, hvordan cloud og AI bliver fundamentet for virksomhedernes digitale forretning, og hvordan de nye muligheder for automatisering og forretningsværdi kan udnyttes uden at miste overblik, sikkerhed og menneskelig kontrol.
DoCmd.SetWarnings False DoCmd.OpenForm "Bruger", acNormal, "", "", , acNormal Forms!Bruger![MA-nr] = GetUserName() DoCmd.Close acForm, "Bruger" DoCmd.OpenForm "Test af rettigheder", acNormal, "", "", , acNormal If Forms![Test af rettigheder]![CountOfMA-nr] = 0 Then MsgBox "Du har ikke rettighed til at benytte denne database" DoCmd.Quit End If If Forms![Test af rettigheder]![CountOfMA-nr] = 1 Then DoCmd.Close acForm, "Bruger" DoCmd.Close acForm, "Test af rettigheder" Call Aabn_Hovedmenu End If
Men husk, hvis du bruger bypass metoden, at lave en bagdør - ellers kan du heller ikke selv komme ind i databasen.
Læg noget kode, der laven en DLookUp i SystemBrugere og leder efter den bruger, du har fundet med GetUsername(). Hvis den ikke findes, kan du lade koden lukke databasen ned igen.
Læg koden på VedÅbningshændelsen for den formular, du åbner når dsatabasen åbnes.
Jeg har en form "Test af rettigheder", der er baseret på en forespørgsel, der tæller de brugere, hvis navn er lig med GetUserName(). Hvis den optælling er lig nul, bliver man smidt ud.
OK jeg siger tak for hjælpen til alle der har hjulpet. Det skal lige siges at jeg kun arbejder på disse ting tirsdag og torsdag så hvis i synes at der går lidt lang tid inden jeg giver point så er det bare fordi jeg ikke lige er verdens hurtigste arbejder :) Håber det kan forstås.
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.
