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
