Begrænse hvem der må åbne en form

Kan man godt:

- Hvis du åbner formularen ved et klik på en knap, kan du kontrollere for autorisation inden du åbner formularen.

Ok, men hvad skal jeg skrive i koden for at få den til at kigge i tabellen og afvise dem der ikke er der?

Benytter du funktionen :

Environ("UserName")

til identifikation af CurrentUser ?

Nej jeg bruger Currentuser()

Eksempel :

Function User()

If Environ("UserName") = "OSE" Or Environ("UserName") = "R1T" Or Environ("UserName") = "U7G" Then
   
ÅbnFormular

Else
    MsgBox ("Sorry .... du er ikke godkendt !!!!")
End If

Det er ikke præcist nok, det er der mit problem er. Jeg kunne godt finde ud af at skrive den kode, men jeg vil have den til at kigge i en tabel og kun dem der står i tabellen må åbne formularen....det kan jeg ikke lige gennemskue...

Jeg har et eksempel der bruger DAO 3.6 - kan jeg godt finde frem... Skal jeg det ?

Det vil være kanon!

Hvis du benytter Currentuser(), var det vel en ide, et implementere Sikkerhed på brugerniveau ... eller hvad ?

Tjaaa, det er også mit udgangspunkt, men jeg kan ikke hitte ud af at forhindre en bruger i at åbne en form - jeg kan kun finde ud af at forhindre dem i at redigere i tabellerne....

Denne kode slår op i et recordset og laver et array..:

Dim db As Database, rs As Recordset, strSQL As String
Dim Counter As Long

Set db = CurrentDb
strSQL = "SELECT * FROM FORESP_NAVN WHERE POST_I_FORESP=" & BRUGER_DU_VIL_MÅLE_PÅ & ";"
Set rs = db.OpenRecordset(strSQL, dbOpenDynaset)

If rs.BOF or rs.EOF then
'Bruger har ikke adgang
else
'bruger har adgang
end if

rs.close

set rs=nothing
Set db = Nothing


Husk at tilføje DAO 3.6 til referencer.

Og glem linien om, at koden laver et array - det gør den ikke (Gør den oprindeligt)...

Alternativt ( til inspiration ), men ikke så sikkert :

Private Sub Form_Load()
Dim CurrentUserName As String
   
    CurrentUserName = DLookup("[Bruger]", "tblUsers", "[BrugerID] = CurrentUser")
   
    MsgBox ("Aktuel bruger er : ") & CurrentUserName

  If CurrentUser = DLookup("[BrugerID]", "qryUsers", "[BrugerID] = CurrentUser") Then
   
    cmdKundedata.Enabled = True
    cmdDataImport.Enabled = True
    cdmRapporteringsår.Enabled = True
    cmdProdukter.Enabled = True
    cmdSælger.Enabled = True
       
    Else
   
    cmdKundedata.Enabled = False
    cmdDataImport.Enabled = False
    cdmRapporteringsår.Enabled = False
    cmdProdukter.Enabled = False
    cmdSælger.Enabled = False
   
    End If

End Sub

Kombineret med sikkerhed på brugerniveau, kan du forhindre at brugeren i overhovedet at komme i designmode

>madschristensen
Jeg har prøvet at lave din kode som ADODB - mest fordi det sad jeg allerede og roede med da du kom men din løsning - jeg har så lavet en kombi af det jeg sad med og dit, men jeg kan ikke få linien der starter med rs.Open til at virke ordentligt - kan du gennemskue den? Læg også lige et svar så du kan få nogle point :o)

Public Function FindAdmin(Initialer As String)
    Dim rs As ADODB.Recordset
    Dim cn As ADODB.Connection
    Dim SQLStr As String
   
    Set cn = CurrentProject.Connection
    Set rs = New ADODB.Recordset

    SQLStr = "SELECT * FROM tblAdmin where Administrator=" & CurrentUser
   
    rs.Open SQLStr, cn
    'Gl. sætning: rs.Open SQLStr, cn, adOpenKeyset, adLockOptimistic
   
    If rs.BOF Or rs.EOF Then
        MsgBox "ingen adgang"
        DoCmd.CancelEvent
    Else
        MsgBox "Adgang"
    End If
   
    rs.Close
    Set rs = Nothing
    cn.Close
    Set cn = Nothing
End Function

Gør jeg da gerne...

Men hvis vi snakker sikkerhed...Hvis du sidder på et AD eller WinNT miljø, kan du også lave kode der kontrollerer for medlemskab af bestemte grupper. Så kan du styre hvem der har adgang til hvad i din DB ved hjælp af deres medlemskaber af Windows-Logon brugergrupper.

Jeg laver nok snart en artikel om emnet ;O))

Kunne du gennemskue rs.open, hvad der mangler?

Hvad mener du med at den ikke virker ordentligt? Fejler den eller?

Når jeg afvikler funktionen stopper den ved "rs.Open SQLStr, cn" og hævder der er for mange eller for få parametre...?

prøv lige rs.open (SQLStr, cn)

eller:

With rs
    .ActiveConnection = cn
    .Source = SQLStr
    .CursorType = adOpenKeyset
    .LockType = adLockOptimistic
    .Open
End With

Nej det vil ikke rigtigt - jeg har prøvet med:

With rs
    .ActiveConnection = cn
    .Source = SQLStr
    .CursorType = adOpenKeyset
    .LockType = adLockOptimistic
    .Open
End With

...men så stopper den ved: If rs.BOF Or rs.EOF Then

Du skal ikke gøre mere - jeg åbner et nyt spørgsmål senere :o)

I din funktion kræver du et parameter (initialer). Men i den SQL spørger du på CurrentUser ?

Hvem skal du måle på?

Jeg har et eksempel liggende her: http://www.makeiteasy.dk/eksempler/Downloads.htm

Det hedder noget med "Bruger-login"

Det kan måske også give ldt inspiration?