username koppelen aan tabel

[rick1982]

Beste Forumgebruikers,

ik heb een accesbestand waarbij ik een groep mensen formulier x wil laten openen en andere formulier y, dit dient te gebeuren op basis van hun inlog op de PC. Dit is al gelukt door alle gebruikers in VBA te typen, ik wil eigenlijk dat VBA in een tabel met inlognamen kijkt.

Kan iemand mij hierbij helpen?

Dit is wat ik al heb

Option Compare Database

Function username() As String
    username = UCase(Environ("username"))
End Function

Private Sub Knop0_Click()
    Select Case username
    Case Is = ("r.spaan")
    usernamegoed
    Case Else
    usernamefout
    End Select
End Sub

Sub usernamegoed()
Dim naam As String
DoCmd.OpenForm ("frm TC")
DoCmd.Close acForm, ("frm Start")
End Sub

Sub usernamefout()
DoCmd.OpenForm ("frm NAW")
DoCmd.Close acForm, ("frm Start")
End Sub

 

[ReneDirks]

Ih heb 'm zoveel mogelijk in je 'eigen' code gelaten:

Private Sub Knop0_Click()
  dim rst as DAO.RecordSet
  set rst = CurrentDB.OpenRecordSet("SELECT Gebruikersnaam FROM TBL_Gebruikers WHERE Gebruikersnaam='" & UserName & "')
  if rst. recordcount() > 0  then
    usernamegoed
  else
    usernamefout
  endif
  rst.close
End Sub

 

[rick1982]

Beste ReneDirks,

bedankt voor je antwoord.
als ik de code overneem krijg ik een foutmelding op regel3.

doe ik iets fout?

Groeten

Rick

 

[ReneDirks]

Ik heb 'm uit m'n hoofd getypt, ik zie dat er een '"' ontbreekt

set rst = CurrentDB.OpenRecordSet("SELECT Gebruikersnaam FROM TBL_Gebruikers WHERE Gebruikersnaam='" & UserName & "'")
if rst.recordcount() > 0 then
'etc

Uiteraard moet je dan wel een tabel TBL_Gebruikers hebben met veld Gebruikersnaam.

 

[rick1982]

Hij doet het

super bedankt.