Top-Themen

AppleEntwicklungHardwareInternetLinuxMicrosoftMultimediaNetzwerkeOff TopicSicherheitSonstige SystemeVirtualisierungWeiterbildungZusammenarbeit

Aktuelle Themen

Administrator.de FeedbackApache ServerAppleAssemblerAudioAusbildungAuslandBackupBasicBatch & ShellBenchmarksBibliotheken & ToolkitsBlogsCloud-DiensteClusterCMSCPU, RAM, MainboardsCSSC und C++DatenbankenDatenschutzDebianDigitiales FernsehenDNSDrucker und ScannerDSL, VDSLE-BooksE-BusinessE-MailEntwicklungErkennung und -AbwehrExchange ServerFestplatten, SSD, RaidFirewallFlatratesGoogle AndroidGrafikGrafikkarten & MonitoreGroupwareHardwareHosting & HousingHTMLHumor (lol)Hyper-VIconsIDE & EditorenInformationsdiensteInstallationInstant MessagingInternetInternet DomäneniOSISDN & AnaloganschlüsseiTunesJavaJavaScriptKiXtartKVMLAN, WAN, WirelessLinuxLinux DesktopLinux NetzwerkLinux ToolsLinux UserverwaltungLizenzierungMac OS XMicrosoftMicrosoft OfficeMikroTik RouterOSMonitoringMultimediaMultimedia & ZubehörNetzwerkeNetzwerkgrundlagenNetzwerkmanagementNetzwerkprotokolleNotebook & ZubehörNovell NetwareOff TopicOpenOffice, LibreOfficeOutlook & MailPapierkorbPascal und DelphiPeripheriegerätePerlPHPPythonRechtliche FragenRedHat, CentOS, FedoraRouter & RoutingSambaSAN, NAS, DASSchriftartenSchulung & TrainingSEOServerServer-HardwareSicherheitSicherheits-ToolsSicherheitsgrundlagenSolarisSonstige SystemeSoziale NetzwerkeSpeicherkartenStudentenjobs & PraktikumSuche ProjektpartnerSuseSwitche und HubsTipps & TricksTK-Netze & GeräteUbuntuUMTS, EDGE & GPRSUtilitiesVB for ApplicationsVerschlüsselung & ZertifikateVideo & StreamingViren und TrojanerVirtualisierungVisual StudioVmwareVoice over IPWebbrowserWebentwicklungWeiterbildungWindows 7Windows 8Windows 10Windows InstallationWindows MobileWindows NetzwerkWindows ServerWindows SystemdateienWindows ToolsWindows UpdateWindows UserverwaltungWindows VistaWindows XPXenserverXMLZusammenarbeit
GELÖST

User mit VBA ermitteln die auf DB zugreiffen

Frage Microsoft Microsoft Office

Mitglied: severinbuob

severinbuob (Level 1) - Jetzt verbinden

22.02.2007, aktualisiert 14:12 Uhr, 8290 Aufrufe, 2 Kommentare

Hallo zusammen!

Ich möchte gerne per VBA herausfinden meine Datenbank geöffnet hat. Wenn möglich, möchte ich die Windows Usernames mit dieser Funktion herausfinden, wenn dies nicht möglich ist, andere Angaben über Anzahl der Zugriffe oder IP-Adressen der Zugriffe.

Vielen Dank für die Unterstützung!

Gruss
Severin
Mitglied: Weiricth
22.02.2007 um 09:05 Uhr
ein neues modul erstellen

01.
Option Compare Database 
02.
Option Explicit 
03.
 
04.
Private Declare Function apiGetUserName Lib "advapi32.dll" Alias "GetUserNameA" (ByVal lpBuffer As String, nSize As Long) As Long 
05.
 
06.
Function NTUSER() As String 
07.
Dim lngLen As Long, lngX As Long 
08.
Dim strUserName As String 
09.
    strUserName = String$(254, 0) 
10.
    lngLen = 255 
11.
    lngX = apiGetUserName(strUserName, lngLen) 
12.
    If (lngX > 0) Then 
13.
        NTUSER = Left$(strUserName, lngLen - 1) 
14.
    Else 
15.
        NTUSER = vbNullString 
16.
    End If 
17.
     
18.
    'MsgBox NTUser 
19.
End Function 
20.
 
und dann kannst du in einem ntuser() darauf zugreifen. Dieser code funktioniert ab office 97

Grüße

TomTom
Bitte warten ..
Mitglied: severinbuob
22.02.2007 um 14:12 Uhr
Herzlichen Dank für diese rasche Antwort!
Hab jetzt eine zusätzliche Tabelle eingabaut und immer wenn jemand die Datenbank öffnet, so speichert es den Benutzernamen in diese Tabelle mit der Zeit und dem Datum.

Gruss
Severin
Bitte warten ..
Neuester Wissensbeitrag
Microsoft

Lizenzwiederverkauf und seine Tücken

(5)

Erfahrungsbericht von DerWoWusste zum Thema Microsoft ...

Ähnliche Inhalte
Microsoft Office
gelöst Excel 2013 Duplikate löschen und Startzeile ermitteln VBA (5)

Frage von AlexIOT zum Thema Microsoft Office ...

Windows Systemdateien
Keine Berechtigung trotz Domänen-Admin User (10)

Frage von M.Marz zum Thema Windows Systemdateien ...

VB for Applications
Excel VBA Sortierung von Daten (4)

Frage von easy4breezy zum Thema VB for Applications ...

Heiß diskutierte Inhalte
Windows Server
Outlook Verbindungsversuch mit Exchange (15)

Frage von xbast1x zum Thema Windows Server ...

Microsoft Office
Keine Updates für Office 2016 (13)

Frage von Motte990 zum Thema Microsoft Office ...

Grafikkarten & Monitore
Tonprobleme bei Fernseher mit angeschlossenem Laptop über HDMI (11)

Frage von Y3shix zum Thema Grafikkarten & Monitore ...