Arkadaşlar AÇILAN KUTU ekledim çalışırken birden bu hatayı vermeye başladı. Aslında hiç bir şey yapmadım. Nasıl oldu bende anlamadım. Eğer yardım ederseniz çok sevinirim.
Yazdığım Programı aşağıya ekledim. İlginize Şimdiden teşekkürler. İyi çalışmalar...
Açılan kutunun "satır kaynak türü"nü "Tablo/Sorgu" olarak değiştirdim.
Açılan kutunun denetim kaynağını sildim.
Güncellenme sonrasında olayına aşağıdaki kodu ekledim.
Private Sub Açılan_Kutu68_AfterUpdate()
' Denetime uyan kaydı bul.
Dim rs As Object
Set rs = Me.Recordset.Clone
rs.FindFirst "[TC KİMLİK NO] = '" & Me![Açılan Kutu68] & "'"
If Not rs.EOF Then Me.Bookmark = rs.Bookmark
End Sub
sorgudadaki Adı soyadı alanını 2. satıra alıp açılan kutunun sütun sayısını 2 yapıp sütun genişliklerini 0cm;2,542cm olarak değiştirdim.
Doğru açılan kutudan bahsediyorsak şu anda sorunsuz çalışıyor.
Ayrıca konu başlığınızdaki "Acil Yardım" ibaresi silinmiştir.
sledgeab
Arkadaşım, Teşekkür ederim. Doğru AÇILAN KUTU'dan bahsediyoruz..
Eline sağlık, İyi akşamlar..