Formdaki Kaydı Farklı Formda Yeniden Kayıt

1 2
17/08/2017, 13:03

U.ALTUN

sorunum şöyle [frm-atölyekayıtı] formunda yaptığım kaydı [frm-montajlar] formunda listeledikten sonra seçtiğim kaydı [frm-montajkaydı] formunda açıp bu form üzerinde montaj kaydı olarak kayıt yapmak istiyorum. bu konuda yardımlarınızı bekliyorum.
19/08/2017, 01:03

ozanakkaya

Merhaba,

"Frm_Montajlar" isimli formdaki butonun tıklandığında olayındaki kod 

Private Sub btnmontaj_Click()

On Error GoTo Err_btnmontaj_Click

    Dim stDocName As String
    Dim stLinkCriteria As String
   
   
    Dim Varmi As String
   
    Varmi = Nz(DLookup("Idmtj", "Tbl_Montajlar", "[atly_ID]=" & [montajlarlistesi]), 0)
   

   
    If Varmi = 0 Then
   
   DoCmd.SetWarnings False
   DoCmd.RunSQL "INSERT INTO Tbl_Montajlar ( atly_ID, Carikod, Adi, Soyadi, Satici, Telefon1, Telefon2, Telefon3 ) SELECT Tbl_Atolye.atly_ID, Tbl_Atolye.Carikod, Tbl_Atolye.Adi, Tbl_Atolye.Soyadi, Tbl_Atolye.Satici, Tbl_Atolye.Telefon1, Tbl_Atolye.Telefon2, Tbl_Atolye.Telefon3 FROM Tbl_Atolye WHERE (((Tbl_Atolye.atly_ID)=[Formlar]![Frm_Montajlar]![montajlarlistesi]));"
   DoCmd.RunSQL "INSERT INTO Tbl_Montajayrinti ( Idmtj, BORÇ, ÖDEME, KALAN, [Odeme Sekli], [Hesap No], [Montaj Tarihi], [Ödeme Açıklama], Turu ) SELECT Tbl_Montajlar.Idmtj, Tbl_Atolyeayrinti.BORÇ, Tbl_Atolyeayrinti.ÖDEME, Tbl_Atolyeayrinti.KALAN, Tbl_Atolyeayrinti.[Odeme Sekli], Tbl_Atolyeayrinti.[Hesap No], Tbl_Atolyeayrinti.[Montaj Tarihi], Tbl_Atolyeayrinti.[Ödeme Açıklama], Tbl_Atolyeayrinti.Turu FROM (Tbl_Atolye INNER JOIN Tbl_Atolyeayrinti ON Tbl_Atolye.atly_ID = Tbl_Atolyeayrinti.atly_ID) INNER JOIN Tbl_Montajlar ON Tbl_Atolye.atly_ID = Tbl_Montajlar.atly_ID WHERE (((Tbl_Atolyeayrinti.atly_ID)=[Formlar]![Frm_Montajlar]![montajlarlistesi]));"
   DoCmd.RunSQL "INSERT INTO Tbl_Montajurunler ( Stor, T_stor, Zebra, [Double], M_jaluzi, [A_ jaluzi], Plicell, Silhouette, Ribbon, D_Perde, Kruvaze, T_Toplama, J_Kanat, Kanat, Bracol, Renso, Sarkıt, P_Tül, Guneslik, Farba, B_Perde, İ_Perde, İ_Balon, Katlama, Biriz, Ayrıntı, ıdayrıntı ) SELECT Tbl_Atolyeurunler.Stor, Tbl_Atolyeurunler.T_stor, Tbl_Atolyeurunler.Zebra, Tbl_Atolyeurunler.Double, Tbl_Atolyeurunler.M_jaluzi, Tbl_Atolyeurunler.[A_ jaluzi], Tbl_Atolyeurunler.Plicell, Tbl_Atolyeurunler.Silhouette, Tbl_Atolyeurunler.Ribbon, Tbl_Atolyeurunler.D_Perde, Tbl_Atolyeurunler.Kruvaze, Tbl_Atolyeurunler.T_Toplama, Tbl_Atolyeurunler.J_Kanat, Tbl_Atolyeurunler.Kanat, Tbl_Atolyeurunler.Bracol, Tbl_Atolyeurunler.Renso, Tbl_Atolyeurunler.Sarkıt, Tbl_Atolyeurunler.P_Tül, Tbl_Atolyeurunler.Guneslik, Tbl_Atolyeurunler.Farba, Tbl_Atolyeurunler.B_Perde, Tbl_Atolyeurunler.İ_Perde, Tbl_Atolyeurunler.İ_Balon, Tbl_Atolyeurunler.Katlama, Tbl_Atolyeurunler.Biriz, Tbl_Atolyeurunler.Ayrıntı, Tbl_Montajayrinti.ıdayrıntı" & _
" FROM ((Tbl_Atolye INNER JOIN Tbl_Montajlar ON Tbl_Atolye.atly_ID = Tbl_Montajlar.atly_ID) INNER JOIN Tbl_Montajayrinti ON Tbl_Montajlar.Idmtj = Tbl_Montajayrinti.Idmtj) INNER JOIN (Tbl_Atolyeayrinti INNER JOIN Tbl_Atolyeurunler ON Tbl_Atolyeayrinti.Idatay = Tbl_Atolyeurunler.Idatay) ON Tbl_Atolye.atly_ID = Tbl_Atolyeayrinti.atly_ID WHERE (((Tbl_Atolye.atly_ID)=[Formlar]![Frm_Montajlar]![montajlarlistesi]));"

   DoCmd.SetWarnings True
   
    End If
   
   DoCmd.OpenForm "Frm_Montajkayit", , , "[atly_ID]=" & [montajlarlistesi]
   
Exit_btnmontaj_Click:
       Exit Sub
       
Err_btnmontaj_Click:
     MsgBox Err.Description
     Resume Exit_btnmontaj_Click
             

End Sub

Şeklinde değiştirilmiştir.

Listeden veri seçip butonu tıkladığınızda, seçilen veriye ait atolye bilgilerinin tamamını Tbl_Montajlar, Tbl_Montajayrinti ve Tbl_Montajurunler tablolarına aktarır ve aktarılan veriye ait formu açar.

İnceleyip olumlu/olumsuz bildirimde bulununuz.
19/08/2017, 14:15

U.ALTUN

elinize sağlık tam istediğim gibi olmuş. montajlar listesinden montaja aktardığım müşterileri listeden kaldırabilirmiyim.
19/08/2017, 18:16

ozanakkaya

(19/08/2017, 14:15)U.ALTUN yazdı: elinize sağlık tam istediğim gibi olmuş. montajlar listesinden montaja aktardığım müşterileri listeden kaldırabilirmiyim.

Tbl_Atölye ve Tbl_Atolyeayrinti tablolarından veri silinecek mi?
19/08/2017, 18:41

U.ALTUN

(19/08/2017, 18:16)ozanakkaya yazdı:
(19/08/2017, 14:15)U.ALTUN yazdı: elinize sağlık tam istediğim gibi olmuş. montajlar listesinden montaja aktardığım müşterileri listeden kaldırabilirmiyim.

Tbl_Atölye ve Tbl_Atolyeayrinti tablolarından veri silinecek mi?
 
   hayır sadece listede montaja geçtiğini belirtip süzerek listede işlem olmayanlar kalsın.
19/08/2017, 20:54

direnist

(19/08/2017, 18:41)U.ALTUN yazdı:
(19/08/2017, 18:16)ozanakkaya yazdı:
(19/08/2017, 14:15)U.ALTUN yazdı: elinize sağlık tam istediğim gibi olmuş. montajlar listesinden montaja aktardığım müşterileri listeden kaldırabilirmiyim.

Tbl_Atölye ve Tbl_Atolyeayrinti tablolarından veri silinecek mi?
 
   hayır sadece listede montaja geçtiğini belirtip süzerek listede işlem olmayanlar kalsın.

Merhaba U.ALTUN;
Ekli örneği inceler misiniz?
Doğru anladıysam Frm_Montajlar formundaki liste kutusuna, sadece Tbl_Montajlar tablosuna aktarılmayanlar gelsin istiyorsunuz.
İyi çalışmalar.
1 2