CurrentUser fortsat

Fortsat fra
http://www.eksperten.dk/spm/74495

Thomas skrev

Private sub Form_Current()
  If Me!UserID = CurrentUser then
      Me.AllowEdits = true
  else
      me.AllowEdits = false
  end if
end sub

samt

Private Sub Form_Load()
  Me!UserID.DefaultValue = Currentuser
end sub

og

Private Sub Form_Load()
  Me!UserID.DefaultValue = Currentuser
end sub

Jeg trode ellers at jeg havde fået det rigtige hint, men UserID retuner et nummer og CurrentUser retuner en tekst, så Me.AllowEdits.

I formen \"Contacts\" bliver UserID valgt ud fra en ComboBox med RowSource
SELECT [BrugerNavn].[UserID], [BrugerNavn].[UserName] FROM BrugerNavn;

Men spørgsmålet er: Da det er UserName som skal være = CurrentUser, hvordan får jeg UserID til at retuner en tekst streng istedet for et nummer ??
/DE