Sayın ustaoglu,
öncelikle;aşağıda bahsi geçen tavsiyelerde bulunarak,kullanım süreçleri nezdinde uygulamanızın daha verimli ve daha olumlu sonuçlar almanızı sağlamanıza imkan vereceğini belirtmek yerinde olacaktır kanısındayım.
TAVSİYELER
1) Lütfen;tablo ve alan adlarında isimlendirmelerde bulunurken;Türkçe karakterler kullanmayınız.
2) İsimlendirmelerde büyük harfler kullanmayınız.
3) Teferruatlı değil de,kısa ve öz isimlendirmelerde bulununuz.
4) Kelime aralarını boş bırakmayınız ve boşluklar yerine alt tire (_) işareti kullanınız.
5) Veri türlerini doğru yapılandırmalarda bulununuz.
6) Uygulamalarınızdaki Olay Yordamlarında,Katıştırılmış Makro yerine,kodlama bilginizi geliştirmeye imkan sağlamanız amacı ile Kodlama içerikli Olay yordamları kullanmaya özen göstererek önem veriniz.
Talebinize yönelik olarak da,yapılan ya da sizin tarafınızdan asıl uygulamanızda yapılması gerekli işlemler aşağıda açıklanmıştır.
1)
İşlemi uygulayacağınız formu tasarım olarak açtıktan sonra,tuşlar için önizleme yapılmasına imkan sağlanması adına,ister ÖZELLİKLER-OLAY sekmesindeki en sondaki TUŞ ÖNİZLEME sarını EVET olarak işaretlemek sureti ile ya da isterseniz işlemi uygulayacağınız formun Yüklendiğinde olay yordamı içerisine
Kod:
Me.KeyPreview = True
kod ifadesini ekleyiniz.
2)
İşlemi uygulayacağınız formun Tuşa Basılırken olay yordamı içerisine (örnekteki ilgili formun kod sayfasında kodların ne anlama geldiği açıklamalı olarak yazılmıştır),FORM KAYDETME VE YENİ KAYIT AÇMA İŞLEMİ İÇİN
Kod:
'F2 TUŞU İLE,KAYDETME VE YENİ KAYIT AÇMA İÇİN
If (KeyCode = vbKeyF2) Then
KeyCode = 0
'KAYDETMEK İÇİN
'ASLINDA,BURADA,INSERT INTO SQL SORGUSU İLE KAYDETMEK BİR BAKIMA DAHA İYİ OLACAKTIR
'KULLANIMI İÇİN,SİTEDEN INSERT INTO YAZARAK ARAŞTIRINIZ.BİLGİNİZE
DoCmd.DoMenuItem acFormBar, acRecordsMenu, acSaveRecord, , acMenuVer70
'YENİ KAYIT AÇMAK İÇİN
DoCmd.GoToRecord , , acNewRec
'ADI ADLI METİN DENETİM KUTUSUNA ODAKLANMAK İÇİN
Me.First_Name.SetFocus
End If
kodlarını yazınız.
3)
İşlemi uygulayacağınız formun Tuşa Basılırken olay yordamı içerisine (örnekteki ilgili formun kod sayfasında kodların ne anlama geldiği açıklamalı olarak yazılmıştır),FORM YENİLEME İŞLEMİ İÇİN
Kod:
'F5 TUŞU İLE,FORM YENİLEME İÇİN
If (KeyCode = vbKeyF5) Then
KeyCode = 0
Me.Requery
End If
kodlarını yazınız.
4)
İşlemi uygulayacağınız formun Tuşa Basılırken olay yordamı içerisine (örnekteki ilgili formun kod sayfasında kodların ne anlama geldiği açıklamalı olarak yazılmıştır),FORM KAPATMA İÇİN
Kod:
'ESC TUŞU İLE,FORM KAPATMA İÇİN
If (KeyCode = vbKeyEscape) Then
KeyCode = 0
DoCmd.Close acForm, Me.Name, acSaveYes
End If
kodlarını yazınız...bilginize…iyi çalışmalar,saygılar.
Kişiler-ATOZ.rar
(Dosya Boyutu: 76,29 KB | İndirme Sayısı: 11)