AccessTr.neT
Kayıtlı bilgilere Listboxtaki veriye tıklayarak ulaşmak - Baskı Önizleme

+- AccessTr.neT (https://accesstr.net)
+-- Forum: Microsoft Access (https://accesstr.net/forum-microsoft-access.html)
+--- Forum: Access Cevaplanmış Soruları (https://accesstr.net/forum-access-cevaplanmis-sorulari.html)
+--- Konu Başlığı: Kayıtlı bilgilere Listboxtaki veriye tıklayarak ulaşmak (/konu-kayitli-bilgilere-listboxtaki-veriye-tiklayarak-ulasmak.html)



Kayıtlı bilgilere Listboxtaki veriye tıklayarak ulaşmak - passenger - 20/08/2009

Merhaba arkadaşlar,
Herşeyden önce mubarek Ramazan ayınızı kutlarım. Kısaca sorunumdan bahsedeyim. Ekte de vermiş olduğum Access çalışmasında formdaki listbox'ta tıkladığım kişinin bilgilerini formdaki gerekli yerlerde görmek istiyorum, yani ulaşmak istiyorum. Birde yorum kısmında da farklı zamanlarda yazılan yorumları eskilerini silmeden history kısmına eklemesini istiyorum. Yardımcı olursanız sevinirim.Access 2003 formatına çevirdim.


Cvp: Kayıtlı bilgilere Listboxtaki veriye tıklayarak ulaşmak - ozanakkaya - 20/08/2009

örneğinizi 2003 formatında (mdb) ekleyiniz.


Cvp: Kayıtlı bilgilere Listboxtaki veriye tıklayarak ulaşmak - gocebe - 21/08/2009

sayın passenger;
liste kutusu tıklandığında ismin benzer olduğu ilk kayda sıçrıyor. ancak bir bana mantık hatası var gibi geldi. kisi isimleri mükerrer olduğunda ilk bulduğuna sıçrayacaktır. tavsiyem ilişikli tablo kullanmak ve benzersiz alanlar ile iki tabloyu ilikşilendirmektir.
ikincisi yorum geçmisi hakkında ilişiksiz ikinci bir not alanı ekledim. kayıt içerikleri görünecektir. yeni yorumunuzu YorumHistory yazdıktan sonra historye ekle butonu ile tablonuz ile ilişkili not alanına aktarmasını sağladım. kodları ve yeni db inceleyiniz.

Kod:
Private Sub Command15_Click()
Me.YorumHistory = Me.YorumHistory & " / " & Now() & " " & Me.YorumHistory1
Me.Refresh
End Sub

Private Sub List13_Click()
'SECİLEN PERSONEL KAYDINI BUL VE ONA SIÇRA
Dim rs As Object
    Set rs = Me.Recordset.Clone
    rs.FindFirst "[Kişi] = '" & Me.List13 & "'"
    If Not rs.EOF Then Me.Bookmark = rs.Bookmark

End Sub

Private Sub List13_GotFocus()
Me.List13.Requery
End Sub




Cvp: Kayıtlı bilgilere Listboxtaki veriye tıklayarak ulaşmak - passenger - 21/08/2009

Sayın gocebe,
Yardımlarınız için çok teşekkür ederim. Gerçekten her işin bir yolunun olduğunu birkez daha gördüm. Zihninize sağlıkAngel


Cvp: Kayıtlı bilgilere Listboxtaki veriye tıklayarak ulaşmak - ay_yildiz197908 - 13/09/2009

passenger öncelikle teşekkürler

bunu nasıl yaptın göresel olarak anlatabilirmisin

saygılar