title image


Smiley Re: Umschalt-Trick ausschalten
Hallo,



Kopiere das in ein Modul:



Function SetBypassProperty(eig As Boolean)

Const DB_Boolean As Long = 1

ChangeProperty "AllowBypassKey", DB_Boolean, eig

End Function



Function ChangeProperty(strPropName As String, varPropType As Variant, varPropValue As Variant) As Integer

Dim dbs As Object, prp As Variant

Const conPropNotFoundError = 3270



Set dbs = CurrentDb

On Error GoTo Change_Err

dbs.Properties(strPropName) = varPropValue

ChangeProperty = True



Change_Bye:

Exit Function



Change_Err:

If Err = conPropNotFoundError Then ' Property not found.

Set prp = dbs.CreateProperty(strPropName, _

varPropType, varPropValue)

dbs.Properties.Append prp

Resume Next

Else

' Unknown error.

ChangeProperty = False

Resume Change_Bye

End If

End Function



danach kannst du mit "SetBypassProperty False" die Umschalttaste unterbinden. Mit "SetBypassProperty True" kannst du es wieder einschalten! Aber Vorsicht bei Ausschalten das du immer eine Möglichkeit hast es wieder einzuschalten! Mir ist es schon öfters passiert und ich durfte mit von Vorn anfangen!





geschrieben von

Login

E-Mail:
  

Passwort:
  

Beitrag anfügen

Symbol:
 
 
 
 
 
 
 
 
 
 
 
 
 

Überschrift: