Thema
|
Datum
|
Von Nutzer
|
Rating
|
Antwort
|
|
11.08.2005 14:14:02 |
Lars |
|
|
|
11.08.2005 14:36:37 |
Rasta |
|
|
|
11.08.2005 14:39:32 |
Lars |
|
|
|
11.08.2005 15:05:58 |
Rasta |
|
|
|
11.08.2005 15:10:09 |
Lars |
|
|
|
11.08.2005 15:29:05 |
Rasta |
|
|
Nochmal Form.Caption und Abfrage Nachtrag |
11.08.2005 16:03:09 |
Rasta |
|
|
Von:
Rasta |
Datum:
11.08.2005 16:03:09 |
Views:
1179 |
Rating:
|
Antwort:
|
Thema:
Nochmal Form.Caption und Abfrage Nachtrag |
Hallo Lars,
um durch ein recordset zu blättern schreibst du:
do until rs.eof
variable = rs.fields("test").value
rs.movenext
loop
viele grüße
rasta
Lars schrieb am 11.08.2005 15:10:09:
Hier ist was bereits besteht.
Die Abfrage funktioniert. Die Rechte und Kennungen werden ausgelesen und übergeben.
Ich tue mich nur schwer mit der Variablen die den Wert an den Caption Befehl übergeben soll.
2 Tabellen aus denen gelesen wird.
Eine hat die Felder : dkx_kennung; Name; Vorname; Rolle
Die andere : Rolle; Formularname; Formularzugriffsrecht
Beim Anmelden wird aus der Umgebungsvariablen der Benutzername ausgelesen.
In einer Abfrage wird geschaut ob der Benutzer vorhanden ist und welche Rolle, bzw.welches Recht er hat.
Auf jedem Formular wird diese Prozedur aufgerufen und das Formular dann entsprechend geöffnet.
Aus dieser oder einer neuen Abfrage heraus soll nun die dkx_kennung des Benutzers und die Rolle mit form.caption oben in die Fokusleiste geschrieben werden.
Hier tut sich mir allerdings ein Verständnisproblem auf, wie ich diese Werte übergeben soll !
Hier ein Teil des Codes :
gstrUser = Environ("Username") ' Auslesen des Benutzernamens
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
strRecht = rst!Formularzugriffsrecht
DoCmd.OpenForm "frm_administration"
End If
End Function
Danke und Gruss,
Lars |
- 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
|
|
11.08.2005 14:14:02 |
Lars |
|
|
|
11.08.2005 14:36:37 |
Rasta |
|
|
|
11.08.2005 14:39:32 |
Lars |
|
|
|
11.08.2005 15:05:58 |
Rasta |
|
|
|
11.08.2005 15:10:09 |
Lars |
|
|
|
11.08.2005 15:29:05 |
Rasta |
|
|
Nochmal Form.Caption und Abfrage Nachtrag |
11.08.2005 16:03:09 |
Rasta |
|
|