Dit is een test

Public Function userlogging()

On Error GoTo userlogging_Error

Dim user, datum As String
Dim tijd As String
Dim db As Database
Dim perap As Recordset
Dim struser As String
Dim lngSize As Long
Dim logUser As String
Dim bln
Dim lpBuff As String * 255 'Buffer variable
Dim lngRetVal As Long 'Testvariable
Dim strComputerName As String 'Computername
Dim fhpGetComputerName
Dim DBname, filename, strnaam As String
Dim strVnaam As String

'****************************************************
'NT_Gebruikersnaam ophalen
'****************************************************
struser = Space(55)
lngSize = GetUserName(struser, 55)
logUser = struser

'****************************************************
'NT_omputernaam ophalen
'****************************************************

strComputerName = "Test" 'If an error

lpBuff = Space$(255) 'Prepare buffer

lngRetVal = hp_api_GetComputerName(lpBuff, 255) 'Do API call
strComputerName = Left(lpBuff, InStr(lpBuff, Chr(0)) - 1) 'Remove some chars

fhpGetComputerName = strComputerName 'The retrieved computername

'****************************************************
'Verdere gegevens ophalen
'****************************************************

user = CurrentUser()
datum = Date
tijd = Time$
filename = CurrentDb.Name
DBname = stripbestandsNaam(filename)
'****************************************************
'Gegevens wegschrijven in de tabel
'****************************************************

Set db = DBEngine.Workspaces(0).Databases(0)
Set perap = db.OpenRecordset("Tbl_LOG", dbOpenDynaset)

' perap.MoveLast
perap.AddNew
perap!gebruiker = user
perap!NT_Account = logUser
perap!Computer = strComputerName
perap!ingelogt = datum
perap!tijd = tijd
perap!DBname = DBname
perap!vnaam = getnaam()
perap.Update
perap.Close
db.Close

userlogging_Exit:
Exit Function

userlogging_Error:
MsgBox "Unexpected error - " & Err.Number & vbCr & vbCr & Error$, vbCritical, "Prorap- Sap Data Analyse - Use"
Resume Next

End Function

Related snippets