Skip to main content

AccessTr.neT


ekran klavyesini tüm metin kutularında kullanmak

ekran klavyesini tüm metin kutularında kullanmak

#6
Enter butonunun kodları

    Forms(GeciciFormAdi).SetFocus
    SendKeys "{ENTER}"
   Forms!frmKeyboard.SetFocus
DoCmd.Close

backspace butonunun kodları

    If IsNull(Forms(GeciciFormAdi)(GeciciKontrolAdi)) Then Exit Sub
   infield = Forms(GeciciFormAdi)(GeciciKontrolAdi)
   If Len(infield) = 0 Then Exit Sub
   infield = Left(infield, Len(infield) - 1)
   Forms(GeciciFormAdi)(GeciciKontrolAdi) = infield

formda delete butonu yok,  delete butonu tıklandığında ne olacağını bilmediğim için yorum yapamayacağım.
Cevapla

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

Yorum yapmak için üye olmanız gerekiyor

ya da

Bu Konudaki Yorumlar
Cvp: ekran klavyesini tüm metin kutularında kullanmak - Yazar: ozanakkaya - 06/01/2017, 20:41