MS-Office-Forum

Zurück   MS-Office-Forum > Archive > Microsoft Access - Archiv > Microsoft Access - Archiv (2000)
Registrieren Forum Hilfe Alle Foren als gelesen markieren

Banner und Co.

Antworten
Ads
Themen-Optionen Ansicht
Alt 02.11.2000, 07:35   #1
Angel
Neuer Benutzer
Neuer Benutzer
Standard Die verschiedenen Logins! Bringen nur Kopfzerbrechen.

Ich habe eine Datenbank. Nun versuche ich diese möglichts Anwenderfreundlich zu gestalten. Ich versuche anhand des NT Logins die Security von ACCESS zu setzen. Kennt sich da jemand aus?
Ich habe bereits ein Modul, welches den Login bestimmt. Was ich noch brauche währe erstens mal ein Event der vor dem laden der Datenbank auslöst. Als zweites eine Variable wo mann den Benutzer editieren kann.
Oder kennt jemand einen ganz anderen Lösungsansatz ?

Bin über jeden Beitrag erfreut
Angel
Angel ist offline  
verlinken auf Del.icio.us Diese Seite zu Mister Wong hinzufügen
Antworten Auf Beitrag antworten
Alt 02.11.2000, 11:28   #2
MarkusR
MOF User
MOF User
Standard

Verpacke den Login in eine seperate start-Datenbank ohne zugriffsberechtigung und starte die Applikation dann mit dem "shell" Shell-Befehl z.B.

Kleiner Auszug aus einer ähnlichen lösung (Access Benutzer muss gleich heisen wie NT Benutzer):
Code:

Option Compare Database
Option Explicit

Const mMdwFile_str As String = "mdwDatei.mdw"
Const mAppFile_str As String = "App.mdb"
Public Declare Function GetUserName Lib "advapi32.dll" Alias "GetUserNameA" _
  (ByVal lpBuffer As String, nSize As Long) As Long

Function currentWinUser() As String
Dim str As String
Dim str_len As Long
Dim retVal As Long
str_len = 255

str = Space(str_len) + Chr(0)
retVal = GetUserName(str, str_len)
str = Left(str, str_len - 1)
currentWinUser = str
End Function

Function start()
Dim usr_str As String
usr_str = currentWinUser()
Dim new_wsp As Workspace
Dim new_dbe As PrivDBEngine
Dim start_str As String
Dim curPath_Str As String
Dim mdwPath_Str As String
Dim appPath_str As String
Dim ret

On Error Resume Next

curPath_Str = "C:\programme\myApp\" 'currentDBPath 
mdwPath_Str = curPath_Str + mMdwFile_str
appPath_str = curPath_Str + mAppFile_str

Set new_dbe = New PrivDBEngine
new_dbe.SystemDB = mdwPath_Str

Set new_wsp = new_dbe.CreateWorkspace("abc", usr_str, "standardKennwort")
 If Err = 0 Then
  start_str = SysCmd(acSysCmdAccessDir) + "MSACCESS.exe "
  start_str = start_str + """" + appPath_str + """" + " /wrkgrp """ + _
    mdwPath_Str + """ /user " + usr_str + " /pwd " + "standardKennwort"
  Debug.Print start_str
  ret = Shell(start_str, vbMaximizedFocus)
  Quit
Else
  MsgBox "Sie sind nicht berechtigt das Programm zu starten!", vbInformation, "Anmeldung"
  Quit
End If
End Function
Die Funktion start kann z.B. via autoexec-Makro aufgerufen werden

Man kann das ganze natürlich so umbauen, dass man eine Anmeldemaske mit vorbesetztem Benutzernamen hat.
MarkusR ist offline  
verlinken auf Del.icio.us Diese Seite zu Mister Wong hinzufügen
Antworten Auf Beitrag antworten
Ads
Antworten


Aktive Benutzer in diesem Thema: 1 (Registrierte Benutzer: 0, Besucher: 1)
 
Themen-Optionen
Ansicht

Forumregeln
Es ist Ihnen nicht erlaubt, neue Themen zu verfassen.
Es ist Ihnen nicht erlaubt, auf Beiträge zu antworten.
Es ist Ihnen nicht erlaubt, Anhänge anzufügen.
Es ist Ihnen nicht erlaubt, Ihre Beiträge zu bearbeiten.

vB Code ist An.
Smileys sind An.
[IMG] Code ist An.
HTML-Code ist An.
Gehe zu


Alle Zeitangaben in WEZ +1. Es ist jetzt 22:15 Uhr.


Partner und Co.
Access-Paradies -Alles rund um die Datenbank Microsoft Access -Code -Programme-Tools -Tipps   Kostenlose Tipps & Tricks, Downloads und Programme   www.kulpa-online.com - Tipps - Tricks - Tutorials - Meinungen - Downloads uvm...   vb@rchiv · Willkommen in der Welt der VB Programmierung   Access-Garhammer - Hier finden Sie jede Menge Beispiel-Datenbanken zu Access und mehr ...   mcseboard.de   Die Top Seite für Excel-VBA-Makros uvm.

Powered by: vBulletin Version 3.6.2 (Deutsch)
Copyright ©2000 - 2018, Jelsoft Enterprises Ltd.

Copyright ©2000-2018 MS-Office-Forum. Alle Rechte vorbehalten.
Copyright ©Design: Manuela Kulpa ©Rechte: Günter Kramer
Eine Verwendung der Inhalte in anderen Publikationen, auch auszugsweise,
ist ohne ausdrückliche Zustimmung der Autoren nicht gestattet.