1 - öncelikle liste8in  satır kaynağı olan SRG_PERSOR sorgusuna sicil alanını da eklemelisiniz (sicil alanı her personel için benzersiz alan galiba)
SRG_PERSOR sorgusunun kodu

SELECT TB_PERLİST.Sicili, [Sicili] & " " & [Adı Soyadı] AS PERSONEL

FROM TB_PERLİST

WHERE ((([Sicili] & " " & [Adı Soyadı]) Like "*" & [Formlar]![FR_SORGULAMA]![Metin5] & "*"))

ORDER BY [Sicili] & " " & [Adı Soyadı];

2 - liste8in sütun sayısını 2ye çıkartıp ilk sütunun genişliğini 0 yapın
3 - liste8in çift tıklama olayı:

Private Sub Liste8_DblClick(Cancel As Integer)

StrFiltre = ""

If Not IsNull(Me.Liste8) Then StrFiltre = "SİCİL=" & Me.Liste8

Me.[SRG_ZİMMET_ALT_FRM].Form.Filter = StrFiltre

Me.[SRG_ZİMMET_ALT_FRM].Form.FilterOn = True



End Sub

4 - metin13ün güncelleştirme yada çıkıldığında olayının kodu

Private Sub Metin13_AfterUpdate()

StrFiltre = ""

If Not IsNull(Me.Metin13) And Not IsNull(Me.Liste8) Then  StrFiltre = "MALZEME=" & Me.Metin13 & " and SİCİL=" & Me.Liste8

Me.[SRG_ZİMMET_ALT_FRM].Form.Filter = StrFiltre

Me.[SRG_ZİMMET_ALT_FRM].Form.FilterOn = True

End Sub