A.S.C Filtre, Grafik ve Raporlama Eklentisi

Run-time Error '3061: çok Az Parametre, 1 Bekleniyor Hatası.
#1
form içinde,   sorgudan veri alan liste kutusundaki 5 kolonluk verileri tıklama ile,   formun alt formunu aktaran,  yine alt forma formdan gelen  3 alanı ekleyerek,  altformdaki 8 kolonluk verilerin bir tabloya yazılması konusunda sizlerin oluşturduğu örnekten aldığım aşağıdaki kodların sonucunda,

Run-time error '3061:     çok az parametre, 1 bekleniyor hatası.


Dim Sebil, Kriter As String
Private Sub ListeAl_Click()

Dim Secim As Variant

Kriter = ""
 For Each Secim In ListeAl.ItemsSelected
 Kriter = Kriter & "," & ListeAl.Column(0, Secim)
 Next Secim
 
Dolap = "SELECT SorguGeriAl.ID, SorguGeriAl.SeriNo, SorguGeriAl.Marka, SorguGeriAl.DIrsNo, SorguGeriAl.DIrsTrh FROM SorguGeriAl"
If Len(Kriter) > 0 Then Dolap = Dolap & " WHERE SorguGeriAl.ID in (" & Mid(Kriter, 2) & ")"
FDolapGeriAlAltFormu.Form.RecordSource = Dolap

End Sub

Private Sub GeriAl_Click()
Dim Kmt As String
Kmt = Replace(Sebil, "SorguGeriAl.ID,", vbNullString)
Kmt = Replace(Kmt, "Select", "INSERT INTO TDolapGeriAl ( SeriNo, Marka, DIrsNo, DIrsTrh, StokYeri, Musteri, TEvrak ) Select")
Kmt = Replace(Kmt, "FROM", ", '" & StokYeri & "', '" & Musteri & "','" & TEvrak & "' FROM")

CurrentDb.Execute Kmt

End Sub



  Alıntı
Bu mesajı beğenenler:
#2
çalışmanız olmadan kesin birşey söylemesi zor ama Kmt sonucu çıkan komut insert into yapısına uymuyor gibi geldi
Visual Basic
  1. INSERT INTO TDolapGeriAl ( SeriNo, Marka, DIrsNo, DIrsTrh, StokYeri, Musteri, TEvrak )
  2. Select , 'StokYeri', 'Musteri','TEvrak' FROM


1. olarak bildiğim kadarıyla tablo yada sorgu aynı yapıdaysa alan adlarını almasanız da olur çünkü alan sayısı ve özellikleri aynıdır ama burada alan sayıları farklı birinde 5-6 alan varken diğerinde sadece 3alan var
2. select ten hemen sonra " virgül ," var virgül alanların arasına eklenir
Ama belirttiğim gibi sebilin değerini bilmeden ve kmtnin son değerini görmeden hatanın sebebini bulmak zor



  Alıntı
Bu mesajı beğenenler:
#3
dosya ekte gönderilmiştir.


Eklenti Dosyaları
.rar   GeriAl.rar (Boyut: 33,46 KB / İndirilme: 17)



  Alıntı
Bu mesajı beğenenler:
#4
(17-03-2021, 23:01)volkan.gulbahar demiş ki: Run-time error '3061:     çok az parametre, 1 bekleniyor hatası.



Dolap = "SELECT SorguGeriAl.ID, SorguGeriAl.SeriNo, SorguGeriAl.Marka, SorguGeriAl.DIrsNo, SorguGeriAl.DIrsTrh FROM SorguGeriAl"
If Len(Kriter) > 0 Then Dolap= Dolap & " WHERE SorguGeriAl.ID in (" & Mid(Kriter, 2) & ")"
FDolapGeriAlAltFormu.Form.RecordSource = Dolap



Dolap kelimesinin hepsi Sebil olmali.



  Alıntı
Bu mesajı beğenenler:


Benzer Konular...
Konu: Yazar Cevaplar: Gösterim: Son Mesaj
  Accessda Adı Soyadı Ve Time Ve Tarih Alanım Da Ilk Girileni Göster ahmet114 7 180 15-07-2021, 22:20
Son Mesaj: ahmet114
  Geçerlilik Kuralı Hatası (check Hatası) adnnfrm 5 282 24-03-2021, 21:38
Son Mesaj: halily
  MS Access 1 kaydı anahtar hatası yüzünden tabloya ekleyemiyor" hatası Access70 2 384 24-05-2020, 18:18
Son Mesaj: Access70
  Parametre Hatası m_demir 4 255 07-04-2020, 01:37
Son Mesaj: m_demir
  [SORGU] Run-time Error '3340' "sorgusu Bozuk Hatası ÜmitSamlı 8 956 02-12-2019, 10:22
Son Mesaj: ÜmitSamlı
  Parametre Hatası sefersanli 3 349 27-11-2019, 12:24
Son Mesaj: sefersanli
  [TABLO] Access Runtime Error 3346 kalabakli 8 686 06-10-2019, 23:54
Son Mesaj: kalabakli
  [ADO / DAO] Run time hatası 2465 Ahmet51 11 716 09-09-2019, 11:02
Son Mesaj: Ahmet51

Foruma Git:


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