title image


Smiley Re: Datenbank in Netzwerk und gespeicherter Login Name
Hallo,Ohne die Datenbank wirklich zu schützen und ohneTextfeld gehts auch so und funktioniert problemlosim Netzwerk.Kopiere in ein Modul: Unter (Allgemein) (Deklarationen):Declare Function GetUserName Lib "advapi32.dll" Alias _"GetUserNameA" (ByVal lpBuffer As String, nsize As Long) As LongIhrgendwo im Modul:Function Username()Dim test As Stringtest = Chr$(0) & Space$(255) & Chr(0)Dim i As Integeri = GetUserName(test, 255)Username = left$(test, InStr(test, Chr$(0)) - 1)End FunctionDiese Funktion kannst Du nun überall verwenden z.B.beim [Ereignis] - Öffnen des Formulars:Private Sub Form_Open(Cancel As Integer)Me![Textfeldname] = UsernameEnd SuboderPrivate Sub Form_Open(Cancel As Integer)If Username = "Otto Tunichtgut" ThenMsgbox "Guten Tag Otto"End ifEnd SubGrußWalter Griesser

geschrieben von

Login

E-Mail:
  

Passwort:
  

Beitrag anfügen

Symbol:
 
 
 
 
 
 
 
 
 
 
 
 
 

Überschrift: