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: 13)
.png   Form2Resim.png (Boyut: 254,61 KB / İndirilme: 9)



  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: 10)



  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
  [FORM] Içiçe Iki Alt Formdan Bağlı Olan Altforma Tıklayınca Verilerin Görüntülenmesi M_Kemal_Askeri 10 122 23-01-2020, 19:40
Son Mesaj: userx53
  [FORM] Formdan Buton Ile Tabloya Dosya Kaydetme Sancaktar 1 56 15-01-2020, 03:18
Son Mesaj: dsezgin
  Aktif Forma Kayıt Ekle temre 1 108 05-01-2020, 17:47
Son Mesaj: dsezgin
  Formdan Tabloya, Tablodan Forma, Formdan Başka Tabloya sefersanli 2 175 14-12-2019, 21:13
Son Mesaj: sefersanli
  Liste Kutusu Aktarma Ve Rapor Problemi sefersanli 8 88 19-11-2019, 09:05
Son Mesaj: halily
  Liste Kutusu Aktarma Ve Rapor Problemi sefersanli 13 324 18-11-2019, 22:07
Son Mesaj: sefersanli
  [FORM] Alt Formdaki Verileri üst Formdan Düzenleme okanakkoyun 6 213 18-11-2019, 09:22
Son Mesaj: okanakkoyun
  [FORM] Formdan Kayıt Ederken Hata husem 4 103 17-11-2019, 11:14
Son Mesaj: husem

Foruma Git:


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