Gebruiker als standaardwaarde in het veld opnemen

Status
Niet open voor verdere reacties.
J

JelleKoen

Gebruiker
Lid geworden
30 okt 2012
Berichten
58
Dag Access-gebruikers,

In mijn tabellen heb ik altijd een veld datestamp met standaardwaarde de functie =now()
Nu wil ik eenzelfde soort standaardwaarde voor de gebruiker. Op dit moment laat ik die met vba invullen mbv onderstaande code, zodra er een nieuw record wordt aangemaakt.
Is er een simpeler oplossing?

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

en

Public Function fncUser() As String
Dim strBuffer As String * 255
Dim lngApiResult As Long
Dim lngBuffer As Long

lngBuffer = 255
strBuffer = Space(255)
lngApiResult = GetUserName(strBuffer, lngBuffer)
fncUser = Left$(strBuffer, InStr(1, strBuffer, Chr(0)) - 1)
End Function
Klik om te vergroten...
 
Een Datestamp doe je natuurlijk met =Date() en niet met =Now(). Die gebruik je voor een timestamp. Je VBA stamt nog uit de oertijd; je kunt nu met VBA.Environ("UserName") hetzelfde bereiken.
 
Ha, ja, ik ben ook al even bezig. Dank voor de kortere code.
Maar hoe krijg ik die eenvoudig als standaardwaarde in een veld?
(ik zal volgende keer de Code-tag gebruiken).
 
Je hebt nog steeds een functie, nu dus met één regel, en die functie gebruik je nog steeds als standaardwaarde. Daar verandert dus niets aan.
 
Status
Niet open voor verdere reacties.
Steun Ons

Nieuwste berichten

Terug
Bovenaan Onderaan