bahsettiğiniz talebinize yönelik olarak;
1)
Musteri_ara adlı formun üzerindeki Liste1 adlı listenin TIKLANDIĞINDA olay yordamı içerisindeki kodları
If CurrentProject.AllForms("Mekanik_Siparis").IsLoaded Then
Forms![Mekanik_Siparis]![cari_kod_Tbl_Musteriler] = Forms![Musteri_ara]![Liste1].Column(1)
Forms![Mekanik_Siparis]![Adı_Soyadı] = Forms![Musteri_ara]![Liste1].Column(2)
ElseIf CurrentProject.AllForms("Perde_Siparis").IsLoaded Then
Forms![Perde_Siparis]![cari_kod] = Forms![Musteri_ara]![Liste1].Column(1)
Forms![Perde_Siparis]![Musteri] = Forms![Musteri_ara]![Liste1].Column(2)
End If
DoCmd.Close acForm, "Musteri_ara"kodları ile değiştiriniz.
2)
Firma_ara adlı formun üzerindeki Liste0 adlı listenin TIKLANDIĞINDA olay yordamı içerisindeki kodları
If CurrentProject.AllForms("Perde_Siparis").IsLoaded Then
Forms![Perde_Siparis]![Firmakodu] = Forms![Firma_ara]![Liste0].Column(1)
Forms![Perde_Siparis]![Firma] = Forms![Firma_ara]![Liste0].Column(2)
ElseIf CurrentProject.AllForms("Mekanik_Siparis").IsLoaded Then
Forms![Mekanik_Siparis]![Firmakodu] = Forms![Firma_ara]![Liste0].Column(1)
Forms![Mekanik_Siparis]![Firma] = Forms![Firma_ara]![Liste0].Column(2)
End If
DoCmd.Close acForm, "Firma_ara"kodları ile değiştiriniz.
bilginize...iyi çalışmalar,saygılar.
