AccessTr.neT

Tam Versiyon: aktif kullanıcı görüntüleme hakkında
Şu anda arşiv modunu görüntülemektesiniz. Tam versiyonu görüntülemek için buraya tıklayınız.
Sayfalar: 1 2 3 4
Sayın Celoyce ve Mehmetdemiral;
Teşekkürler
COK TEŞEKKÜRLER AYRINTILI ANLATIMINIZ İÇİN AYRICA PROGRAMI YUKLERKEN BAZI DURUMLARI KALDIRMADIGIM ICIN ÖZUR TESEKKURLER
(15/07/2009, 20:28)mehmetdemiral yazdı: [ -> ]Sizdeki bazı referanslar bende hata verdiği için referanstaki "missing" durumundaki dosyaları kaldırdım. Bu yüzden gönderdiğim dosyada sadece metodu inceleyin ve kendi orjinal dosyanıza ekleyin. Bunu onun yerine koymayın yani.

1- Modül açtık, içine

public kullanici as string

yazıp kaydettik. Sonra giriş ekranında kullanıcı adının kabul edildiği if şartundaki else satırının üstünde bir yerde, formu kapatmadan önce

kullanici= me.USER

yazdık. Sonra açılan formda (hangisini istiyorsanız farketmez) açıldığında olayına AKULLANICI adındaki (yani aktif kullanıcı) metin kutusuna değişkeni yapıştıralım

me.AKULLANICI = kullanici


Bu kadar. Örneğe bakın. nerde hata yapmışsınız?

sayın mehmet demiral
söylediğiniz gibi kayıtlı kullanıcıyı formlarımda gösteriyorum. yalnızca şifre ekranımdan ana formuma geçtiğim zamanda kayıtlı kullanıcı ismini göstermiyor. fakat ana formdan herhangi bir forma geçip tekrar ana forma geldiğimde busefer kayıtlı kullanıcı gösteriyor. yani bi refresh yapılması gerekiyor. fakat ana form form open olayına refresh yaptığım halde göstermiyor. sebebi neolabilir?
Sayın echoes
Sanırım farklı bir çalışmadan bahsediyorsunuz. Örnek eklerseniz mutlaka çözüm alırsınız.
(12/09/2009, 16:02)mehmetdemiral yazdı: [ -> ]Sayın echoes
Sanırım farklı bir çalışmadan bahsediyorsunuz. Örnek eklerseniz mutlaka çözüm alırsınız.

sayın mehmet demiral,
örneği ekledim. refresh yaptığım halde bi türlü güncelleyemiyor.
Problem şu:
Değişkene bilgi göndermeden önce form2 açılıyor. KULLANICI= olarak başlayan satırınız docmd.openform satırının üstünde olmalı. Yani şöyle:

Kod:
Private Sub Komut4_Click()
If Me.w = Me.q.Column(1) Then
KULLANICI = Me.q.Column(0)

DoCmd.OpenForm "form2"

DoCmd.Close acForm, "form1"
End If

End Sub

Kolay gelsin..
Sayfalar: 1 2 3 4