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
Database3 (2).rar
(Dosya Boyutu: 41,86 KB | İndirme Sayısı: 15)
| Bu Konudaki Yorumlar |
|
Tek Form Tek Buton İki Tabloya Kayıt - Yazar: delichon - 12/04/2018, 13:05
Cvp: Tek Form Tek Buton İki Tabloya Kayıt - Yazar: ozanakkaya - 12/04/2018, 13:25
Cvp: Tek Form Tek Buton İki Tabloya Kayıt - Yazar: delichon - 12/04/2018, 13:44
Cvp: Tek Form Tek Buton İki Tabloya Kayıt - Yazar: delichon - 13/04/2018, 09:27
Cvp: Tek Form Tek Buton İki Tabloya Kayıt - Yazar: A.Kadir. - 12/04/2018, 13:31
Cvp: Tek Form Tek Buton İki Tabloya Kayıt - Yazar: A.Kadir. - 13/04/2018, 11:40
Cvp: Tek Form Tek Buton İki Tabloya Kayıt - Yazar: delichon - 13/04/2018, 12:37
Cvp: Tek Form Tek Buton İki Tabloya Kayıt - Yazar: A.Kadir. - 13/04/2018, 15:06
|
