Skip to main content

AccessTr.neT


Aktif Firma Aktif Kullanıcıyı Database Ler Arası Aktarım

Aktif Firma Aktif Kullanıcıyı Database Ler Arası Aktarım

Çözüldü #1
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
.rar Kullanıcı Taşıma.rar (Dosya Boyutu: 699,2 KB | İndirme Sayısı: 6)
Cevapla
#2
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.
Cevapla
#3
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ı?
Cevapla
#4
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.
Cevapla
#5
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
Cevapla
#6
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
Cevapla

Bir hesap oluşturun veya yorum yapmak için giriş yapın

Yorum yapmak için üye olmanız gerekiyor

ya da