Access 2010 ile hazırlanmış örnek programa konunun sonundaki linkten ulaşabilirsiniz. Şimdi gelelim bu işi nasıl yapacağımızı anlatmaya. Örnek programımızda bir adet metin kutusunu forma ekliyoruz. Metin kutusunun adına txt_odeme ismini verelim. txt_odeme isimli metin kutumuzun Özellikler kutusundaki Olay sekmesinden Değiştiğinde bölümünde Kod Oluşturucusu ile VBA Editörü penceresine geçiş yapalım.

VBA Editörüne geçiş yaptığımızda bizi bekleyen kodlar şu şekilde olacaktır:

1
2
3
4
5
6
7

Private Sub txt_odeme_Change()
 
 
 
 
 
End Sub

Şimdi txt_odeme isimli metin kutusunun içine yazılan rakamları biçimlendirelim. Biçimlendirme işlemi Format komutu ile yapılır ve daha önce tarih ile saat biçimlendirmesi ile ilgili konuda biraz değinmiştik. Kodumuzu yazalım açıklamasını peşinden yapalım.

1
2
3
4
5
6
7

Private Sub txt_odeme_Change()
 
    txt_odeme.Text = Format(txt_odeme.Text, "###,###")
 
 
 
End Sub

Eğer şu anki hali ile test edecek olursanız her üç hanede bir otomatik olarak virgül attığını ancak bir anormallik olduğunu göreceksiniz. Çünkü yazılan her rakam sayının sonuna değilde başına ekleniyor olacaktır. Yani 555 gibi bir sayı yazdıktan sonra 1 rakamına bastığınızda 5551 olması gerekirken 1555 olacaktır. Buradaki sıkıntıyı halletmek için aşağıda 5. satırdaki kodu ekledik.

1
2
3
4
5
6
7

Private Sub txt_odeme_Change()
 
    txt_odeme.Text = Format(txt_odeme.Text, "###,###")
 
    SendKeys "{end}"
 
End Sub

Artık her tuşa bastıktan sonra imleç sayının sonuna gönderilecektir. SendKeys komutu ile klavyedeki bir tuşa basılmış gibi emir yerine getirilmektedir. Tuşa bastıktan sonra klavyeden End tuşuna basılarak imleçi sayının sonuna göndererek problemi halletmiş olduk.

Access 2010 ile hazırlanılmış örnek program indirmek için aşağıdaki linki takip edin lütfen.