çok Parametreli Sql Sorgusu

adnnfrm · 06-04-2021, 04:09

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

halily · 06-04-2021, 10:04

Visual Basic
For x = 1 To 200
If Controls("X" & x) = True Then
SqlSil = "delete * from tmptablo1 where ([X" & x & "] not In (select [X" & x & "] from [Tablo2]))"
CurrentDb.Execute SqlSil
End If
Next x

buradaki SqlSil aşağıdaki kodla değiştirip dener misiniz?

Visual Basic
SqlSil = "delete * from tmptablo1 where (cstr([X" & x & "]) not In (select [X" & x & "] from [Tablo2]))"

adnnfrm · **Kayıt Tarihi:** 27.11.2019

Maalesef hocam yine aynı hata.
Dosyanın son şekli ekte mevcuttur.

halily · 07-04-2021, 10:07

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
Private Sub Cereceve_AfterUpdate()
 
For x = 1 To 200
    If Me.Cereceve = 3 Then Controls("x" & x) = -1 - (Controls("x" & x)) Else Controls("x" & x) = Me.Cereceve
Next x
End Sub

form kapatılırken geçici tabloyu silme

Visual Basic
Private Sub Form_Close()
TmpTblSil
End Sub

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

geçici tabloyu silme kodu

Visual Basic
Function TmpTblSil()
On Error Resume Next
Me.Afrm.Form.RecordSource = ""
CurrentDb.Execute "drop table TmpTblSil"
 
End Function

adnnfrm · 09-04-2021, 00:43

Hocam,
Tekrar tekrar teşekkür ederim. Çok faydalı ve güzel bir geliştirme oldu. Elinize sağlık.

Saygılarımla

halily · 09-04-2021, 00:54

rica ederim
İyi çalışmalar)

Benzer Konular...
Konu:		Yazar	Cevaplar:	Gösterim:	Son Mesaj
	Güncelleme Sorgusu çalışmıyor ?	karaayhan	3	400	05-04-2025, 22:08 Son Mesaj: karaayhan
	Tablodaki Alanı Alt Tablodan Alınan Değerle Güncelleme Sorgusu	Lidervet	7	637	02-12-2024, 11:20 Son Mesaj: halily
	Formda Liste Sorgusu	anno	1	345	15-07-2024, 00:29 Son Mesaj: dsezgin
	Gücelleme Sorgusu	evren89	2	352	18-05-2024, 23:19 Son Mesaj: evren89
	[SORGU] Farklı Tablolarda Yer Alan Satış Bilgilerini Toplama Sorgusu	Lidervet	1	481	09-11-2023, 00:54 Son Mesaj: dsezgin
	Güncelleştirme Sorgusu	omergenc7	2	385	01-10-2022, 02:13 Son Mesaj: omergenc7
	[SORGU] Toplu Il Sorgusu	Satir	19	1.155	14-08-2022, 12:14 Son Mesaj: halily
	Sql Sorgusu Nasıl Oluşturulur?	Pattinstew12	3	425	02-06-2022, 17:46 Son Mesaj: beab05

Oturum Aç




Beni Hatırla Şifremi Unuttum?

Access SQL