ç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
	[SORGU] Farklı Tablolarda Yer Alan Satış Bilgilerini Toplama Sorgusu	Lidervet	1	141	09-11-2023, 00:54 Son Mesaj: dsezgin
	Güncelleştirme Sorgusu	omergenc7	2	158	01-10-2022, 02:13 Son Mesaj: omergenc7
	[SORGU] Toplu Il Sorgusu	Satir	19	565	14-08-2022, 12:14 Son Mesaj: halily
	Sql Sorgusu Nasıl Oluşturulur?	Pattinstew12	3	155	02-06-2022, 17:46 Son Mesaj: beab05
	[SORGU] Iki Tablodaki Veriyi Birleştirme Sorgusu	alican60	5	300	10-03-2022, 10:16 Son Mesaj: dsezgin
	Access Sorgusu çalıştırıldığında Yeni Eklemeler Yada Veriler Değişmiyor.	ofbayoglu61	1	245	03-11-2021, 21:17 Son Mesaj: onur_can
	[SORGU] Azalan Stok Sorgusu	cozum@msn.com	12	615	29-10-2021, 10:33 Son Mesaj: halily
	Tekrarlı çalışan Sql Sorgusu Yerine Nasıl Bir çözüm Getirilebilir	adnnfrm	4	276	23-10-2021, 02:17 Son Mesaj: adnnfrm

Oturum Aç




Beni Hatırla Şifremi Unuttum?

Access SQL