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