A.S.C Filtre, Grafik ve Raporlama Eklentisi

çok Parametreli Sql Sorgusu
#25
(06-04-2021, 00:50)dsezgin demiş ki:
(06-04-2021, 00:45)adnnfrm demiş ki: Fakat "kısa metin" e çevirdiğimde kodda hata aldım. Onu nasıl düzeltebilirim.

X1 alanlarını metne çevirdim, diğerleri veri tipi sayı, hata vermeden çalıştı.

Sizin metodunuzda o hatayı vermedi fakat ben Halil hocamın onay kutulu metodunu kullnacağım büyük ihtimalle onda hata verdi kısa metin yapınca alan.



  Alıntı
Bu mesajı beğenenler:
#26
Visual Basic
  1. For x = 1 To 200
  2. If Controls("X" & x) = True Then
  3. SqlSil = "delete * from tmptablo1 where ([X" & x & "] not In (select [X" & x & "] from [Tablo2]))"
  4. CurrentDb.Execute SqlSil
  5. End If
  6. Next x


buradaki SqlSil aşağıdaki kodla değiştirip dener misiniz?
Visual Basic
  1. SqlSil = "delete * from tmptablo1 where (cstr([X" & x & "]) not In (select [X" & x & "] from [Tablo2]))"





  Alıntı
Bu mesajı beğenenler:
#27
Maalesef hocam yine aynı hata. 
Dosyanın son şekli ekte mevcuttur.


Eklenti Dosyaları
.rar   adnnfrm.rar (Boyut: 2,76 MB / İndirilme: 9)



  Alıntı
Bu mesajı beğenenler:
#28
sorun galiba sizin tmptablo1 deki alanları kısa metin yapmamanızdan kaynaklanıyor çalışmayı değiştirdim tabloyu kendisi çalışma anında oluşturuyor böylece ana tablodaki alan türlei değişse bile sizin tmp tabloyu değiştirmenize gerek kalmıyor dilerim işinize yarar
kullanılan kodlar
Visual Basic
  1. Private Sub Cereceve_AfterUpdate()
  2.  
  3. For x = 1 To 200
  4.    If Me.Cereceve = 3 Then Controls("x" & x) = -1 - (Controls("x" & x)) Else Controls("x" & x) = Me.Cereceve
  5. Next x
  6. End Sub


form kapatılırken geçici tabloyu silme
Visual Basic
  1. Private Sub Form_Close()
  2. TmpTblSil
  3. End Sub


Visual Basic
  1. Private Sub Komut386_Click()
  2. TmpTblSil
  3. CurrentDb.Execute "SELECT * INTO [TmpTblSil] FROM [Tablo1];"
  4. 'hy__________________________________________Sorgu Güncelle
  5. For x = 1 To 200
  6. If Controls("X" & x) = True Then
  7. SqlSil = "delete * from TmpTblSil where ([X" & x & "] not In (select [X" & x & "] from [Tablo2]))"
  8. CurrentDb.Execute SqlSil
  9. End If
  10. Next x
  11. Me.Afrm.Form.RecordSource = "TmpTblSil"
  12. MsgBox "Bitti"
  13.  
  14. End Sub


geçici tabloyu silme kodu
Visual Basic
  1. Function TmpTblSil()
  2. On Error Resume Next
  3. Me.Afrm.Form.RecordSource = ""
  4. CurrentDb.Execute "drop table TmpTblSil"
  5.  
  6. End Function




Eklenti Dosyaları
.rar   AdnaFrm_in select_hy7.rar (Boyut: 2,34 MB / İndirilme: 9)



  Alıntı
Bu mesajı beğenenler:
#29
Hocam,
Tekrar tekrar teşekkür ederim. Çok faydalı ve güzel bir geliştirme oldu. Elinize sağlık.

Saygılarımla



  Alıntı
Bu mesajı beğenenler:
#30
rica ederim
İyi çalışmalar)



  Alıntı
Bu mesajı beğenenler:


Benzer Konular...
Konu: Yazar Cevaplar: Gösterim: Son Mesaj
  [SORGU] Ilk Ve Son Tarih Sorgusu sdurg 1 142 20-03-2021, 17:51
Son Mesaj: dsezgin
  [SORGU] 2 Tablo Arasında Güncelleme Sorgusu lemoncher2 6 323 17-01-2021, 22:33
Son Mesaj: lemoncher2
  Veritabanından Tarih Sorgusu yahyamacit 7 249 06-12-2020, 15:30
Son Mesaj: halily
  [SORGU] Ekleme Ve Silme Sorgusu blumanx 2 300 16-06-2020, 17:01
Son Mesaj: blumanx
  [VBA] Dizi Parametreli Sorgu Hatası salcasel 6 360 11-02-2020, 18:20
Son Mesaj: salcasel
access-sql-9 [SORGU] Excel Vba Access Arama Sorgusu Yavuzmumcu 1 680 01-02-2020, 14:10
Son Mesaj: userx53
  Il Ve Ilçe Sorgusu Satir 16 870 09-12-2019, 10:28
Son Mesaj: Satir
  [SORGU] Run-time Error '3340' "sorgusu Bozuk Hatası ÜmitSamlı 8 845 02-12-2019, 10:22
Son Mesaj: ÜmitSamlı

Foruma Git:


Bu konuyu görüntüleyen kullanıcı(lar): 1 Ziyaretçi