Merhaba,

mtn_arafirma isimli metin kutusunun değiştiğinde olayına, mtn_ara metin kutusundaki gibi kod eklemeniz gerekli,

Private Sub mtn_arafirma_Change()

Me.mtn_gecici = Me.mtn_arafirma.Text

Me.id_odeme_yapilan_firma.Requery

Me.id_odeme_yapilan_firma = Me.id_odeme_yapilan_firma.ItemData(0)

End Sub

Ayrıca, id_odeme_yapilan_firma açılan kutusunun satır kaynağındaki sorguya da arama yapılacak alan için kriter eklemeniz gerekli.

id_odeme_yapilan_firma açılan kutusunun satır kaynağındaki sorgu

SELECT firma.id_firma, firma.firma FROM firma WHERE (((firma.firma) Like "*" & [Forms]![gider]![mtn_gecici] & "*"));

Şeklinde olmalıdır.