AccessTr.neT

Tam Versiyon: Otomatik Sipariş Oluşturma
Şu anda arşiv modunu görüntülemektesiniz. Tam versiyonu görüntülemek için buraya tıklayınız.
Sayfalar: 1 2
Merhabalar;

1-)Satışlar Split Formunda yeni bir kayıt açıp sipariş numarası ve kategori alanlarına veri girişi yaptıktan sonra kayıt adlı butona bastığımda yeni kayıt tamamlansın ve adım 2 ye geçilsin.
2-)Sorgu 1 de oluşan her bir satır için de Satışlar Split Formunun Alt Tablosunda yeni kayıt açılsın bu kayıtlar sorgudaki kayıtlarla aynı olsun fakat sipariş numaraları 1-) de girdiğim sipariş numarası ile aynı olsun istiyorum bunu yapabilir miyiz acaba ?

İlk bakışta mantıksız gibi görünse de, yapmak istediğim kodun tamamı ile sizi uğraştırıp vaktinizi almak istemiyorum. Bu kısmı araştırmama rağmen çözemedim.

Yardımlarınız için teşekkür ederim.
Hayırlı Çalışmalar ...
Bu konuda yardımcı olabilecek kimse yok mu acaba? Eğer anlaşılmayan bir yer varsa daha detaylı anlatayım. 1 haftadır bu konuyu araştırıyorum, eğer bu sorunu aşamazsam çalışmamda ilerleme kaydedemeyeceğim.

Yardımlarınızı bekliyorum.

Hayırlı Çalışmalar.
Örneğinizi 2003 formatında eklemeniz sorunuzun inceleme oranını arttırıp dolayısıyla da çözümünü hızlandıracaktır
Satışlar Split Formu ve Sorgu 1'in kayıt kaynağı aynı tablo,
form üzerinden kategorisi Mutfak olan veri kaydetiğinde ve adım2'ye geçildiğinde daha önceden tabloda olan 19 aynı kayıt tekrar kaydedilecek.
Doğru mu anladım ?
Merhabalar;
Doğrudur, Satışlar Split Formu ve Sorgu 1'in kayıt kaynağı aynı tablo.
Mesala Mutfak için konuşalım. Satışlar Split Forma Sipariş Numarasına 325365488 ve Kategori kısmına Mutfak girdim. Adım 2 ye geçildiğinde sipariş numarası Adım 1 de girmiş olduğum sipariş numarası(325365488) olan diğer özellikleri sorgudaki satırlardan gelen 19 yeni kayıt oluşmasını istiyorum . Önceki 19 kayıta bir şey olmasın. Onlar aynen kalsın istiyorum.

Yardımlarınız için sağolun..

Hayırlı Çalışmalar...
Kayıt butonunun tıklandığında olayına aşağıdaki kodu yazınız.
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
Sayfalar: 1 2