şöyle bişey yaptım


Private Sub Liste1_DblClick(Cancel As Integer)
MsgBox (Forms.uruncagir.Liste1)
'MsgBox (Forms.Siparis1.Barkod)
[Form_Siparis_Urun Alt Form1].Barkod = Form_UrunCagir.Liste1

[Form_Siparis_Urun Alt Form1].Urun_Kod = [Form_Siparis_Urun Alt Form1].Barkod.Column(1)
[Form_Siparis_Urun Alt Form1].Urun_Adi = [Form_Siparis_Urun Alt Form1].Barkod.Column(2)
[Form_Siparis_Urun Alt Form1].Birim = [Form_Siparis_Urun Alt Form1].Barkod.Column(3)
[Form_Siparis_Urun Alt Form1].Kdv = [Form_Siparis_Urun Alt Form1].Barkod.Column(5)
[Form_Siparis_Urun Alt Form1].En = [Form_Siparis_Urun Alt Form1].Barkod.Column(6)
[Form_Siparis_Urun Alt Form1].Boy = [Form_Siparis_Urun Alt Form1].Barkod.Column(7)
[Form_Siparis_Urun Alt Form1].Yukseklik = [Form_Siparis_Urun Alt Form1].Barkod.Column(8)
[Form_Siparis_Urun Alt Form1].Fiyat = [Form_Siparis_Urun Alt Form1].Barkod.Column(10)
'Forms!Siparis1!siparis_urun.Barkod = Forms!uruncagir!Liste1
End Sub

P