(14/08/2015, 17:52)atoz112 yazdı: 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.

yardımlarınız için çok teşekkür ederim kod bilgimi bende geliştirmek istiyorum ancak hiç bilgim yok ve bir kaynakta bulamadım bana tavsiye edebilceceğiniz bir kaynak varmı acaba ?? kitap dahi olur Access bilgimi geliştirmek istiyorum da