A.S.C Filtre, Grafik ve Raporlama Eklentisi

[FORM] Formdan Forma Veri Aktarma
#1
Herkese selam,

Aşağıda resimlerini eklediğim formlar arasında (1nci den 2nciye) çoklu veri aktarmak istiyorum. Verileri tek tek aktarabiliyorum ama birinci formdaki EKLE alanını işaretlemek suretiyle işaretli verileri ikinci forma aktarmak istiyorum. 1nci formdaki AKTAR butonunun altındaki kod aşağıdadır.

Private Sub Komut29_Click()

If Forms![Frm_Emlak_Musteri_Teklifi_Malzeme_Ekleme]![AltForm_Proje_Firma_Malzeme_Teklif_Ekle].[Form]![Ekle] = -1 Then

Forms![Frm_Emlak_Musteri_Teklifi]![AltForm_Musteri_Proje_Malzeme_Teklif_List].[Form]![StokNu] = Forms![Frm_Emlak_Musteri_Teklifi_Malzeme_Ekleme]![AltForm_Proje_Firma_Malzeme_Teklif_Ekle].[Form]![StokNu]
Forms![Frm_Emlak_Musteri_Teklifi]![AltForm_Musteri_Proje_Malzeme_Teklif_List].[Form]![MlzCinsi] = Forms![Frm_Emlak_Musteri_Teklifi_Malzeme_Ekleme]![AltForm_Proje_Firma_Malzeme_Teklif_Ekle].[Form]![MlzCinsi]
Forms![Frm_Emlak_Musteri_Teklifi]![AltForm_Musteri_Proje_Malzeme_Teklif_List].[Form]![MarkaModel] = Forms![Frm_Emlak_Musteri_Teklifi_Malzeme_Ekleme]![AltForm_Proje_Firma_Malzeme_Teklif_Ekle].[Form]![MarkaModel]
Forms![Frm_Emlak_Musteri_Teklifi]![AltForm_Musteri_Proje_Malzeme_Teklif_List].[Form]![Renk] = Forms![Frm_Emlak_Musteri_Teklifi_Malzeme_Ekleme]![AltForm_Proje_Firma_Malzeme_Teklif_Ekle].[Form]![Renk]
Forms![Frm_Emlak_Musteri_Teklifi]![AltForm_Musteri_Proje_Malzeme_Teklif_List].[Form]![Ebat] = Forms![Frm_Emlak_Musteri_Teklifi_Malzeme_Ekleme]![AltForm_Proje_Firma_Malzeme_Teklif_Ekle].[Form]![Ebat]
Forms![Frm_Emlak_Musteri_Teklifi]![AltForm_Musteri_Proje_Malzeme_Teklif_List].[Form]![Birim] = Forms![Frm_Emlak_Musteri_Teklifi_Malzeme_Ekleme]![AltForm_Proje_Firma_Malzeme_Teklif_Ekle].[Form]![Birim]
Forms![Frm_Emlak_Musteri_Teklifi]![AltForm_Musteri_Proje_Malzeme_Teklif_List].[Form]![BrmAgirlik] = Forms![Frm_Emlak_Musteri_Teklifi_Malzeme_Ekleme]![AltForm_Proje_Firma_Malzeme_Teklif_Ekle].[Form]![BrmAgirlik]
Forms![Frm_Emlak_Musteri_Teklifi]![AltForm_Musteri_Proje_Malzeme_Teklif_List].[Form]![Miktar] = Forms![Frm_Emlak_Musteri_Teklifi_Malzeme_Ekleme]![AltForm_Proje_Firma_Malzeme_Teklif_Ekle].[Form]![Miktar]
Forms![Frm_Emlak_Musteri_Teklifi]![AltForm_Musteri_Proje_Malzeme_Teklif_List].[Form]![BirimFiyat] = Forms![Frm_Emlak_Musteri_Teklifi_Malzeme_Ekleme]![AltForm_Proje_Firma_Malzeme_Teklif_Ekle].[Form]![BirimFiyat]
Forms![Frm_Emlak_Musteri_Teklifi]![AltForm_Musteri_Proje_Malzeme_Teklif_List].[Form]![KDVOran] = Forms![Frm_Emlak_Musteri_Teklifi_Malzeme_Ekleme]![AltForm_Proje_Firma_Malzeme_Teklif_Ekle].[Form]![KDVOran]
Forms![Frm_Emlak_Musteri_Teklifi]![AltForm_Musteri_Proje_Malzeme_Teklif_List].[Form]![FirmaAdi] = Forms![Frm_Emlak_Musteri_Teklifi_Malzeme_Ekleme]![AltForm_Proje_Firma_Malzeme_Teklif_Ekle].[Form]![FirmaAd]
Forms![Frm_Emlak_Musteri_Teklifi]![AltForm_Musteri_Proje_Malzeme_Teklif_List].[Form]![fir_idi] = Forms![Frm_Emlak_Musteri_Teklifi_Malzeme_Ekleme]![AltForm_Proje_Firma_Malzeme_Teklif_Ekle].[Form]![fir_id]
DoCmd.Close acForm, "Frm_Emlak_Musteri_Teklifi_Malzeme_Ekleme", acSaveYes
Else:
MsgBox ("AListeden Malzeme seçmediniz. Lütfen malzeme seçimi için EKLE alanını işaretleyiniz")
Me.Undo
End If
End Sub
Kod ile tek bir veriyi sorunsuz aktarıyorum. Ancak kullanıcıya kolaylık sağlamak maksadıyla çoklu aktarmak istiyorum.
1nci formun kaynağı: Srg_Emlak_Alici_Satici_Proje_List, Alt formun adı: AltForm_Proje_Firma_Malzeme_Teklif_Ekle
2nci formun kaynağı: Srg_Emlak_Musteri_Proje_Mlz_List, Alt formun adı: AltForm_Musteri_Proje_Malzeme_Teklif_List

Desteğinize ihtiyacım var. teşekkür ederim.


Eklenti Dosyaları
.png   Form1Resim.png (Boyut: 162,06 KB / İndirilme: 32)
.png   Form2Resim.png (Boyut: 254,61 KB / İndirilme: 28)



  Alıntı
Bu mesajı beğenenler:
#2
Çalışmanız eklemeniz mümkün mü?



  Alıntı
Bu mesajı beğenenler:
#3
Sayın halily,
çalışma örneğini ekte gönderdim. Şimdiden teşekkürler.


Eklenti Dosyaları
.rar   Emlak_Ornek.rar (Boyut: 1,69 MB / İndirilme: 36)



  Alıntı
Bu mesajı beğenenler:
#4
Sn M_Kemal_Askeri; Komut29 tiklama olay yordamini aagidaki ile degistirebilirsiniz.

Visual Basic
  1. Private Sub Komut29_Click()
  2. If DCount("*", "Tbl_Proje_Firma_Malzeme_Teklif_List", "Ekle=-1") > 0 şen
  3. CurrentDb.Execute "INSERT INTO Tbl_Musteri_Proje_Malzeme_Teklif_List ( StokNu, MlzCinsi, MarkaModel, Renk, Ebat, Birim, BrmAgirlik, Miktar, TopAgirlik, BirimFiyat, KDVOran, KDV, MlzTopFiyatı, fir_idi, FirmaAdi, ProjeID ) " & _
  4. "SELECT Tbl_Proje_Firma_Malzeme_Teklif_List.StokNu, Tbl_Proje_Firma_Malzeme_Teklif_List.MlzCinsi, Tbl_Proje_Firma_Malzeme_Teklif_List.MarkaModel, Tbl_Proje_Firma_Malzeme_Teklif_List.Renk, Tbl_Proje_Firma_Malzeme_Teklif_List.Ebat, Tbl_Proje_Firma_Malzeme_Teklif_List.Birim, Tbl_Proje_Firma_Malzeme_Teklif_List.BrmAgirlik, Tbl_Proje_Firma_Malzeme_Teklif_List.Miktar, Tbl_Proje_Firma_Malzeme_Teklif_List.TopAgirlik, Tbl_Proje_Firma_Malzeme_Teklif_List.BirimFiyat, Tbl_Proje_Firma_Malzeme_Teklif_List.KDVOran, Tbl_Proje_Firma_Malzeme_Teklif_List.KDV, Tbl_Proje_Firma_Malzeme_Teklif_List.MlzTopFiyatı, Tbl_Proje_Firmalari.fir_id, Tbl_Proje_Firmalari.FirmaAd, Tbl_Emlak_Proje_Kayit.ProjeID " & _
  5. "FROM ((Tbl_Emlak_Proje_Kayit RIGHT JOIN Tbl_Proje_Firmalari ON Tbl_Emlak_Proje_Kayit.[ProjeID] = Tbl_Proje_Firmalari.[ProjeID]) RIGHT JOIN Tbl_Proje_Firma_Malzeme_Teklif_List ON Tbl_Proje_Firmalari.fir_id = Tbl_Proje_Firma_Malzeme_Teklif_List.fir_id) LEFT JOIN Tbl_Musteri_Proje_Malzeme_Teklif_List ON Tbl_Proje_Firma_Malzeme_Teklif_List.StokNu = Tbl_Musteri_Proje_Malzeme_Teklif_List.StokNu WHERE (((Tbl_Musteri_Proje_Malzeme_Teklif_List.StokNu) Is Null) AND ((Tbl_Proje_Firma_Malzeme_Teklif_List.Ekle)=True))"
  6. CurrentDb.Execute "UPDATE Tbl_Proje_Firma_Malzeme_Teklif_List SET Tbl_Proje_Firma_Malzeme_Teklif_List.Ekle = False WHERE (((Tbl_Proje_Firma_Malzeme_Teklif_List.Ekle)=True))"
  7. Me.AltForm_Proje_Firma_Malzeme_Teklif_Ekle.Form.Requery
  8. Forms("Frm_Emlak_Musteri_Teklifi").AltForm_Musteri_Proje_Malzeme_Teklif_List.Form.Requery
  9. DoCmd.Close acForm, Me.Name
  10. Else
  11. MsgBox ("Listeden Malzeme seçmediniz. Lütfen malzeme seçmek için SEÇ alanını işaretleyiniz")
  12. Me.Undo
  13. End If





  Alıntı
Bu mesajı beğenenler:
#5
Sayın dsezgin cevabınız için teşekkür ederim. Verdiğiniz kodu Komut29'un altına yazdım ancak aşağıdaki hatayı verdi.



  Alıntı
Bu mesajı beğenenler:
#6
(12-01-2020, 23:32)M_Kemal_Askeri demiş ki: Sayın dsezgin cevabınız için teşekkür ederim. Verdiğiniz kodu Komut29'un altına yazdım ancak aşağıdaki hatayı verdi.

aşağıdaki hatayı goremedim.



  Alıntı
Bu mesajı beğenenler:


Benzer Konular...
Konu: Yazar Cevaplar: Gösterim: Son Mesaj
  [SORGU] Seçime Göre Resim Gösterme Ve Worde Aktarma derzulya 4 163 19-09-2020, 09:03
Son Mesaj: derzulya
  [FORM] Veri Sayfası Görünümündeki Forma Alt Form Bağlama denoates 8 211 05-09-2020, 23:02
Son Mesaj: alperalper
  [FORM] Forma Veri Tabanından Bilgi Getirme Murat007 3 194 24-06-2020, 23:13
Son Mesaj: Murat007
  [TABLO] VERİ AKTARMA İŞLEMİ sertac75 24 12.372 17-05-2020, 18:37
Son Mesaj: averdi
  [FORM] Form üzerinden Sql Kod Yazarak Dışarı Dosya Aktarma dogan081 1 206 14-05-2020, 02:28
Son Mesaj: dsezgin
  Liteden Metin Kutusuna Veri Aktarma dostkervanı 5 292 06-04-2020, 09:17
Son Mesaj: onur_can
  [FORM] Genel Forma Eklenen Alt Formları Ilişkilendirme Sude Özhan 3 200 19-03-2020, 09:08
Son Mesaj: alperalper
  Access Rapordan Hazırlanmış Excel şablonuna Veri Aktarma VARLIK66 7 365 04-03-2020, 13:29
Son Mesaj: onur_can

Foruma Git:


Bu konuyu görüntüleyen kullanıcı(lar): 1 Ziyaretçi