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

Login esnasında aldığınız kullacı idsini tempvars olarak atayın.
İlgili form açılırken görüntülemek istediğiniz kullanıcı adı alanına bu tempvars değerini atayın, firma bilgisini de bu veri üzerinden sorgulayarak işletebilirsiniz.

ilginiz için teşekkürler fakat tempvars ile ilgili taşıma işini yapamadım mesaj verdiriyorum . konu ile alakalı kod örneği var mı?

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.

verdiğiniz bilgi için teşekkürler
ben aynı database içinde taşıma işini hallettim.

Şöyleki
kullanici.accdb nin kendi içinde formlar arası
FrmLogin den FRMHOME kullanıcı adını taşıdım.

burada sıkıntı yok.
benim asıl sıkıntım
kullanici.accdb veri tabanından FrmLogin den giriş yapınca kullanıcı adının

PTS.accdb de ki FrmAna formuna taşınması. bunu başaramadım.

başardığım kod şu

Private Sub Komut32_Click()
TempVars("Kullanici") = KullaniciNick.Value
DoCmd.OpenForm "FRMHOME", acNormal
End Sub

ilgili formu çağırdığınız docmd.openform "FrmAna".... komutundan hemen sonra bu formda hangi alanı tanımladıysanız kullanıcı bilgisi için o alana tempvars değerini atayın.

DoCmd.OpenForm "FrmAna", acNormal

me.txtkullanankim=TempVars("blabla")

gibi