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 IPWebbrowserWebentwicklungWeiterbildungWindows 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, 16384 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
Microsoft Office

Access 2013 - Übernehmen von Access Formular aus Backupdatei

gelöst Frage von MuseumMLMicrosoft Office8 Kommentare

Ein Formulara ist aus einer aktuellen Datenbank verschwunden. Der Benutzer hat diese wohl aus Versehen gelöscht. Wie kann ich ...

Batch & Shell

Username Kontrolle

gelöst Frage von MaxophoniBatch & Shell3 Kommentare

Hallo, ich bin gerade dabei ein Batch Programm zu schreiben. Ich möchte das gleich am Anfang der Benutzername abgefragt ...

C und C++

Spoof Username

gelöst Frage von CloudyC und C++9 Kommentare

Hallo, ich habe hier eine Blöde Software, die rum zickt, falls sie ein anderer Benutzer aufmacht (Sich der Username ...

Microsoft Office

Tabelleninhalt übernehmen

Frage von jonibaMicrosoft Office8 Kommentare

Hallo Leute! Ich benötige Hilfe bei Excel 2010 Ich habe eine Abrechnugstabelle wo ich Tankbelege eintrage. Von einer anderen ...

Neue Wissensbeiträge
Verschlüsselung & Zertifikate
Meine Wissenssammlung zu Bitlocker
Erfahrungsbericht von DerWoWusste vor 5 StundenVerschlüsselung & Zertifikate1 Kommentar

Die Motivation für diesen Beitrag waren die vielen Posts rund um dieses Thema, die deutlich machen, wie viele Einzelaspekte ...

E-Mail
Email-Apps und Verhalten bei Pop3
Erfahrungsbericht von kfranzk vor 2 TagenE-Mail11 Kommentare

Hallo Freunde, da mir mein diesbezüglicher Faden als gelöst markiert wurde, muss ich hier neu aufsetzen. Ich arbeite bewusst ...

Hyper-V

Optimiertes Ubuntu per Microsoft Hyper-V-Schnellerstellung verfügbar

Anleitung von Frank vor 2 TagenHyper-V

Für Microsofts Virtualisierungssoftware Hyper-V ist ab sofort auch ein optimiertes Ubuntu 18.04.1 LTS verfügbar. In der "Hyper-V-Schnellerstellung" App, die ...

Sicherheits-Tools

Trend Micro WorryFree Business Security (WFBS) 10 - neuer Patch 1470 verfügbar

Tipp von VGem-e vor 2 TagenSicherheits-Tools1 Kommentar

Servus, mal sehen, ob mit Patch 1470, zu finden unter dann die angeblich fehlerhafte Funktion, die unter W10 im ...

Heiß diskutierte Inhalte
Netzwerke
Hilfe bei der Planung meines Heimnetzwerks
Frage von DHD082Netzwerke14 Kommentare

Hallo zusammen, wir bauen gerade ein Einfamilienhaus, welches ich mit einem Heimnetzwerk ausstatten möchte. Da ich zwar auch in ...

Hardware
Sophos SG135 - Routing
Frage von Xaero1982Hardware13 Kommentare

Moin Zusammen, ich ersetze gerade nen alten Cisco DualWAN Router durch eine SG 135. Ich muss bestimmte Ziele über ...

Tipps & Tricks
Nagstamon und PRTG Monitoring
Frage von Der.ITlerTipps & Tricks13 Kommentare

Hallo Ihr, heute am Sonntag bin ich mal früh aufgestanden um mich mit dem Problem von Gestern zu beschäftigen. ...

Datenschutz
Gilt ein Ransomware-Befall als Datenpanne nach DSGVO?
Frage von MOS6581Datenschutz12 Kommentare

Moin Kollegen, wenn sich jemand Ransomware einfängt und dadurch bspw. Kundendaten verschlüsselt werden; gilt dies dann als meldepflichtige Datenpanne ...