Merhabalar

Stok kartı formunda StokGrup Ekle fonksiyonum çalışır vaziyette ve ben bu kodu F_100_Parametreler Formundan diğer StokMarka ve StokModel Ekle butonları için çalışır hale getiremedim. Resimde görülen çalışır vaziyetteki kodu altında ifadeye çevirdiğim satırlardaki şekilde değiştirdim ama doğal olarak burada hangi ifadeleri kullanmam gerektiğini bilmediğimden hata aldım. Bu kodu nasıl yazmalıyım. Teşekkürler.

Merhaba, 


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"

    

Ozan Bey teşekkür ederim. Sorunsuz çalışıyor. Herşey gönlünüzce olsun.