Çok güzel. Aferin. Ama kaçıncı sütunda hangi bilgi var unutmuyorsun.
Şimdi ilackutu ya tıklayıp ilaç seçtiğimizde ne olmasını istiyorsak
Private Sub ilackutu_Click()
yordamının altına yazıyoruz.
Biz ne yazmışız?
fbarkod = ilackutu.Column(1) ' fbarkod kutusuna ilaçkutusunun 1 nolu sütunundaki veriyi
filac = ilackutu.Column(2) 'filac kutusuna 2 nolu sütundaki bilgiyi
fmevcut = ilackutu.Column(4) 'fmevcut kutusuna 4 nolu sütundaki bilgiyi
ffiyat = ilackutu.Column(3) ' ffiyat kutusuna 3 nolu sütundaki bilgiyi yaz demişiz.
seçtiğimiz ilacın işimize yarayacak verilerine zahmetsizce ulaştık.
(29/12/2010, 21:41)Hayri16 yazdı: Şimdi ilackutu ya tıklayıp ilaç seçtiğimizde ne olmasını istiyorsak
Private Sub ilackutu_Click()
yordamının altına yazıyoruz.
Biz ne yazmışız?
fbarkod = ilackutu.Column(1) ' fbarkod kutusuna ilaçkutusunun 1 nolu sütunundaki veriyi
filac = ilackutu.Column(2) 'filac kutusuna 2 nolu sütundaki bilgiyi
fmevcut = ilackutu.Column(4) 'fmevcut kutusuna 4 nolu sütundaki bilgiyi
ffiyat = ilackutu.Column(3) ' ffiyat kutusuna 3 nolu sütundaki bilgiyi yaz demişiz.
seçtiğimiz ilacın işimize yarayacak verilerine zahmetsizce ulaştık.
ilaç kutusunda göstermiceksek neden bu kodu yazıyoruz ?
ayy tamam tamam anladım
Benim açılır kutumda bir kaç değer vardı sadece adı göstereyim derken hepsi gitti şimdi de olmuyo ne yapayım ???
Ş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.