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

• #756 Oly őstag Oly #755

  Új Válasz 2010-10-25 12:16:11 #756

  Ú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 Oly #755 üzenetére

  Megtaláltam...

  Function AZjog()
  Dim rst As Recordset, dbs As Database, LUser As String, TUser As String, nev As String, jogsi As Long
  Set dbs = CurrentDb()
  Set rst = dbs.OpenRecordset("users")
  r = rst.RecordCount
  rst.MoveFirst
  For x = 1 To r
  
  LUser = "Admin"
  
  TUser = rst("login_name")
  
  If LUser = TUser Then
  AZjog = rst("jogID")
  nev = rst("user_name")
  
  GoTo Vege
  End If
  rst.MoveNext
  Next x
  Vege:
  MsgBox "Szia " & nev & "! Jogosultság: " & AZjog
  End Function

  Csináltam egy ilyen fgv-t és csak erre kell hivatkoznom minden lekérdezésnél...

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