Ú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

  #1438 ArchElf

  Hol van ez futtatva (access, ha jól rémlik?)

  Hirtelen ezeket találtam:
  - Mi az a Bontás Pending?
  - GOTO értelmetlen, használj Exit Sub-ot
  - probalkozasok hol kap értéket, nincs átadva a Sub-nak, ez valami globális objektum?
  - user() implementálva van?
  - Ezeket mire használod?
  Kiertesito1, Kiertesites1, Kiertesito2, Kiertesites2, Kiertesito3, Kiertesites3
  - indentálásra figyelj:
  If akármi Then
  'művelet 1
  'művelet 2
  Else
  'művelet 3
  'művelet 4
  End If
  így legalább olvasható lesz a kód
  - használj Option Explicit-et (minden változót kötelező deklarálnod Dim akármi-vel, de legalább véd az elgépelés és a túlzott mértékű változó használat ellen)

  AE

  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