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

1 2
04/01/2016, 15:00

mehmetb84

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.
09/01/2016, 08:20

ozanakkaya

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.
11/01/2016, 13:59

mehmetb84

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.
20/01/2016, 17:04

mehmetb84

(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.
20/01/2016, 17:13

atoz112

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.
20/01/2016, 17:27

ozanakkaya

(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.
1 2