Access Kullanıcı Listesini Açılan Kutuya Aktarmak

[emre_bademci]

Merhaba Arkadaşlar Ben Yeni Bir Üyeyim Kendi Çapımda Access uğraşıyorum

Access kullanıcı ve grupları oluşturduktan sonra oluşturulan kullanıcıları nasıl açılan kutuya aktara biliriz

ben sadede =CurrentUser() komutuyla aktif kullanıcıya ulaşabiliyorum

şimdiden yardımlarınız için teşekkür ederim...

iyi çalışmalar...

 

[kaikai]

formlarda kullanılan açılan kutudan mı bahsediyorsun...

 

[modalı]

Sayın emre_bademci,

Sanırım aşağıdaki kodlar işinizi görür.

NOTE: These have been modified from the FAQ to RETURN
'a String list instead of just using Debug.Print.
'Feel free to modify them as needed.

Private Const mcstrSep As String = ";"

Function ListGroupsInSystem() As String
'From the Access Security FAQ
'============================

  Dim ws        As DAO.Workspace
  Dim i         As Integer
  Dim strReturn As String
  Dim strName   As String

  Set ws = DBEngine.Workspaces(0)
  For i = 0 To ws.Groups.Count - 1
    strName = ws.Groups(i).Name
    'Debug.Print strName
    If strName <> "Admins" And strName <> "Users" Then
      strReturn = strReturn & strName & mcstrSep
    End If
  Next i

  ListGroupsInSystem = strReturn

End Function

Function ListGroupsOfUser(ByVal strUser As String) As String
'From the Access Security FAQ
'============================

  Dim ws        As DAO.Workspace
  Dim usr       As DAO.User
  Dim i         As Integer
  Dim strReturn As String
  Dim strName   As String

  Set ws = DBEngine.Workspaces(0)
  Set usr = ws.Users(strUser)
  For i = 0 To usr.Groups.Count - 1
    strName = usr.Groups(i).Name
    'Debug.Print strName
    If strName <> "Users" Then
      strReturn = strReturn & strName & mcstrSep
    End If
  Next i
    
  If Len(strReturn & vbNullString) > 0 Then
    'Remove trailing separator character
    ListGroupsOfUser = Left$(strReturn, Len(strReturn) - 1)
  Else
    ListGroupsOfUser = "Unknown"
  End If

End Function

Function ListUsersInSystem() As String
'From the Access Security FAQ
'============================

  Dim ws        As DAO.Workspace
  Dim i         As Integer
  Dim strReturn As String
  Dim strName   As String

  Set ws = DBEngine.Workspaces(0)
  For i = 0 To ws.Users.Count - 1
    strName = ws.Users(i).Name
    'Debug.Print strName
    If strName <> "admin" And strName <> "Creator" _
       And strName <> "Engine" Then
      strReturn = strReturn & strName & mcstrSep
    End If
  Next i

  ListUsersInSystem = strReturn

End Function

Function ListUsersOfGroup(strGroup As String) As String
'From the Access Security FAQ
'============================ Dim ws As DAO.Workspace Dim grp As DAO.Group Dim i As Integer Dim strReturn As String Dim strName As String Set ws = DBEngine.Workspaces(0) Set grp = ws.Groups(strGroup) For i = 0 To grp.Users.Count - 1 strName = grp.Users(i).Name 'Debug.Print strName
    strReturn = strReturn & strName & mcstrSep
  Next i

  ListUsersOfGroup = strReturn

End Function

İyi çalışmalar

 

[emre_bademci]

Arkadaşlar ilginiz için teşekkür ederim ama ben access dosyasında kullanıcı tanımladıktan sonra idb dosyası oluşturuyor burdaki kullanıcıları çekmek istiyorum ve formdaki açılan kutuda seçilebilir olmalı

açılan kutunun adı userlist olsun formun neresine bu kodları ekliyince userlist aktif olucak...