title image


Smiley Re: Automatisches Ändern von Umlauten bei der Eingabe
Hallo,Kopiere folgendes (bis End Sub) in das Formularmodul:Private Declare Function GetKeyState Lib "User32" (ByVal nVirtKey As _Long) As IntegerPrivate Declare Function GetKeyboardState Lib "User32" (pbKeyState As _Byte) As LongPrivate Declare Function SetKeyboardState Lib "User32" _(lppbKeyState As Byte) As LongPrivate Sub SetKeyState(intKey As Integer, fTurnOn As Boolean) Dim abytBuffer(0 To 255) As Byte GetKeyboardState abytBuffer(0) abytBuffer(intKey) = CByte(Abs(fTurnOn)) SetKeyboardState abytBuffer(0)End SubPrivate Sub Form_KeyPress(KeyAscii As Integer)Select Case KeyAsciiCase Is = 228 'äKeyAscii = 97 'aSendKeys "{e}" 'eCase Is = 246 'öKeyAscii = 111 'oSendKeys "{e}" 'eCase Is = 252 'üKeyAscii = 117 'uSendKeys "{e}" 'eCase Is = 196 'ÄKeyAscii = 65 'ASendKeys "{E}" 'ECase Is = 214 'ÖKeyAscii = 79 'OSendKeys "{E}" 'ECase Is = 220 'ÜKeyAscii = 85 'USendKeys "{E}" 'EEnd SelectCall SetKeyState(vbKeyNumlock, 1)End SubBeim Ereignis Bei Taste des Formulars steht nun: [Ereignisprozedur]Genau Darunter mußt Du die Eigenschaft Tastenvorschau auf - Ja - stellen.Die obige Prozedur ist deswegen so lang, weildie Numlock-Taste einen BUG in Access 97 hat.Nach dem Befehl Sendkeys kann sie weg sein.Call SetKeyState(vbKeyNumlock, 1) schaltet sie wiederein.GrußWalter Griesser

geschrieben von

Login

E-Mail:
  

Passwort:
  

Beitrag anfügen

Symbol:
 
 
 
 
 
 
 
 
 
 
 
 
 

Überschrift: