|
Thema
|
Datum
|
Von Nutzer
|
Rating
|
Antwort
|
 Nochmal Caption an Rasta |
11.08.2005 16:08:51 |
Lars |
|
|
|
11.08.2005 16:29:37 |
Rasta |
|
|
|
11.08.2005 16:48:44 |
Lars |
|
|
|
11.08.2005 17:12:11 |
Rasta |
|
|
|
12.08.2005 09:00:43 |
Lars |
|
|
|
13.08.2005 18:51:00 |
Rasta |
|
|
Von:
Lars |
Datum:
11.08.2005 16:08:51 |
Views:
2093 |
Rating:
|
Antwort:
|
Thema:
Nochmal Caption an Rasta |
Jaaa, langsam kommen wir der Sache näher.
Bin wie gesagt blutiger Anfänger, deshalb drücke ich mich schlecht aus.
Schicke mal den gesamten Code.
Modul :
Option Compare Database
Option Explicit
'***Deklaration der globalen Variablen***
Global gstrright As String
Global gstrUser As String
Public Function Pruefung_1(strRecht As String)
'***Deklaration der Variablen
Dim db As Database
Dim rst As Recordset
Dim strsql As String
Dim qry As QueryDef
Dim frm As Form
Dim rs As New ADODB.Recordset ' ***NEU***
Dim leiste As String '***NEU***
'***den Benutzer aus der Umgebung auslesen
gstrUser = Environ("Username")
Debug.Print gstrUser
Set db = CurrentDb()
Set frm = Screen.ActiveForm
Set qry = db.QueryDefs("qry_formularzugriffsrecht_1")
qry("ParaDkx_Kennung") = gstrUser
qry("ParaFormularname") = Screen.ActiveForm.Name
Set rst = qry.OpenRecordset()
If rst.EOF Then
MsgBox "!!!Sie sind nicht berechtigt mit der Datenbank zu arbeiten!!!"
'DoCmd.Quit
Else
Debug.Print "Berechtigung = " & Screen.ActiveForm.Name & " = " & rst!Formularzugriffsrecht
strRecht = rst!Formularzugriffsrecht
leiste = rs.Fields("dkx_kennung").Value '***SO oder wie meintest Du das ???***
DoCmd.OpenForm "frm_administration"
'MsgBox "Berechtigung/Rolle = " & rskennung!Rolle '(Ampassant dient der Verknüpfung zwischen Text und Variable)
'rskennung.Close
End If
End Function
*************Dann der Code auf den Formularen :***********
Private Sub Form_Open(Cancel As Integer)
Dim strRecht As String
Call Pruefung_1(strRecht)
If strRecht = "U" Then
Screen.ActiveForm.AllowEdits = True
Screen.ActiveForm.AllowAdditions = True
Screen.ActiveForm.AllowDeletions = True
'***je nach Rolle, wird die Fokusleiste individuell angepasst
Form.Caption = leiste '************???****
Else
If strRecht = "L" Then
Screen.ActiveForm.AllowEdits = False
Screen.ActiveForm.AllowAdditions = False
Screen.ActiveForm.AllowDeletions = False
Else
MsgBox "Fehler!!!" 'Ausformulieren !!!
End If
End If
End Sub
|
- Bitte beschreiben Sie Ihr Problem möglichst ausführlich. (Wichtige Info z.B.: Office Version, Betriebssystem, Wo genau kommen Sie nicht weiter)
- Bitte helfen Sie ebenfalls wenn Ihnen geholfen werden konnte und markieren Sie Ihre Anfrage als erledigt (Klick auf Häckchen)
- Bei Crossposting, entsprechende Links auf andere Forenbeiträge beifügen / nachtragen
- Codeschnipsel am besten über den Code-Button im Text-Editor einfügen
- Die Angabe der Emailadresse ist freiwillig und wird nur verwendet, um Sie bei
Antworten auf Ihren Beitrag zu benachrichtigen
Bitte geben Sie ein aussagekräftiges Thema an.
Bitte geben Sie eine gültige Email Adresse ein!
- Bitte beschreiben Sie Ihr Problem möglichst ausführlich. (Wichtige Info z.B.: Office Version, Betriebssystem, Wo genau kommen Sie nicht weiter)
- Bitte helfen Sie ebenfalls wenn Ihnen geholfen werden konnte und markieren Sie Ihre Anfrage als erledigt (Klick auf Häckchen)
- Bei Crossposting, entsprechende Links auf andere Forenbeiträge beifügen / nachtragen
- Codeschnipsel am besten über den Code-Button im Text-Editor einfügen
- Die Angabe der Emailadresse ist freiwillig und wird nur verwendet, um Sie bei
Antworten auf Ihren Beitrag zu benachrichtigen
|
Thema
|
Datum
|
Von Nutzer
|
Rating
|
Antwort
|
Nochmal Caption an Rasta |
11.08.2005 16:08:51 |
Lars |
|
|
|
11.08.2005 16:29:37 |
Rasta |
|
|
|
11.08.2005 16:48:44 |
Lars |
|
|
|
11.08.2005 17:12:11 |
Rasta |
|
|
|
12.08.2005 09:00:43 |
Lars |
|
|
|
13.08.2005 18:51:00 |
Rasta |
|
|