+- AccessTr.neT (https://accesstr.net)
+-- Forum: Microsoft Access (https://accesstr.net/forum-microsoft-access.html)
+--- Forum: Access Cevaplanmış Soruları (https://accesstr.net/forum-access-cevaplanmis-sorulari.html)
+--- Konu Başlığı: Tek Form Tek Buton İki Tabloya Kayıt (/konu-tek-form-tek-buton-iki-tabloya-kayit.html)
Sayfalar:
1
2
Cvp: Tek Form Tek Buton İki Tabloya Kayıt - delichon - 13/04/2018
(13/04/2018, 11:40)A.Kadir. yazdı: merhaba1-evet
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.
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
Cvp: Tek Form Tek Buton İki Tabloya Kayıt - A.Kadir. - 13/04/2018
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