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, 20417 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
VB for Applications
Access 2010 vba Recordset
gelöst Frage von EUuserVB for Applications3 Kommentare

Hallo zusammen, ich arbeite seit langem mal wieder mit Access und vba: Ich habe eine Datenbank, zwei Tabellen (identisch ...

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 ...

Neue Wissensbeiträge
Humor (lol)
Meine Variante der DSGVO
Tipp von Henere vor 8 StundenHumor (lol)

Datenschutzerklärung Jede gute Website braucht eine Datenschutzerklärung? Ok, dann machen Sie sich auf etwas gefasst. Präambel Artikel 12 der ...

Administrator.de Feedback

Entwicklertagebuch: Datenschutzerklärung nach DS-GVO

Information von admtech vor 15 StundenAdministrator.de Feedback

Hallo Administrator User, Wir respektieren eure Privatsphäre und möchten euch daher auf die Möglichkeiten für den Umgang mit euren ...

Voice over IP

Rufnummernblock aufbrechen nun möglich bei DTAG

Tipp von Datenreise vor 19 StundenVoice over IP

Bei der Telekom ist es seit einigen Tagen laut Aussage der Geschäftskunden-Hotline möglich, eine Rufnummernübernahme auch dann durchzuführen, wenn ...

Netzwerke
Riesiges Botnetz in Deutschland
Tipp von FFSephiroth vor 20 StundenNetzwerke1 Kommentar

Überprüft mal eure Router und NAS

Heiß diskutierte Inhalte
Datenschutz
E-Mail Verschlüsselung DSGVO 2018
gelöst Frage von SoccerdeluxDatenschutz33 Kommentare

Hallo zusammen, ich verzweifele langsam und wende mich an euch und hoffe vielleicht ein paar Antworten zu finden. Ich ...

HTML
Link nicht vollständig
Frage von jensgebkenHTML33 Kommentare

Hallo Gemeinschaft, ich erstelle mit Word einen Serienbrief, den ich per Mail versende. Nun mein Problem der Wordserienbrief holt ...

Voice over IP
VOIP: Lösungen für Notruf?
Frage von MimemmmVoice over IP24 Kommentare

Hey Welche Möglichkeiten hat man eigentlich noch bei VOIP um zuverlässige Notrufe zu ermöglichen? Ein aufgeladenes Handy habe ist ...

Server-Hardware
HPE DL 360e GEN8 - P420 - Lüfter drehen auf nach Festplattenwechsel
Frage von maniacmacpainServer-Hardware20 Kommentare

Hallo, ich kenne den Effekt, dass man bei der GEN8 von HP ein Array eingerichtet haben muss, damit die ...