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.