title image


Smiley Moin Elvis
Du kennst doch Reinhards Beispiel-DB 'Keypress.mdb'

Bau' die mal so um:



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

Me!KeyCodeUp = KeyCode

Me!ShiftUp = Shift



Select Case Shift

Case 1

If KeyCode = 16 Then Me!S.Visible = False 'Shift-Taste

Case 2

If KeyCode = 17 Then Me!C.Visible = False 'Strg-Taste

Case 3

If KeyCode = 16 Then Me!S.Visible = False 'Shift-Taste

If KeyCode = 17 Then Me!C.Visible = False 'Strg-Taste

Case 4

If KeyCode = 18 Then Me!A.Visible = False 'Alt-Taste

'Mit der Alt-Taste gibt's hier ein Problem, ggf. abschalten:

If KeyCode = 18 Then KeyCode = 0

Case 5

If KeyCode = 16 Then Me!S.Visible = False 'Shift-Taste

If KeyCode = 18 Then Me!A.Visible = False 'Alt-Taste

'Mit der Alt-Taste gibt's hier ein Problem, ggf. abschalten:

If KeyCode = 18 Then KeyCode = 0

Case 6

If KeyCode = 17 Then Me!C.Visible = False 'Strg-Taste

If KeyCode = 18 Then Me!A.Visible = False 'Alt-Taste

Case 7

If KeyCode = 16 Then Me!S.Visible = False 'Shift-Taste

If KeyCode = 17 Then Me!C.Visible = False 'Strg-Taste

If KeyCode = 18 Then Me!A.Visible = False 'Alt-Taste

End Select



End Sub


Gruss aus dem (wilden) Süden ;-) Karl-Heinz

geschrieben von

Login

E-Mail:
  

Passwort:
  

Beitrag anfügen

Symbol:
 
 
 
 
 
 
 
 
 
 
 
 
 

Überschrift: