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 Access User und Computername mit VBA auslesen

Mitglied: mete-eve

mete-eve (Level 1) - Jetzt verbinden

11.12.2007, aktualisiert 17.12.2007, 20746 Aufrufe, 3 Kommentare

Hallo Leute,
ich habe ein Formular und ein Unterformular darin.
Jetzt möchte ich das im Unterformular pro erfassten eintrag der Computer sowie der Username mit erfasst wird.

Mit dem Befehlsbutton Befehl20 schreibe ich den erfassten Text in das Unterformular.

Hauptformular:
Private Sub Befehl20_Click()
'------------------------------------------------------------
' Aktual
'
'------------------------------------------------------------

On Error GoTo Befehl20_Err

' Sonn_EINGABE
DoCmd.Close acForm, "Sonn_EING"
' Sonn_EINGABE
DoCmd.OpenForm "Sonn_EING", acNormal, "", "", , acNormal

Befehl20_Exit:
Exit Sub

Befehl20_Err:
MsgBox Error$
Resume Befehl20_Exit

End Sub


Unterformular:
Sub PCDaten()
Dim Netzwerk As IWshRuntimeLibrary.WshNetwork

Set Netzwerk = CreateObject("wscript.network")
Me.Netzwerk_Computername = Netzwerk.Computername
Me.Netzwerk_UserName = Netzwerk.UserName
End Sub

Was mache ich falsch? Kann mir jemand helfen?
Mitglied: mete-eve
11.12.2007 um 15:48 Uhr
Ich habe es jetzt so weit:


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

Private Declare Function GetComputerName _
Lib "kernel32" _
Alias "GetComputerNameA" (ByVal lpBuffer As String, _
nSize As Long) _
As Long


Public Function CurrentUserWin() As String
Dim lpUsername As String
Dim lngTmp As Long

'Bei Fehlern weitermachen
On Error Resume Next

'String mit Leerzeichen füllen
lpUsername = Space(255)
'WIN-API-Funktion aufrufen
lngTmp = GetUserName(lpUsername, 255)

If Err.Number = 0 Then
'Wenn kein Fehler aufgetreten ist
CurrentUserWin = Trim(CutNullChar(lpUsername))
Else
CurrentUserWin = ""
End If

End Function

Function CutNullChar(ByVal v As Variant) As String
'bei NULL wird - zurückgegeben
If IsNull(v) Then
v = "-"
Else
'wenn chr(0) (vbNullChar) auftritt, alles danach abschneiden
If InStr(v, vbNullChar) > 0 Then
v = Left(v, InStr(v, vbNullChar) - 1)
End If
End If
CutNullChar = v
End Function

Private Sub Form_Load()
Me!User = CurrentUserWin
End Sub





==>Es funktioniert alles bis darauf das der Computername nicht ausgegeben wird.

Das ist mein Code:
Public Function ComputerName() As String
Dim lpPCName As String
Dim lngTmp As Long

'Bei Fehlern weitermachen
On Error Resume Next

'String mit Leerzeichen füllen
lpPCName = Space(255)
'WIN-API-Funktion aufrufen
lngTmp = GetComputerName(lpPCName , 255)

If Err.Number = 0 Then
'Wenn kein Fehler aufgetreten ist
ComputerName= Trim(CutNullChar(lpComputerName))
Else
ComputerName= ""
End If

End Function


==>Wenn ich den aber einbinde funktioniert gar nichts mehr.
Ich bekomme die Meldung:

"Sie haben als Einstellung der Ereigniseigenschaft den Ausdruck Bei laden eingegeben. Dieser Ausdruck hat einen Fehler verursacht. Ds Element ist bereits in einem Objektmodul vorhanden, von der dises Objektmodul abgeleitet ist."


Kann mir jemand weiter helfen?????????
Bitte warten ..
Mitglied: 25110
12.12.2007 um 11:40 Uhr
Hallo,

vielleicht kann Dir Karl Donaubauer helfen: http://www.donkarl.com/
Siehe Punkte 2.23 und 2.24.
Die Links führen u.a. zu: http://www.mvps.org/access/api/api0009.htm

mfg
Bitte warten ..
Mitglied: mete-eve
17.12.2007 um 15:36 Uhr
Die URL´s waren sehr hilfreich.

Danke
Bitte warten ..
Ähnliche Inhalte
Batch & Shell

Script zum auslesen der AD - Computername - User der zuletzt angemeldet war - Datum der Anmeldung

Frage von Ca-SchoBatch & Shell4 Kommentare

Hallo an alle Powershell-Erfahrene, ich taste mich langsam an das Thema heran, habe aber jetzt schon eine Anforderung, die ...

Microsoft Office

Kreuztabelle Access + VBA Code

Frage von Dr.CornwallisMicrosoft Office7 Kommentare

Hallo zusammen, ich habe eine Kreuztabelle aus einer Query erzeugt, aus dieser entsteht wiederum ein Bericht, nun habe ich ...

VB for Applications

Umkreissuche mit Access 2013 VBA

gelöst Frage von evolutionVB for Applications12 Kommentare

Hallo, ich bin auf der Suche nach einer Anleitung zur Umkreissuche mit Access 2013. Wir haben hier von der ...

Datenbanken

Syntaxfehler VBA Access 2010

gelöst Frage von Dr.CornwallisDatenbanken6 Kommentare

Liebe Gemeinde, ich habe (schon wieder) einen Fehler im Code und ich komm einfach nicht drauf warum es nicht ...

Neue Wissensbeiträge
Microsoft

Neuigkeiten zu Server und Office 365 was läuft mit was und was nicht

Tipp von AlFalcone vor 1 TagMicrosoft4 Kommentare

Da diese Infos scheinbar unerwünscht sind, habe ich diese wider gelöscht.

Speicherkarten

Neuer Speicherkartentyp - zunächst nur für Huawei-Smartphones (künftig auch für Notebooks u. Tablets?)

Tipp von VGem-e vor 1 TagSpeicherkarten1 Kommentar

Servus, als ob das "Chaos" i.S. Speicherkarten noch nicht groß genug wäre?! Evtl. kommt dieser neue Kartentyp bald auch ...

Sicherheit

Diverse D-Link-Router durch drei Schwachstellen kompromittierbar

Information von kgborn vor 2 TagenSicherheit

Hat jemand D-Link-Router in Verwendung? Einige Modelle sind sicherheitstechnisch offen wie ein Scheunentor. Äußerst unschöne Sache, aber nichts neues ...

Hardware

100.000 Mikrotik-Router ungefragt von Hacker abgesichert

Information von 7Gizmo7 vor 2 TagenHardware3 Kommentare

Hallo zusammen, da hier ja öfters mal von Mikrotik gesprochen wird. Trotz Updates klafft eine Sicherheitslücke in Hundertausenden Mikrotik-Routern. ...

Heiß diskutierte Inhalte
Sicherheitsgrundlagen
EuGH-Urteil - Internetanschluss für die ganze Familie - Filesharer haften trotzdem
Frage von StefanKittelSicherheitsgrundlagen40 Kommentare

Hallo, In diesem Artikel geht es darum, dass Jemand aus der Familie ein Hörbuch illegal hochgeladen hat. Der Vater ...

Off Topic
SysAdmin im öffentlichen Dienst - jemand Erfahrungen?
Frage von JohnDorianOff Topic21 Kommentare

Hallo zusammen, hat jemand Erfahrung wie es so ist als SysAdmin im öffentlichen Dienst (Landkreis) im Südwesten der Republik ...

DSL, VDSL
PPPOE Einwahl über Sophos UTM und FritzBox per PPPOE Passthrough
gelöst Frage von Leo-leDSL, VDSL16 Kommentare

Hallo zusammen, vielleicht habt Ihr noch eine Idee?? Ich besitze einen 1u1 Anschluss und möchte meine UTM ASG 110 ...

TK-Netze & Geräte
Low budget TK-Anlage für KMU
Frage von HeinklugTK-Netze & Geräte16 Kommentare

Hallo Admins, ich bin auf der Suche nach eine kostengünstigen Telefonanlage für mein kleines Büro mit 4-5 Mitarbeitern. Dabei ...