Liste kutusunun çift tıklandığında olayındaki kod eksik. Geçerli kodlamaya göre sadece cboStokGrup isimli açılan kutuya işlem yapar. lstListe isimli liste kutusunun çift tıklandığında olayındaki kodu aşağıdaki ile değiştirerek deneyiniz.
KaynakSecimi = Me.OpenArgs
Select Case KaynakSecimi
Case "StokGrup"
Forms!F_010_Stok.SetFocus
Forms!F_010_Stok!cboStokGrup = lstListe.Column(1)
DoCmd.Close acForm, "F_100_Parametreler"
Case "StokMarka"
Forms!F_010_Stok.SetFocus
Forms!F_010_Stok!cboStokMarka = lstListe.Column(1)
DoCmd.Close acForm, "F_100_Parametreler"
Case "StokModel"
Forms!F_010_Stok.SetFocus
Forms!F_010_Stok!cboStokModel = lstListe.Column(1)
DoCmd.Close acForm, "F_100_Parametreler"
' Case "CariGrup"
' Forms!F_010_Stok.SetFocus
' Forms!F_010_Stok!cboStokGrup = lstListe.Column(1)
' DoCmd.Close acForm, "F_100_Parametreler"