Şimdi GELEN ADET' e o ilaçtan kaç tane satın almışsak onu yazıyoruz. Sonra da İLAÇ KAYDET tuşuna basıyoruz.
İLAÇ KAYDET tuşuna bastığımızda
Private Sub ilackaydet_Click() yordamı çalışmaya başlıyor.
Dim kyt As New ADODB.Recordset
kyt.Open "T_ILACALIM", CurrentProject.Connection, adOpenKeyset, adLockOptimistic

kyt.AddNew
kyt.Fields("faturano") = fkno
kyt.Fields("ilacno") = ilackutu
kyt.Fields("fiyat") = ffiyat
kyt.Fields("miktar") = geladet
kyt.Update

kyt.Close
Set kyt = Nothing

Buraya kadar olan kısmı artık biliyorsunuz. O yüzden alt satıra geçiyorum.

gtop = Val(gtop) + Val(ffiyat) * geladet ' Burada formun alt sağında yer alan gtop adlı kutuya toplamı aldırıyoruz.

ilacliste.Requery ' son kaydı ekleyip ilacliste adlı listemizi güncelliyoruz
ilackutu.SetFocus ' tekrar ilaç seçmek için ilaç kutusuna odaklanıyoruz
tilac = ilacliste.ListCount - 1 ' ilaclistesinde kaç kalem ilaç var saydırıp tilac adını verdiğimiz kutuya yazdırıyoruz.