Thema Datum  Von Nutzer Rating
Antwort
11.08.2005 14:14:02 Lars
NotSolved
11.08.2005 14:36:37 Rasta
NotSolved
11.08.2005 14:39:32 Lars
NotSolved
11.08.2005 15:05:58 Rasta
NotSolved
11.08.2005 15:10:09 Lars
NotSolved
Blau Aw:Aw:Aw:Aw:Aw:Nochmal Form.Caption und Abfrage
 11.08.2005 15:29:05 Rasta
NotSolved
11.08.2005 16:03:09 Rasta
NotSolved

Ansicht des Beitrags:
Von:
Rasta		 Datum:
11.08.2005 15:29:05		 Views:
1347		 Rating:
     
Antwort:
  Ja
Thema:
Aw:Aw:Aw:Aw:Aw:Nochmal Form.Caption und Abfrage
Hallo Lars,

wir werden schon zusammen kommen :-)

was ich nciht verstanden habe war, wie du dich schwer tust mit der variablen die an den befehl caption übergeben werden soll...

aber ich denke ich habe jetzt verstanden, das du probleme hast, die werte aus dem recordset auszulesen(die werte die du von der datenbanktabelle abfrägst)

das sollte gehen wie beschrieben

dim rs as new adodb.recordset
dim variable as string

variable = rs.fields("irgendeinfeld").value

sorry, wenn ich das wieder falsch verstanden habe und auf dem holzweg bin

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

Ihre Antwort
  • 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: Name: Email:



  • 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
NotSolved
11.08.2005 14:36:37 Rasta
NotSolved
11.08.2005 14:39:32 Lars
NotSolved
11.08.2005 15:05:58 Rasta
NotSolved
11.08.2005 15:10:09 Lars
NotSolved
Blau Aw:Aw:Aw:Aw:Aw:Nochmal Form.Caption und Abfrage
 11.08.2005 15:29:05 Rasta
NotSolved
11.08.2005 16:03:09 Rasta
NotSolved