hocam harikasınız uygulamama ekledim sıkıntısız çalışıyor . 
örnek uygulamalar bölümüne taşırmısınız. herkes faydalansın ...

hocam şimdi fark ettiğim birşey
Alınan kısmına 100 , 200 , 300,260,255 yazdığımda ödeme türü nakit veya kredi kartı seçtiğimde sıkıntı yok 

ama 100,50 100,12 yani küsürlü miktarlar yazdığımda

runtime error '3346':
sorgu değerleri ile hedef alanlarının sayısı aynı değil 

hatası alıyorum .
hepsinin alan ifadeleri aynı yani Ondalık Basamaklar 2 alan boyutu 2 

yardımınızı bekliyorum

hocam şuan sorunu çözdüm 
visual basic kodları arasında & Me.ALINAN &  yerlerini CLng(Me.ALINAN) düzelttim .. 

ama bu seferde alınan kısmına 100.50 yazdıysam kasa defterine 100.00 diye atıyor .

Merhaba,

kodlarda bulunan

" & Me.ALINAN & "

kodlarını tek tırnak içine alarak deneyiniz.

'" & Me.ALINAN & "'

oldu hocam teşekkürler