
Merhaba arkadaşlar benim bir tane kullanıcı databasem var buradan login işlemi yaparak diğer databasem olan BTS ye FrmAna formuna ulaşıyorum. Benim isteğim acılan bu formda kullanıcıyı ve firmayı görmek bunu nasıl sağlarım. Tşkürler
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
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. DoCmd.OpenForm "FrmAna", acNormal
me.txtkullanankim=TempVars("blabla")
gibi