DoCmd.RunCommand acCmdSaveRecord
DoCmd.SetWarnings False
DoCmd.RunSQL ("INSERT INTO [SAtış Tablosu] ( [Sipariş Numarası], [Parça Adı], Katagori, [Başlangıç Tarihi], [Bitiş Tarihi], [İlk Fiyat], [Son Fiyat], [Listeleme maliyeti], [Müşteri Numarası], [Ödeme Tipi], [Ödeme Tarihi], Statü, [Gerçekleşen Teslimat Fiyatı], [Vergi Oranı], [Teslimat Tarihi], Faturalama )" & _
"SELECT [SAtış Tablosu].[Sipariş Numarası], Sorgu1.[Parça Adı], Sorgu1.Katagori, Sorgu1.[Başlangıç Tarihi], Sorgu1.[Bitiş Tarihi], Sorgu1.[İlk Fiyat], Sorgu1.[Son Fiyat], Sorgu1.[Listeleme maliyeti], Sorgu1.[Müşteri Numarası], Sorgu1.[Ödeme Tipi], Sorgu1.[Ödeme Tarihi], Sorgu1.Statü," & _
"Sorgu1.[Gerçekleşen Teslimat Fiyatı], Sorgu1.[Vergi Oranı], Sorgu1.[Teslimat Tarihi], Sorgu1.Faturalama FROM [SAtış Tablosu] INNER JOIN Sorgu1 ON ([SAtış Tablosu].Katagori = Sorgu1.Katagori) AND ([SAtış Tablosu].[Parça Adı] = Sorgu1.[Parça Adı]) WHERE (((Sorgu1.Katagori)=[Forms]![Satışlar Split Form]![Category]));")
DoCmd.SetWarnings True
Form.Requery
Kayıt butonunun tıklandığında olayına aşağıdaki kodu yazınız.