AccessTr.neT

aşağıdaki kod açılır kutuya veri girilmesini engeller
tabi yön tuşlarının çalışması için if yada case ile kontrol sağlanabilir yada
KeyDown yerine KeyPress kullanılabilir ama bu durumda da conrol+ C ile veri yine girilebilir maalesef

Private Sub AcilanKutu_KeyDown(KeyCode As Integer, Shift As Integer)

KeyCode = 0

End Sub

(05/11/2020, 13:39)berduş yazdı: [ -> ]aşağıdaki kod açılır kutuya veri girilmesini engeller
tabi yön tuşlarının çalışması için if yada case ile kontrol sağlanabilir yada
KeyDown yerine KeyPress kullanılabilir ama bu durumda da conrol+ C ile veri yine girilebilir maalesef

Private Sub AcilanKutu_KeyDown(KeyCode As Integer, Shift As Integer)

KeyCode = 0

End Sub

Sağol abey vakit olunca teferruatlıca dener ve ilgilenirim tam yapabilmek için.

aklıma gelenleri ekledim
dilerim işinize yarar

Private Sub AKEngelle_KeyDown(KeyCode As Integer, Shift As Integer)

'tab: 9

'enter: 13

'ESC: 27

'pageUP: 33

'pageDown: 34

'end: 35

'home: 36

'up/yukarı: 38

'down/aşağı: 40

'execute: 43



Select Case KeyCode    'basılan tuş kodu



Case 9, 13, 27, 33, 34, 35, 36, 38, 40, 43

Case Else    ' diğer değerler

    KeyCode = 0

End Select

End Sub

Berduş hocam istediğime yakın olmuş.
Alttaki koduda ekleyince maus ile tıklayıncada açılıyor.Böyle iyi oldu.2 olay kaldı birisi bence zor iş olmasada olur.
Gifte gösterdim alttaki comboya her tıklamada açılıp kapanıyor liste.Üstteki ise açılınca bapanmıyor alttaki gibi tekrar tıklama ile.
Yani üstteki comboya tıklayınca Dropdown aktif olacak tekrar tıklayınca Dropdown pasif olacak gibi.

Private Sub combo1_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single)

  combo1.Dropdown

End Sub

Acilir kutunun acilip acilmadigini kontrol etmek icin galiba api gerekiyormuş, apiyi kullanarak açıksa sendkey ile enter yollanabilir

(05/11/2020, 23:20)berduş yazdı: [ -> ]Acilir kutunun acilip acilmadigini kontrol etmek icin galiba api gerekiyormuş, apiyi kullanarak açıksa sendkey ile enter yollanabilir

Neyse ozaman gerek yok abey başka yere tıklanınca kapanıyor zaten.sendkey olayı numlocku açıp kapatıyordu excelde,accesstede böyle olursa problem.Çözüldü tarafına taşınabilir konu abey.Sağolun.