Top-Themen

Aktuelle Themen (A bis Z)

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 IPWünsch Dir wasWebbrowserWebentwicklungWeiterbildungWindows 7Windows 8Windows 10Windows InstallationWindows MobileWindows NetzwerkWindows ServerWindows SystemdateienWindows ToolsWindows UpdateWindows UserverwaltungWindows VistaWindows XPXenserverXMLZusammenarbeit

gelöst Usernamen mit dem man in Windows angemeldet ist in Access übernehmen

Mitglied: msteib

msteib (Level 1) - Jetzt verbinden

09.06.2006, aktualisiert 16:29 Uhr, 18651 Aufrufe, 4 Kommentare

Hallo,

wir sind hier dabei eine Access Datenbank zu bauen in der Serverausfälle gelistet werden sollen. Nun sollte in einem Feld in einer Tabelle automatisch die UserID eintragetragen werden, mit der man in Windows angemeldet ist (also der Username von Windows).

Am besten sollte er in ein Textfeld in einem Formular übernommen werden.

Habt ihr ne Ahnung wie man das macht?

Danke und viele Grüße,

Michael Steib
Mitglied: 25110
09.06.2006 um 13:26 Uhr
Folgende Funktion liefert den Windows-Benutzernamen:

Function fOSUserName() As String
Dim lngLen As Long, lngX As Long
Dim strUserName As String
strUserName = String$(254, 0)
lngLen = 255
lngX = apiGetUserName(strUserName, lngLen)
If lngX <> 0 Then
fOSUserName = Left$(strUserName, lngLen - 1)
Else
fOSUserName = ""
End If
End Function

Wenn z.B. der Benutzername bei jeder Datensatzänderung in der Tabelle eingetragen werden soll, geht das so:

1) Ein Modul mit der obigen Funktion erstelle.

2) In der Tabelle ein Textfeld einfügen, z.B. BenutzerAenderung

3) Im Formular ein Textfeld erstellen, z.B. BenutzerAenderung

4) Im Formular beim Ereignis ?Nach Aktualisierung:

Private Sub Form_AfterUpdate()
With Me.RecordsetClone
.Bookmark = Me.Bookmark
.Edit
!BenutzerAenderung = fOSUserName
.Update
End With
End Sub

mfg
Bitte warten ..
Mitglied: msteib
09.06.2006 um 14:19 Uhr
Hallo,

ich habe das jezt folgendermaßen eingebaut:

wenn jemand auf den Button "datensatz speichern klickt" soll folgendes ausgeführt werden:

Private Sub Befehl15_Click()
With Me.RecordsetClone
.Bookmark = Me.Bookmark
.Edit
!Benutzername = fOSUserName
.Update
End With

On Error GoTo Err_Befehl15_Click


DoCmd.DoMenuItem acFormBar, acRecordsMenu, acSaveRecord, , acMenuVer70

Exit_Befehl15_Click:
Exit Sub

Err_Befehl15_Click:
MsgBox Err.Description
Resume Exit_Befehl15_Click

End Sub

Mein Modul habe ich "Windows Benutzername" genannt.

Nun kommt, wenn ich auf Datensatz speichern klicke folgende Meldung:

Titel: Microsoft Visual Basic
Fehler: "Fehler beim Kompilieren: Sub oder Function nicht definiert"

Es wird der Quelltext der Funktion angezeigt und "Function fOSUserName() As String" gelb markiert und "apiGetUserName" grau markiert.

Hier nochmal der komplette Quelltext:

Function fOSUserName() As String
Dim lngLen As Long, lngX As Long
Dim strUserName As String
strUserName = String$(254, 0)
lngLen = 255
lngX = apiGetUserName(strUserName, lngLen)
If lngX <> 0 Then
fOSUserName = Left$(strUserName, lngLen - 1)
Else
fOSUserName = ""
End If
End Function


Vielleicht hast du ja ne Lösung dafür.

danke und viele Grüße,

Michael Steib
Bitte warten ..
Mitglied: 25110
09.06.2006 um 16:21 Uhr
Sorry, im Modul vor der Funktion noch folgenden Code einfügen:

Private Declare Function apiGetUserName Lib "advapi32.dll" Alias _
"GetUserNameA" (ByVal lpBuffer As String, nSize As Long) As Long


Und vorsichtshalber noch die Verweise prüfen:

Modul im Entwurf öffnen, Extras > Verweise
Da sollten 4 Einträge sein:
Visual Basic for Applications
Microsoft Access x.0 Object Library
Microsoft DAO 3.6 Object Library
Microsoft ActiveX Data Objects 2.x Library

mfg
Bitte warten ..
Mitglied: Biber
09.06.2006 um 16:29 Uhr
...ist kaum nötig, mit solchen Kanonen auf den kleinen Spatz zu schießen..

Ermittelt einfach den Usernamen aus dem Environment.

strUsername = Environ("USERNAME")

Die Funktion Environ()/Environ$() ist in der "normalen" VBA-Bibliothek, die ohnehin mit eingebunden (bzw. auf jeden Fall vorhanden) ist.

Gruß
Biber
Bitte warten ..
Ähnliche Inhalte
Netzwerkgrundlagen
Windows cannot access
gelöst Frage von BepoSmithNetzwerkgrundlagen11 Kommentare

Folgendes Problem, welches mein Kunde am 10.01.2019 festgestellt hat. Er benutzt ein Programm auf seinem Client-PC, welches Bilder von ...

Windows Netzwerk
Windows Direct Access
gelöst Frage von Jannis92Windows Netzwerk5 Kommentare

Hall Zusammen, ich versuche derzeit eine Testumgebung für das Direct Access von Microsoft einzurichten. Als Server kommt ein Windows ...

Microsoft Office

Office 2016. Outlook Konto in Domäne angemeldet, aber Word ist nicht angemeldet

gelöst Frage von ScrewDriverMicrosoft Office3 Kommentare

Hallo an alle, ich habe folgendes Phänomen. Auf einem Client mit Windows 10 in unserem Domänennetzwerk mit Windows 2016 ...

Windows 10

Windows 10 Pro + Direct Access

Frage von DragonKillWindows 104 Kommentare

Moin, kann man Direct Access auch mit Windows 10 Professional nutzen oder ist Enterprise zwingend erforderlich? Ich finde nur ...

Neue Wissensbeiträge
Exchange Server

Exchange News and Announcements - Microsoft Ignite 2020

Ticker von Dani vor 4 StundenExchange Server9 Kommentare

Today we are announcing that the next versions of Exchange Server, SharePoint Server, Skype for Business Server and Project ...

Sicherheit

Citrix Schwachstellen und Sicherheitslücken - CB-K20-0912

Ticker von Dani vor 11 StundenSicherheit

Moin, Citrix Application Delivery Controller (ADC) ist eine Lösung zur Anwendungsbereitstellung und Lastverteilung. Citrix Gateway ist eine vom Kunden ...

LAN, WAN, Wireless

iOS 14: Private WLAN-Adressen können für Probleme sorgen

Ticker von Reini82 vor 16 StundenLAN, WAN, Wireless4 Kommentare

Guten Morgen, IOS 14 und Android wechseln die MAC-Adressen (bei Android für jedes neue WLAN Netzwerk, IOS offenbar ständig). ...

Microsoft
Manage USB Devices on Windows Hosts
Ticker von Dani vor 1 TagMicrosoft1 Kommentar

Raven is a Miniature Schnauzer that doesn’t like small critters in the yard unless they can fly. This gives ...

Heiß diskutierte Inhalte
Windows Server
Win Server2016 Datacenter Installation Frage
Frage von UschadeWindows Server19 Kommentare

Hallo vereehrte Kolleginnen und Kollegen, Ich versuche einen Win Server2016 Datacenter zu installieren. Das Blech ist ein Fujitsu Primergy ...

Hyper-V
Hyper-V VM Copy Performance innerhalb der VM
gelöst Frage von tobitobsnHyper-V18 Kommentare

Folgendes Situation: Hyper-V Host mit 2xSSD (RAID1) mit OS und 2xHDD (RAID1) für Daten. Der Host hat aktuell (noch) ...

Windows Server
Hochstufen zum DC aufgrund Replikationsproblemen nicht möglich
Frage von FlinxitWindows Server18 Kommentare

Hallo, Wir haben ein Netzwerk übernommen, in welchem ein DC momentan aktiv ist, ein weiterer im AD angegebener DC ...

Backup
Gesicherter Backupserver gesucht
gelöst Frage von lcer00Backup17 Kommentare

Hallo zusammen, ich habe mir am Wochenende den interessanten Vortrag aus folgendem Beitrag angesehen: DerWoWusste Danke für den Link ...

Administrator Magazin
09 | 2020 Ein Internetauftritt ist für Firmen heute eine Selbstverständlichkeit, doch gilt es beim Betrieb der entsprechenden Server einiges zu beachten. Im September beleuchtet das IT-Administrator Magazin deshalb das Schwerpunktthema "Webdienste und -server". Darin lesen Sie unter anderem, wie Sie Webapplikationen sinnvoll überwachen und welche Open-Source-Managementtools ...
Best VPN