+- AccessTr.neT (https://accesstr.net)
+-- Forum: Microsoft Access (https://accesstr.net/forum-microsoft-access.html)
+--- Forum: Access Cevaplanmış Soruları (https://accesstr.net/forum-access-cevaplanmis-sorulari.html)
+--- Konu Başlığı: Run-time Error '3061: Çok Az Parametre, 1 Bekleniyor Hatası. (/konu-run-time-error-3061-cok-az-parametre-1-bekleniyor-hatasi.html)
Run-time Error '3061: Çok Az Parametre, 1 Bekleniyor Hatası. - volkan.gulbahar - 18/03/2021
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 örneklerden yararlanarak yaptığım form,
Run-time error '3061: çok az parametre, 1 bekleniyor hatası veriyor.
Nasıl çözebilirim?
RE: Run-time Error '3061: Çok Az Parametre, 1 Bekleniyor Hatası. - berduş - 18/03/2021
gerial butonun kodunu aşağıdaki gibi düzenleyip dener misiniz
Dim Kmt As String
Kriter = ""
For Each Secim In ListeAl.ItemsSelected
Kriter = Kriter & "," & ListeAl.Column(0, Secim)
Next Secim
If Len(Kriter) > 0 Then Kriter = " AND ((TSebil.ID) In ( " & Mid(Kriter, 2) & "))"
Kmt = "INSERT INTO TSebilGeriAl ( SeriNo, Marka, DIrsNo, DIrsTrh, StokYeri, Musteri, TEvrak ) " & _
"SELECT TSebil.SeriNo, TSebil.Marka, TSebil.DIrsNo, TSebil.DIrsTrh, 'Depoda' , '' , '' " & _
"FROM TSebil " & _
"WHERE (((TSebil.StokYeri)='Müşteride') AND ((TSebil.Musteri)='" & Me.[MusteriAdı] & "'))" & Kriter & " ;"
CurrentDb.Execute KmtRE: Run-time Error '3061: Çok Az Parametre, 1 Bekleniyor Hatası. - volkan.gulbahar - 21/03/2021
Teşekkürler.