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ışmanız olmadan kesin birşey söylemesi zor ama Kmt sonucu çıkan komut insert into yapısına uymuyor gibi geldi


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

dosya ekte gönderilmiştir.

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