Hocam budur, eline sağlık
daha iyisini bulana kadar en iyisi bu
İlgine tşk ederim
Private Sub Form_Load()
Me.KeyPreview = True
End Sub
Private Sub Form_KeyDown(KeyCode As Integer, Shift As Integer)
Select Case KeyCode
Case vbKeyReturn
' uygun kodlar
MsgBox "Sayın Okileturc sanırım bu daha fonksiyonel"
Case vbKeyF3
' f3 e göre işlem
Case vbKeyF4
' f4 e göre işlem
Case Else
End Select
End Sub
Hocam özür dilerim
Cevap yazdığınızı siz uyarınca gördüm
Hem de çok güzel çalıştı -
Ben yukarıda verdiğiniz kodu " ilk alanın key down" ına
koydum ( yoksa diğer alanlarda da enter a cevap veriyor,
isteyen olabilir ama benim için ilk enter da kayıt etmesi
yeterliydi )
İlginize tşk