(19/08/2017, 01:03)ozanakkaya yazdı: 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
yukarıdaki kod'da Tbl_Atolye ve Tbl_Montajlar tablolarını sizin önerileriniz ışığında kaldırdım bu şekle göre kodları düzenlemeye çalıştım maalesef başarılı olamadım sizden ricam kodları buna göre düzenlemeniz.
