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

Access User und Computername mit VBA auslesen

Frage Entwicklung Datenbanken

Mitglied: mete-eve

mete-eve (Level 1) - Jetzt verbinden

11.12.2007, aktualisiert 17.12.2007, 19352 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: bussi
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

Mit freundlichen Grüßen
Bitte warten ..
Mitglied: mete-eve
17.12.2007 um 15:36 Uhr
Die URL´s waren sehr hilfreich.

Danke
Bitte warten ..
Neuester Wissensbeitrag
Humor (lol)

Linkliste für Adventskalender

(3)

Information von nikoatit zum Thema Humor (lol) ...

Ähnliche Inhalte
VB for Applications
gelöst Einzelne Begriffe aus PDF in Excel per VBA auslesen (20)

Frage von joha1908 zum Thema VB for Applications ...

VB for Applications
gelöst Xml-Datei laden bzw. auf Festplatte kopieren und per VBA in eine Access-Tabelle speichern (22)

Frage von machohunk zum Thema VB for Applications ...

Datenbanken
gelöst Syntaxfehler VBA Access 2010 (6)

Frage von Dr.Cornwallis zum Thema Datenbanken ...

Heiß diskutierte Inhalte
Windows Server
DHCP Server switchen (25)

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

SAN, NAS, DAS
gelöst HP-Proliant Microserver Betriebssystem (14)

Frage von Yannosch zum Thema SAN, NAS, DAS ...

Grafikkarten & Monitore
Win 10 Grafikkarte Crash von Software? (13)

Frage von Marabunta zum Thema Grafikkarten & Monitore ...

Windows 7
Verteillösung für IT-Raum benötigt (12)

Frage von TheM-Man zum Thema Windows 7 ...