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

• ArchElf addikt

  #1443

  #1440 Oly

  2011-09-19 16:05:07

  Ú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

  

  ArchElf

  addikt

  #1440 Oly

  #1440 Oly

  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)

  Asszem megvan:
  Excelben a celláknak van Value propery-je, de a form elemeknek (pl textbox) nincs, csak Caption vagy Text (text a szerkeszthető elemeknek pl TextBox, caption a nem szerkeszthetőknek pl. Form, Label, Button). Ezt problémázza szerintem a script futtató...

  AE

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