Új hozzászólás Aktív témák
-
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 FunctionEzzel adom meg az aktuális felhasználó NT login nevét. (keresztnev.vezetkenev)
Új hozzászólás Aktív témák
- PayPal
- Apple MacBook
- Pécs és környéke adok-veszek-beszélgetek
- A Chrome egyeduralmára tör a ChatGPT böngészője
- Ventilátorok - Ház, CPU (borda, radiátor), VGA
- Kertészet, mezőgazdaság topik
- Azonnali alaplapos kérdések órája
- Synology NAS
- Milyen videókártyát?
- Fotók, videók mobillal
- További aktív témák...
- BESZÁMÍTÁS! MSI Z270 GAMING PRO CARBON alaplap garanciával hibátlan működéssel
- HIBÁTLAN iPhone 12 Mini 64GB Purple -1 ÉV GARANCIA - Kártyafüggetlen, MS3481,96% Akkumulátor
- Telefon felvásárlás!! iPhone 13 Mini/iPhone 13/iPhone 13 Pro/iPhone 13 Pro Max
- MacBook felváráslás!! MacBook, MacBook Air, MacBook Pro
- Apple iPhone 15 Pro 256GB, Kártyafüggetlen, 1 Év Garanciával
Állásajánlatok
Cég: Promenade Publishing House Kft.
Város: Budapest
Cég: PCMENTOR SZERVIZ KFT.
Város: Budapest

