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