Skip to main content

AccessTr.neT


Eczane Programları Yapmak

Eczane Programları Yapmak

Çözüldü #265
isterrImg-grin
Cevapla
Çözüldü #266
Hoşbuldum . Katılmak İsterim
Cevapla
Çözüldü #267
Ben bir 10 dk yazamayacağım kusura bakmayın...
Arife KULAKAngel
Cevapla
Çözüldü #268
hepimizde örnek eczane oldugundan uzerınde ilerleyebiliriz Img-grin
Cevapla
Çözüldü #269
Ben geldim...
Arife KULAKAngel
Cevapla
Çözüldü #270
Img-grin Sanırım aynı sınıftasınız.
Evet FATURA TARİHİ ni kutunun yanında çıkan takvimden seçiyoruz.
Sonra FATURA NO bilgilerini giriyoruz. AB-9879484 gibi bir metin girin.
FİRMA SEÇ kutudan ilaç aldığımız firmayı seçiyoruz ve KAYDET tuşuna basıyoruz.
Böylece kodlarımızda
Private Sub fatkaydet_Click() yordamı çalışmaya başlıyor.
Şimdi bu kodları inceleyelim.
On Error Resume Next bu satır hata kontrolü içindir. Programın bu yordamının çalışması sırasında oluşan hata olursa hiç dikkate alma devam et demektir.
Aslında program yazım aşamasında başka türlü kontrol edip oluşan hataları ortaya çıkarmak, izlemek ve düzeltmek gerekir. Neyse o ayrı bir konu
Bu konuda küçük bir açıklama var. ihtiyaç duyarsanız incelersiniz.
Sonraki kodumuz ADO ile ilgili.
Dim kyt As New ADODB.Recordset 'kyt adlı yeni bir ADO kayıt seti değişkeni tanımlıyoruz.
kyt.Open "T_GIRIS", CurrentProject.Connection, adOpenKeyset, adLockOptimistic
'Burada kayıt setinin T_GIRIS tablosunda olacağına ve bu tabloyu ekleme,silme ,değiştirme modunda açtığımızı belirtiyoruz.
kyt.AddNew 'Yeni bir kayıt satırı ekleyeceğimizi söylüyoruz.
kyt.Fields("firmano") = firmakutu
kyt.Fields("fattar") = ffattar
kyt.Fields("fatno") = ffatno
Tablomuzdaki alanları belirtip karşılarına formdaki hangi değerleri atayacağımızı belirtiyoruz.
kyt.Update ' kaydı güncelle yani bu kayıodı ekle demiş oluyoruz.
kyt.Close 'kaydı ve dosyayı kapat
Set kyt = Nothing 'Ado ile bağlantıyı kes.

Böylece kayıt yapmış oluyoruz.
MsgBox (" KAYIT TAMAM ")
Bunu bildirmek için kullanıcıya mesaj veriyoruz.
fkno = DMax("giris_id", "T_GIRIS") bu satırı çıkaralım. Burada gereksiz yere kalmış.

Metin48.SetFocus
fatkaydet.Enabled = False

fatkaydet.enabled=false ile KAYDET tuşunu etkisiz yapıyoruz.
Ama odaklanma bir denetimin üzerindeyken onu etkisiz yapamazsınız. O yüzden Accesse küçük bir hile yapıyoruz. Formumuza Metin48 adında çok küçük arkaplan saydam , kenarla saydam nokta kadar bir metinkutusu koyuyoruz.
Ve önceden odağı oraya yolluyoruz ve odak oradayken KAYDET i pasif yapıyoruz.
ilackutu.Enabled = True
ilackaydet.Enabled = True
Form açılıken pasif yaptığımız ilaçkutusu ve İLAÇKAYDET tuşlarını aktifleştiriyoruz.
Evet buraya kadar Tamam mı? Anlaşılmayan veya merak edilen bir şey var mı?



Hayri16, 12-11-2009 tarihinden beri AccessTr.neT üyesidir.
Cevapla

Bir hesap oluşturun veya yorum yapmak için giriş yapın

Yorum yapmak için üye olmanız gerekiyor

ya da
Task