Öncelikle çok teşekkür ederim.Programı baştan aşağı gözden geçirmiş , mantığını kavramaya çalışmışsınız.
Evet haklısınız çok Dlookup fonksiyonu kulandım. Çünkü programı yazmaya başladığımda başka türlü nasıl yapılır bilmiyordum. Şimdi Ado ile de yapılabileceğini biliyorum. Program genel hatlarıyla bitince onları ve diğer bazı kodları değiştirmeyi düşünüyorum.
Sizin değitirdiğiniz örneğe gelince;
1- Listeye clicklediğimizde liste kutusu geçici olarak kayboluyor
2- Listede gezinirken hasta veritanabında kayıtlı olmayan hastanın (bilgilerini kaynaktan almayan ) alanları başka kayıtlardan geliyor. Tüm alanlar dolu gözüküyor.
3- Öğrenmek amacıyla aşağıda eklediğiniz kodun ne iş yaptığını sorabilir miyim?
Kod:
Private Sub kaynakliste_AfterUpdate()
On Error GoTo hata:
' Denetime uyan kaydı bul.
Dim rs As Object
Set rs = Me.Recordset.Clone
rs.FindFirst "[Kimlik] = " & Str(Nz(Me![kaynakliste], 0))
If Not rs.EOF Then Me.Bookmark = rs.Bookmark
hata: Exit Sub
End Sub
Zahmet verdiğimin farkındayım. Bu kadar çabanız bile şükran duymama için yeterli. Saygılarımla kalın sağlıcakla.