Skip to main content

AccessTr.neT


Bağlı tablo içeren veri kaynağında filtre işlemi

Bağlı tablo içeren veri kaynağında filtre işlemi

Çözüldü #1
Merhaba arkadaşlar,
Ekteki veritabanımda göreceğiniz üzere; siparishambez formunda çerçevenin içinde (tümü, dokundu, dokunmadı) filtre seçeneği var. Bu seçeneğe ait kodu her zaman olduğu gibi kayıt kaynağında yarattığım sorguyu Sql görünümünden kopyalamak suretiyle yarattım. Fakat kayıt kaynağında birden fazla tablo olması dolayısıyla kod yazarken hata verdi. "Inner joint" kısmında problem var sanırım. Hem kodu buraya yapıştırıyorum, hem de veritabanını ekliyorum. İlginiz
PHP Kod:
Private Sub tercih_BeforeUpdate(Cancel As Integer)
If 
tercih 1 Then
Me
.RecordSource "SELECT t_hambezsiparis.hamsip_oto, t_hambezsiparis.hamsip_no, t_hambezsiparis.hamsip_urunadi, t_hambezsiparis.hamsip_tarihi, t_hambezsiparis.hamsip_satici, t_hambezsiparis.hamsip_termin, t_hambezsiparis.hamsip_vadegun, t_hambezsiparis.hamsip_vadetar, t_hambezsiparis.hamsip_metraj, t_hambezsiparis.hamsip_fiyat, t_hambezsiparis.hamsip_not, t_hambezsiparis.hamsip_ithal, t_hambezsiparis.hamsip_KEP, t_urunler.Urun_adi, t_urunler.Urun_cozgu, t_urunler.Urun_atkino, t_urunler.Urun_atki, t_urunler.Urun_siklik1, t_urunler.Urun_hcsik, t_urunler.Urun_hasik, t_urunler.Urun_mcsik, t_urunler.Urun_masik, t_urunler.Urun_hamen, t_urunler.Urun_taraken, t_urunler.Urun_hgramaj, t_urunler.Urun_mgramaj, t_urunler.Urun_orgu, t_urunler.Urun_not, t_urunler.Urun_no, t_hambezsiparis.hamsip_fiyparabir, t_urunler.Urun_cozguno, t_hambezsiparis.hamsip_kimlik, t_hambezsiparis.hamsip_dokbitti, t_hambezsiparis.durum"
FROM t_urunler INNER JOIN t_hambezsiparis ON t_urunler.Urun_adi t_hambezsiparis.hamsip_urunadi;"
Me.Requery
End If




If tercih = 2 Then
Me.RecordSource = "
SELECT t_hambezsiparis.hamsip_otot_hambezsiparis.hamsip_not_hambezsiparis.hamsip_urunadit_hambezsiparis.hamsip_tarihit_hambezsiparis.hamsip_saticit_hambezsiparis.hamsip_termint_hambezsiparis.hamsip_vadegunt_hambezsiparis.hamsip_vadetart_hambezsiparis.hamsip_metrajt_hambezsiparis.hamsip_fiyatt_hambezsiparis.hamsip_nott_hambezsiparis.hamsip_ithalt_hambezsiparis.hamsip_KEPt_urunler.Urun_adit_urunler.Urun_cozgut_urunler.Urun_atkinot_urunler.Urun_atkit_urunler.Urun_siklik1t_urunler.Urun_hcsikt_urunler.Urun_hasikt_urunler.Urun_mcsikt_urunler.Urun_masikt_urunler.Urun_hament_urunler.Urun_tarakent_urunler.Urun_hgramajt_urunler.Urun_mgramajt_urunler.Urun_orgut_urunler.Urun_nott_urunler.Urun_not_hambezsiparis.hamsip_fiyparabirt_urunler.Urun_cozgunot_hambezsiparis.hamsip_kimlikt_hambezsiparis.hamsip_dokbittit_hambezsiparis.durum"
FROM t_urunler INNER JOIN t_hambezsiparis ON t_urunler.Urun_adi = t_hambezsiparis.hamsip_urunadi
WHERE (((t_hambezsiparis.hamsip_dokbitti)=Yes));"
Me.Requery
End 
If




If 
tercih 3 Then
Me
.RecordSource "SELECT t_hambezsiparis.hamsip_oto, t_hambezsiparis.hamsip_no, t_hambezsiparis.hamsip_urunadi, t_hambezsiparis.hamsip_tarihi, t_hambezsiparis.hamsip_satici, t_hambezsiparis.hamsip_termin, t_hambezsiparis.hamsip_vadegun, t_hambezsiparis.hamsip_vadetar, t_hambezsiparis.hamsip_metraj, t_hambezsiparis.hamsip_fiyat, t_hambezsiparis.hamsip_not, t_hambezsiparis.hamsip_ithal, t_hambezsiparis.hamsip_KEP, t_urunler.Urun_adi, t_urunler.Urun_cozgu, t_urunler.Urun_atkino, t_urunler.Urun_atki, t_urunler.Urun_siklik1, t_urunler.Urun_hcsik, t_urunler.Urun_hasik, t_urunler.Urun_mcsik, t_urunler.Urun_masik, t_urunler.Urun_hamen, t_urunler.Urun_taraken, t_urunler.Urun_hgramaj, t_urunler.Urun_mgramaj, t_urunler.Urun_orgu, t_urunler.Urun_not, t_urunler.Urun_no, t_hambezsiparis.hamsip_fiyparabir, t_urunler.Urun_cozguno, t_hambezsiparis.hamsip_kimlik, t_hambezsiparis.hamsip_dokbitti, t_hambezsiparis.durum"
FROM t_urunler INNER JOIN t_hambezsiparis ON t_urunler.Urun_adi t_hambezsiparis.hamsip_urunadi
WHERE 
(((t_hambezsiparis.hamsip_dokbitti)=No));"
Me.Requery
End If
End Sub 
için şimdiden teşekkür ederim.
.rar filtre.rar (Dosya Boyutu: 53,96 KB | İndirme Sayısı: 11)
Cevapla
#2
Formun kayıt kaynağını niye değiştirmek istediğinizi anlayamadım. Tercih kısmından seçim yapınca liste kutusu mu yenilenecek?

Ayrıca, örnek uygulamalarınızda "boş tablo göndermezseniz" açtığımızda ne yapmak istediğinizi daha rahat anlarız.
Cevapla
#3
Tercih kutusundan yaptığım seçime göre, kayıt alanlarından t_hambezsiparis.[hamsip_dokbitti] evet hayır ve evet+hayır olarak üç seçeneğin görünmesini istiyorum. Bunu da liste kutusundan kayıtkaynağı recordseti düzenleyerek yapıyordum. Fakat kayıt kaynağında bu defa bağlı bir tablo ve alanları var. O durumda sorgudan kopyaladığım Sql kodunu VB çalıştırmadı. Innerjoin kısmında hata verdi.

Kayıt ekleme konusunda uyarınızı bundan sonra dikkate alacağım. kusuruma bakmayın.
Cevapla
#4
(11/01/2016, 13:59)mehmetb84 yazdı: Tercih kutusundan yaptığım seçime göre, kayıt alanlarından  t_hambezsiparis.[hamsip_dokbitti] evet hayır ve evet+hayır olarak üç seçeneğin görünmesini istiyorum. Bunu da liste kutusundan kayıtkaynağı recordseti düzenleyerek yapıyordum. Fakat kayıt kaynağında bu defa bağlı bir tablo ve alanları var. O durumda sorgudan kopyaladığım Sql kodunu VB çalıştırmadı. Innerjoin kısmında hata verdi.

Kayıt ekleme konusunda uyarınızı bundan sonra dikkate alacağım. kusuruma bakmayın.
Cevapla
#5
Sayın mehmetb84,

Öncelikle,
eğer sorununuzun devamı söz konusu ise ya da konu halen güncelliğini korumaktaysa;lütfen, sadece alıntı yapmak yerine ya konunun halen güncel olduğunu veya olası bir ilerleme elde ettiyseniz harici araştırmalarınız neticesinde bunları paylaşmanız daha yerinde olur.

Ayrıca,sayın ozan bey’in yazdıkları ve talep ettikleri

Alıntı:...Ayrıca, örnek uygulamalarınızda "boş tablo göndermezseniz" açtığımızda ne yapmak istediğinizi daha rahat anlarız...

Örnek uygulamanızda istenildiği gibi veri içeren tabloları dahil ederek yeni bir örnek ekleme durumunuz söz konusu oldu mu?

Alıntı:...Innerjoin kısmında hata verdi...


ifadenize yönelik olarak;aldığınız bu hatanın gerek tam açıklamasını ve gerekse de en uygunu ekran görüntüsünü konunuza dahil ediniz.

Bilginize…iyi çalışmalar,saygılar.
Herkes, kendisinin AR-GE'cisidir...


Konulara eklenen Uygulama içeriğine yönelik Tavsiyeler
Alt Form Denetim Değerlerine ulaşma ve Alt Form Güncelleme
Kapatırken Düzenle (Compact On Close) Seçeneğinin İşaretlenmesi Hakkında
Cevapla
#6
(11/01/2016, 13:59)mehmetb84 yazdı: Bunu da liste kutusundan kayıtkaynağı recordseti düzenleyerek yapıyordum.


Siz Tümü, dokundu dokunmadı şeklinde seçim yaparak liste kutusundaki verileri mi güncellemek istiyorsunuz?

Ayrıca sizin yazdığınız kodlama hatalı, düzgün hali;

If tercih = 1 Then
Me.RecordSource = "SELECT t_hambezsiparis.hamsip_oto, t_hambezsiparis.hamsip_no, t_hambezsiparis.hamsip_urunadi, t_hambezsiparis.hamsip_tarihi, t_hambezsiparis.hamsip_satici, t_hambezsiparis.hamsip_termin, t_hambezsiparis.hamsip_vadegun, t_hambezsiparis.hamsip_vadetar, t_hambezsiparis.hamsip_metraj, t_hambezsiparis.hamsip_fiyat, t_hambezsiparis.hamsip_not, t_hambezsiparis.hamsip_ithal, t_hambezsiparis.hamsip_KEP, t_urunler.Urun_adi, t_urunler.Urun_cozgu, t_urunler.Urun_atkino, t_urunler.Urun_atki, t_urunler.Urun_siklik1, t_urunler.Urun_hcsik, t_urunler.Urun_hasik, t_urunler.Urun_mcsik, t_urunler.Urun_masik, t_urunler.Urun_hamen, t_urunler.Urun_taraken, t_urunler.Urun_hgramaj, t_urunler.Urun_mgramaj, t_urunler.Urun_orgu, t_urunler.Urun_not, t_urunler.Urun_no, t_hambezsiparis.hamsip_fiyparabir, t_urunler.Urun_cozguno, t_hambezsiparis.hamsip_kimlik, t_hambezsiparis.hamsip_dokbitti, t_hambezsiparis.durum FROM t_urunler INNER JOIN t_hambezsiparis ON t_urunler.Urun_adi = t_hambezsiparis.hamsip_urunadi;"
Me.Requery
End If

If tercih = 2 Then
Me.RecordSource = "SELECT t_hambezsiparis.hamsip_oto, t_hambezsiparis.hamsip_no, t_hambezsiparis.hamsip_urunadi, t_hambezsiparis.hamsip_tarihi, t_hambezsiparis.hamsip_satici, t_hambezsiparis.hamsip_termin, t_hambezsiparis.hamsip_vadegun, t_hambezsiparis.hamsip_vadetar, t_hambezsiparis.hamsip_metraj, t_hambezsiparis.hamsip_fiyat, t_hambezsiparis.hamsip_not, t_hambezsiparis.hamsip_ithal, t_hambezsiparis.hamsip_KEP, t_urunler.Urun_adi, t_urunler.Urun_cozgu, t_urunler.Urun_atkino, t_urunler.Urun_atki, t_urunler.Urun_siklik1, t_urunler.Urun_hcsik, t_urunler.Urun_hasik, t_urunler.Urun_mcsik, t_urunler.Urun_masik, t_urunler.Urun_hamen, t_urunler.Urun_taraken, t_urunler.Urun_hgramaj, t_urunler.Urun_mgramaj, t_urunler.Urun_orgu, t_urunler.Urun_not, t_urunler.Urun_no, t_hambezsiparis.hamsip_fiyparabir, t_urunler.Urun_cozguno, t_hambezsiparis.hamsip_kimlik, t_hambezsiparis.hamsip_dokbitti, t_hambezsiparis.durum FROM t_urunler INNER JOIN t_hambezsiparis ON t_urunler.Urun_adi = t_hambezsiparis.hamsip_urunadi " & _
"WHERE (((t_hambezsiparis.hamsip_dokbitti)=Yes));"
Me.Requery
End If

If tercih = 3 Then
Me.RecordSource = "SELECT t_hambezsiparis.hamsip_oto, t_hambezsiparis.hamsip_no, t_hambezsiparis.hamsip_urunadi, t_hambezsiparis.hamsip_tarihi, t_hambezsiparis.hamsip_satici, t_hambezsiparis.hamsip_termin, t_hambezsiparis.hamsip_vadegun, t_hambezsiparis.hamsip_vadetar, t_hambezsiparis.hamsip_metraj, t_hambezsiparis.hamsip_fiyat, t_hambezsiparis.hamsip_not, t_hambezsiparis.hamsip_ithal, t_hambezsiparis.hamsip_KEP, t_urunler.Urun_adi, t_urunler.Urun_cozgu, t_urunler.Urun_atkino, t_urunler.Urun_atki, t_urunler.Urun_siklik1, t_urunler.Urun_hcsik, t_urunler.Urun_hasik, t_urunler.Urun_mcsik, t_urunler.Urun_masik, t_urunler.Urun_hamen, t_urunler.Urun_taraken, t_urunler.Urun_hgramaj, t_urunler.Urun_mgramaj, t_urunler.Urun_orgu, t_urunler.Urun_not, t_urunler.Urun_no, t_hambezsiparis.hamsip_fiyparabir, t_urunler.Urun_cozguno, t_hambezsiparis.hamsip_kimlik, t_hambezsiparis.hamsip_dokbitti, t_hambezsiparis.durum " & _
"FROM t_urunler INNER JOIN t_hambezsiparis ON t_urunler.Urun_adi = t_hambezsiparis.hamsip_urunadi WHERE (((t_hambezsiparis.hamsip_dokbitti)=No));"
Me.Requery
End If

Siz bu kodu çalıştırarak formun kayıt kaynağını değiştiriyorsunuz. Örnek uygulamanıza veri girerek tekrar gönderin, yapılmasını istediğiniz işlemi belirtin.
Cevapla

Bir hesap oluşturun veya yorum yapmak için giriş yapın

Yorum yapmak için üye olmanız gerekiyor

ya da