Burada bir çok örnekte karşıma çıkan bir user denetiminden hareketle açıklamaya çalışayım size tempvars değişkenini kullanmayı :

Aşağıdaki kodda kullanıcı adı ve şifreyi denetlediniz, sonraki adıma geçmeden önce -x formunun açıllması, * raporunun görüntülenmesi vs.- TempVars("yetkili") olarak yetkili adı bir geçici değişken tanımlamış olursunuz.

Private Sub Btn_Giris_Click()

  

  Dim rs As Recordset

  Set rs = CurrentDb.OpenRecordset("PersonelTablosu", dbOpenSnapshot, dbReadOnly)

    

  rs.FindFirst "Kullanici='" & Me.txtkullaniciadi & "'"

  If rs.NoMatch = True Then

  MsgBox ("Lütfen kullanıcı adınızı kontrol ediniz!"), vbOKOnly

  Me.txtkullaniciadi.SetFocus

  Exit Sub



  End If



  If rs!Sifre <> Me.txtsifre Or IsNull(txtsifre) Then

  MsgBox ("Lütfen Şifrenizi Kontrol Ediniz!"), vbOKOnly

  Me.txt_sifre.SetFocus

  Exit Sub

  

  Else

  

  TempVars("yetkili") = rs!personelID.Value

  

  GoTo 2 ' user ve password kontrolü sonrası yaptıracağınız işlemleri tanımlamak için tanımladığınız adımları ifade etsin

    

  End If

diyelim ki bu ikide xxx adlı bir form açtıracaksınız ve bu formun üzerinde kullanıcı bilgisi ve firma bilgisi görüntülemek istiyorsunuz. Burada görüntüleme yapmak istediğiniz alana ilişkisiz 2 textbox eklediğinizi ve birine txtkullanici diğerine txtfirma adını verdiğinizi düşünelim.

Bu formun yüklendiğinde olayına

Private Sub Form_Load()



me.txtkullanici = TempVars("yetkili")

me.txtfirma = Dlookup ("blablabla", "blabla", "Erisimid=" & TempVars("yetki") & "")

kodunu eklerseniz bu alanlarda kullanıcı adı ve firma bilgisini görüntülersiniz.

En basit bu şekilde anlatabildim. Umarım işinize yarar.