title image


Smiley Re: Shifttasten Funktion ausschalten
Versuchs mal damitFunction StartOptionenEin(flag As Boolean) As IntegerDim DB As DATABASEOn Error GoTo Err_StartOptionenEinSet DB = CurrentDbDB.Properties!AllowBypassKey = flagExit_StartOptionenEin:Exit FunctionErr_StartOptionenEin: If Err = 3270 Then DB.Properties.Append DB.CreateProperty("AllowBypassKey", dbBoolean, flag) Resume Next Else MsgBox "Fehler: " & Error$ & "(" & Err & ")" Resume Exit_StartOptionenEin End IfEnd Function

geschrieben von

Login

E-Mail:
  

Passwort:
  

Beitrag anfügen

Symbol:
 
 
 
 
 
 
 
 
 
 
 
 
 

Überschrift: