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.