AccessTr.neT

(13/04/2018, 11:40)A.Kadir. yazdı: [ -> ]merhaba 
yapmaya çalıştığınızı anlamaya çalışıyorum.
1-tablolar sizemi ait
2-size ait ise projenizin bir kısmımı siteye yüklediğiniz.
3-PurchaseOrder tablonuzda PurchaseAmount  alanına girdiğiniz  sayı kadar ItemList tablosuna boş kayıtmı ilave edilecek.
4-ItemList list tablosuna ilave edilecek kayıtlar boşmu olacak.
5-eğer dolu olacak ise hangi alana hangi alandan alınan veriler gönderilecek.
6-her iki tablo arasında ilişkilendirme yapmayı düşünüyormusunuz.

yazılacak kodlar vereceğinizi cevaplara göre değişiklik arzedecektir.
yukarıdakiler arasında en önemlisi 5. maddede yazılandır.

1-evet
2-evet sadece bir formlu hali daha üzerine devam edeceğim
3-PurchaseOrder tablonuzda PurchaseAmount  alanına girdiğiniz  sayı kadar ItemList tablosuna dolu kayıt eklenecek yani Purchase Amount 45 olursa 45 tane aynı kayıttan ItemListe altalta eklenecek, eklenen kayıtlar aynı bilgilere sahip olacak
5-itemtypeId- ItemID; PurchaseDate-PurchaseDate; StockPolicy seçilen Itema göre otomatik gelecek  (LIFO,FIFO,FEFO), expiration date i de P00 kodlular için gerekli olacak ama daha onları ayarlamamıştım
6-evet

merhabalar 
iki adet alanı ItemList  tablonuza PurchaseAmoun  yazılan kadar kaydedecek şekilde kodlar düzenlendi

Private Sub Command11_Click()



 For sayac = 1 To PurchaseAmount

 CurrentDb.Execute "INSERT INTO ItemList(ItemID , PurchaseDate)  VALUES('" & Me.ItemTypeID & "','" & Me.PurchaseDate & "')"

  Next sayac

  MsgBox "KAYIT İŞLEMİ TAMAMDIR" & vbCrLf & "KAYDEDİLEN ADET :" & PurchaseAmount, vbInformation, "UYARI"

End Sub

üzerinde değişikliği istediğiniz şekilde yapınız