Eczane Programları Yapmak

29/12/2010, 20:53

Şeyma462

isterr
29/12/2010, 20:55

brcu

Hoşbuldum . Katılmak İsterim
29/12/2010, 20:56

arifeaccess

Ben bir 10 dk yazamayacağım kusura bakmayın...
29/12/2010, 21:03

Şeyma462

hepimizde örnek eczane oldugundan uzerınde ilerleyebiliriz
29/12/2010, 21:04

arifeaccess

Ben geldim...
29/12/2010, 21:13

Hayri16

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ı?