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.