title image


Smiley Re: Zugriffsdokumentation einer Datenbank
Hallo Ibo,ich bin (wo weiß ich nicht mehr) über folgendes gestolpert,als ich für meine DB sowas brauchte:in Modul :Deklarationen:Option Compare DatabaseOption ExplicitDeclare Function GetUsername Lib "advapi32.dll"_Alias "GetUserNameA" (ByVal lpBuffer As String, nSize As_ Long) As Long-------------------------------------------Function username() As StringDim lnglen As LongDim strbuffer As StringConst dhcMaxUserName = 255strbuffer = Space(dhcMaxUserName)lnglen = dhcMaxUserNameDim Anwender As StringIf CBool(GetUsername(strbuffer, lnglen)) Then username = Left$(strbuffer, lnglen - 1)Else username = "" Anwender = usernameEnd IfEnd Function-------------------------------------------Public Sub suchenName()Call usernameForms!MeinFormular.[Bearbeiter] = usernameEnd SubAufrufen mit :Private Sub Form_BeforeUpdate(Cancel As Integer)Call suchenNameEnd SubHTH Joerg
Ich möchte ausdrücklich darauf hinweisen dass es sich bei diesem Posting um eine Meinungsäußerung gemäß §5 GG handelt. mfg Jörg

geschrieben von

Login

E-Mail:
  

Passwort:
  

Beitrag anfügen

Symbol:
 
 
 
 
 
 
 
 
 
 
 
 
 

Überschrift: