Thema Datum  Von Nutzer Rating
Antwort
11.08.2005 16:08:51 Lars
NotSolved
Blau Wert aus Recordset abgreifen
 11.08.2005 16:29:37 Rasta
NotSolved
11.08.2005 16:48:44 Lars
NotSolved
11.08.2005 17:12:11 Rasta
NotSolved
12.08.2005 09:00:43 Lars
NotSolved
13.08.2005 18:51:00 Rasta
NotSolved

Ansicht des Beitrags:
Von:
Rasta		 Datum:
11.08.2005 16:29:37		 Views:
1170		 Rating:
     
Antwort:
  Ja
Thema:
Wert aus Recordset abgreifen
hallo lars,

für einen blutigen anfänger machst du aber schon schön fortgeschrittene sachen :-)

ja genau,so meinte ich das.
dein recordset heist bei dir im code allerdings nicht

rs

sondern

rst
------------
funktioniert es?

viele grüße

rasta

Lars schrieb am 11.08.2005 16:08:51:

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


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 16:08:51 Lars
NotSolved
Blau Wert aus Recordset abgreifen
 11.08.2005 16:29:37 Rasta
NotSolved
11.08.2005 16:48:44 Lars
NotSolved
11.08.2005 17:12:11 Rasta
NotSolved
12.08.2005 09:00:43 Lars
NotSolved
13.08.2005 18:51:00 Rasta
NotSolved