Új hozzászólás Aktív témák

• #1440 Oly őstag ArchElf #1438

  Új Válasz 2011-09-19 11:32:56 #1440

  Új hozzászólás

  Összes hozzászólása itt Válaszok az összes hozzászólására itt Válaszok erre a hozzászólásra

  Privát üzenet küldése

  

  Oly

  őstag

  válasz ArchElf #1438 üzenetére

  Igen, Access Űrlapon egy gomb.
  A Bontás Pending a Fájl név.
  a probalkozasok, a kiertesites és a kiertesito az űrlapon található textBoxok.
  Egyébként ide menti, hogy ki és mikor "próbálkozott".
  3 próba után lezárjuk.
  Ezeket is deklaráljam? (Eddig működött nélküle)

  A user() pedig Module1-ben van:
  Declare Function GetUserName Lib "advapi32.dll" Alias _
  "GetUserNameA" (ByVal lpBuffer As String, nSize As Long) _
  As Long
  Function user()
  Dim s As String
  Dim cnt As Long
  Dim dl As Long
  Dim CurUser As String
  cnt = 199
  s = String(200, 0)
  dl = GetUserName(s, cnt)
  If dl <> 0 Then
  CurUser = Left$(s, cnt - 1)
  Else
  CurUser = ""
  End If
  user = CurUser
  End Function

  Ezzel adom meg az aktuális felhasználó NT login nevét. (keresztnev.vezetkenev)

Új hozzászólás Aktív témák