Skip to main content

AccessTr.neT

Kayıt Ol

 | Facebook ile Bağlan  | Twitter İle Bağlan | Google+ İle Bağlan

Basılan tuşun kodu nedir?

mehmetdemiral
mehmetdemiral
Access Örnekleri ve Uygulamaları
13
7573

Basılan tuşun kodu nedir?

#7
accessman
Aktif Üye
accessman
Bul
Aktif Üye
Adı Soyadı:
Konum: Denizli
Ofis Versiyonu: Ofis 2003
Son Oturumu: 12/01/2021,20:07
Yorumları: 4.395
Konuları: 900
Kayıt Tarihi: 31/10/2008
Teşekkür Puanı: 434
işte ogün bu günmüş mehmet bey
elinize sağlık teşekkürler
@benbendedeilem
Cevapla
#8
vetaltan
Aktif Üye
vetaltan
www Bul
Aktif Üye
Adı Soyadı: Al.... Ak....
Yaşı: 63
Konum: İstanbul
Ofis Versiyonu: Ofis 2000
Son Oturumu: 03/12/2024,19:17
Yorumları: 124
Konuları: 24
Kayıt Tarihi: 16/11/2009
Teşekkür Puanı: 7
Sn.mehmetdemiral,
Shift tuşuna bastığımızda msgbox 16 değerini veriyor,aşağı ok tuşunda da 40.Benim sorum;keydown olayında keycode shift+aşağı ok tuşunu kullanmamıza izin veriyormu?
vetaltan 16-11-2009 tarihinden beri AccessTr.neT üyesidir.
Cevapla
#9
mehmetdemiral
.
mehmetdemiral
Bul
Uzman
Adı Soyadı: Me.... De....
Yaşı: 60
Konum: Samsun
Ofis Versiyonu: Ofis 2013 32 Bit
Son Oturumu: 05/06/2025,00:28
Yorumları: 5.124
Konuları: 224
Kayıt Tarihi: 30/10/2008
Teşekkür Puanı: 1.947
Mesleğiniz: Öğretmen
Bu örnek uygulamayla bunu yapamayız çünkü tuşa basıldığı anda kodunu göstermek zorunda. Ama birden çok tuşa aynı anda basılmayla ilgili mutlaka bir başka yöntem vardır. Araştırıp bulursam eklerim. Şu anda bilmiyorum. Ama tahmin edebiliyorum. Fırsat olduğunda tahminimi deneyip buraya yazarım.
İyi günler.
İnadına, ille de Accesstr.net...
Cevapla
#10
vetaltan
Aktif Üye
vetaltan
www Bul
Aktif Üye
Adı Soyadı: Al.... Ak....
Yaşı: 63
Konum: İstanbul
Ofis Versiyonu: Ofis 2000
Son Oturumu: 03/12/2024,19:17
Yorumları: 124
Konuları: 24
Kayıt Tarihi: 16/11/2009
Teşekkür Puanı: 7
Sn.mehmetdemiral,
size sorduğum sorunun cevabını buldum,ilginize teşekkürler,saygılar.



Dim shiftebas As Integer
 shiftebas = (Shift And acShiftMask) > 0
 If shiftebas Then
If KeyCode = "40" Then
'yürütülecek kod
end if
else
If KeyCode = "40" Then
'yürütülecek kod
end if
end if
vetaltan 16-11-2009 tarihinden beri AccessTr.neT üyesidir.
Cevapla
#11
mehmetdemiral
.
mehmetdemiral
Bul
Uzman
Adı Soyadı: Me.... De....
Yaşı: 60
Konum: Samsun
Ofis Versiyonu: Ofis 2013 32 Bit
Son Oturumu: 05/06/2025,00:28
Yorumları: 5.124
Konuları: 224
Kayıt Tarihi: 30/10/2008
Teşekkür Puanı: 1.947
Mesleğiniz: Öğretmen
Geri dönüş ve paylaşımcı ruh için teşekkürler. Ve tabii ki +rep Img-grin
İnadına, ille de Accesstr.net...
Cevapla
#12
vetaltan
Aktif Üye
vetaltan
www Bul
Aktif Üye
Adı Soyadı: Al.... Ak....
Yaşı: 63
Konum: İstanbul
Ofis Versiyonu: Ofis 2000
Son Oturumu: 03/12/2024,19:17
Yorumları: 124
Konuları: 24
Kayıt Tarihi: 16/11/2009
Teşekkür Puanı: 7
Sn.mehmetdemiral,
İlk rep!imi sizden aldım.Site yönetiminden rep almak benim için ayrıca çok değerli.Çok teşekkürler Img-grin
vetaltan 16-11-2009 tarihinden beri AccessTr.neT üyesidir.
Cevapla

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

Yorum yapmak için üye olmanız gerekiyor

ya da
Task