Bağlı tablo içeren veri kaynağında filtre işlemi - mehmetb84 - 04/01/2016
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_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 End Sub
için şimdiden teşekkür ederim.
Cvp: Bağlı tablo içeren veri kaynağında filtre işlemi - ozanakkaya - 09/01/2016
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.
Cvp: Bağlı tablo içeren veri kaynağında filtre işlemi - mehmetb84 - 11/01/2016
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.
Cvp: Bağlı tablo içeren veri kaynağında filtre işlemi - mehmetb84 - 20/01/2016
(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.
Cvp: Bağlı tablo içeren veri kaynağında filtre işlemi - atoz112 - 20/01/2016
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.
Cvp: Bağlı tablo içeren veri kaynağında filtre işlemi - ozanakkaya - 20/01/2016
(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.
|