Kelime Bulmak

Sn ozanakkaya
bir başka dosya üzerinde tüm sizin kodları uyarlamaya çalıştım.Hatalar arıyorum. Nerede hata yapıyorum.Saatlerce uğraştım olmadı.

Merhaba, 

Forma iki tane geçerli olduğunda olayı eklemişsiniz. Üstteki 

Private Sub Form_Current()

Me.cmb_kategorialt.RowSource = " SELECT kategorialt.id_kategorialt, kategorialt.idfk_kategori, kategorialt.kategorialt FROM kategorialt WHERE kategorialt.idfk_kategori =" & Me.cmb_kategori.Value

Me.cmb_kategorialt.Requery

End Sub

Kodunu kaldır. Ayrıca, diğer kodu da aşağıdaki ile değiştir.

Private Sub Form_Current()

mtn_gecici = ""

mtn_ara = ""

'Me.cmb_kategorialt.RowSource = " SELECT kategorialt.id_kategorialt, kategorialt.idfk_kategori, kategorialt.kategorialt FROM kategorialt WHERE kategorialt.idfk_kategori =" & Me.cmb_kategori.Value

Me.cmb_kategorialt.Requery

End Sub

teşekkürler bana da yaradı bu kod blogu

Sn ozanakkaya teşekkür ederim.İyi ki sizler varsınız...
Gider formunda bu kez Firma alanında da arama yaptırırsak,  yine 2 adet metin kutusu gerekiyor mu.? metin arama ve gecici metin kutuları ile aynı kodlar bloğu yerleştirilecek mi.
 ve yine 2.kez  formda geçerli olduğu kodu işlenecek mi,yoksa orada bulunan form geçerli olduğu alanın altına mı ek yapılacak.Saygılarımla

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.

sn ozanakkaya
bu kez aynı dosyada aciklama alanında arama yaptırmak istedim

Private Sub mtn_ara_aciklama_Change()
Me.mtn_gecici = Me.mtn_ara_aciklama.Text
Me.aciklama.Requery
Me.aciklama = Me.aciklama.ItemData(0)
End Sub

ekledim hata verdi .acaba yanlışım nerede.Selam saygılar