+- 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ığı: Bir Formdaki değeri diğer formun alt tablusuna ekleme (/konu-bir-formdaki-degeri-diger-formun-alt-tablusuna-ekleme.html)
Sayfalar:
1
2
Cvp: Bir Formdaki değeri diğer formun alt tablusuna ekleme - mesutyagmur - 29/10/2013
şö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