Merhaba arkadaşlar,
aşağıdaki kodda hata alıyorum.


Hata penceresinde ise çok az parametre. 2 Bekleniyor yazmakta. Bu konuda bilgisi olan var mı? Nerede hata yapıyorum? Teşekkürler.
Not: Aynı sorguyu sorgu sihirbazı kullanarak oluşturduğumda hata almıyorum.

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