+- 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ığı: Eczane Programları Yapmak (/konu-eczane-programlari-yapmak.html)
Cvp: Eczane Programları Yapmak - Hayri16 - 29/12/2010
Çok güzel. Aferin. Ama kaçıncı sütunda hangi bilgi var unutmuyorsun.
Cvp: Eczane Programları Yapmak - Şeyma462 - 29/12/2010
yok yazdıım
unutursamda sutun genıslıklerını değiştiririm yine 
Cvp: Eczane Programları Yapmak - Hayri16 - 29/12/2010
Ş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.
Cvp: Eczane Programları Yapmak - Şeyma462 - 29/12/2010
(29/12/2010, 21:41)Hayri16 yazdı: Şimdi ilackutu ya tıklayıp ilaç seçtiğimizde ne olmasını istiyorsakilaç kutusunda göstermiceksek neden bu kodu yazıyoruz ?
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.
ayy tamam tamam anladım
Cvp: Eczane Programları Yapmak - arifeaccess - 29/12/2010
Benim açılır kutumda bir kaç değer vardı sadece adı göstereyim derken hepsi gitti şimdi de olmuyo ne yapayım ???
Cvp: Eczane Programları Yapmak - Hayri16 - 29/12/2010
Ş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.