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

• Oly őstag

  #1440

  #1438 ArchElf

  2011-09-19 11:32:56

  Új Válasz

  Ú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

  

  Oly

  őstag

  #1438 ArchElf

  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