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
