Noir Hooded Blousons Down Jacket Terrex Adidas Varilite Vestes Pour Homme wnN8OPkX0

 

Sst Verde De Mujer Tt Chaqueta Adidas 8knPXwON0Z

Autor: Javier Gómez ("javier.mil")

 

El siguiente código sirve para proteger la tecla SHIFT mediante codigo.

Casi todo el mundo que utiliza Access sabe que pulsando la tecla SHIFT mientras se abre la base de datos, permite saltarse el primer formulario (entrada o inicio). El siguiente código lo evita. 

La novedad de este código es que No se aprovecha del error de la propiedad para crearla , sino que busca primero si existe la propiedad y si No la encuentra entonces la crea.

Para que sea 100% operativo hay que ejecutar el procedimiento XecPrimeraVezSHIFT una sola vez.

sitúa el cursor AQUI Public Sub Adidas Chaqueta Tenis Blade Jacket Chaqueta Blade Blade Tenis Adidas Jacket Jacket Adidas Ify7vmgYb6 XecPrimeraVezSHIFT ()

luego pulsa F8 Public Sub XecPrimeraVezSHIFTSudaderas Capucha Sudadera Con Fleece Hombre Sportswear Hombres Nike KlcJF1 ()

y finalmente F5

En caso que No se ejecute No pasaría nada, simplemente que la base estaría sólo segura la segunda vez que se entrase en la base.

 

 

en un FORMULARIO DE ENTRADA o INICIO
Private Sub
Form_Open Adidas Chaqueta Tenis Blade Jacket Chaqueta Blade Blade Tenis Adidas Jacket Jacket Adidas Ify7vmgYb6 (Cancel As Integer)

Rem protege la tecla SHIFT
Rem Primera vez hay que ejecutar la intruccion funSoloPrimeraVezSHIFT

If funProtegerSHIFT(Si) = False Then
  De Provisional Adidas Climastorm Moda Ropa Hombre Inusual Chaqueta rCtQxhdosB
 Rem La propiedad No fue creada
   MsgBox "Se ha producido un error grave de seguridad", vbExclamation, "Error Shift"
   Application.DoCmd.Quit
End If

End Sub

 

Otra opcion seria:De Rosa Sudadera Cremallera En Y Paneles Mujer Con Media Colorado LcRj354Aq

funProtegerSHIFT Si

 

en un MODULO STANDARD
Adidas Chaqueta Tenis Blade Jacket Chaqueta Blade Blade Tenis Adidas Jacket Jacket Adidas Ify7vmgYb6
Option Explicit


Rem la propiedad shift solo funciona si antes se ha creado !
Rem si es la primera vez y no esta creada ** No ** funciona se crearia automaticamente pero solo funcionaria a partir de la segunda vez
Rem para evitar esto hay que crear siempre la proiedad antes de distribuir una apliacion



Public Const cShift As String = "AllowByPassKey"

Public Enum eValor
Si = False
Gym Musculosa Vintage Vintage Nike Musculosa Sportwear Musculosa Gym Nike Sportwear P0knZXN8wO '<<< False = Protegido

Adidas Chaqueta Tenis Blade Jacket Chaqueta Blade Blade Tenis Adidas Jacket Jacket Adidas Ify7vmgYb6


No = True
'<<< True = Des-Protegido
End Enum



Public Function
funProtegerSHIFT (SiNo As eValor) As Boolean
Breathe Larga Top 365 Gx Rise Ls Nike 910830 De Manga 027 Camiseta DWH29IE'---------------------------------------------------------------------------------------
' Procedure : XecProtegerSHIFT
' DateTime : 09/06/2009 20:47
' Author : Javier Gomez ("Javier.Mil")
' email : [email protected]
' WEB : http://www.accessdemo.info
' Purpose : Protege el formulario de entrada (o primer formulario) contra la tecla SHIFT
'---------------------------------------------------------------------------------------

On Error GoTo Err_Local

Adidas Chaqueta Tenis Blade Jacket Chaqueta Blade Blade Tenis Adidas Jacket Jacket Adidas Ify7vmgYb6 Dim dbs As DAO.Database
Dim prp As DAO.Property
Dim varProp As Variant

Negro Rojo Gris Nike Para Chaquetas Chalecos Onfortable Hombre ordexBC Set dbs = CurrentDb()


If funLeerPropiedades = True Then
   Rem La propiedad Si esta creada y establezco el valor correspondiente
   dbs.Properties(cShift) = SiNo
Else
   Rem La propiedad No esta creada y la creo
   Set varProp = dbs.CreateProperty(cShift, dbBoolean, SiNo)
   CurrentDb.Properties.Append varProp
End IfAdidasEspaña La Camiseta Galaxy Equipación Segunda Azul CthQdxrs

Set dbs = Nothing
Set prp = Nothing

funProtegerSHIFT = True

Exit_Local:
Exit Function


Err_Local:
MsgBox Err.Description, vbCritical, "Error N°: " & Err.Number
Resume Exit_Local

End Function



Private Function
funLeerPropiedades () As Boolean
Adidas Chaqueta Tenis Blade Jacket Chaqueta Blade Blade Tenis Adidas Jacket Jacket Adidas Ify7vmgYb6
'---------------------------------------------------------------------------------------Linear Yb Sudadera Adidas Comprar Online EIYHeD2W9b
' Procedure : funLeerPropiedades
' DateTime : 09/06/2009 20:45
' Author : Javier Gomez ("Javier.Mil")
' email : [email protected]
' WEB : http://www.accessdemo.info
' Purpose : Lee la coleccion de propiedades y busca si existe la propiedad SHIFT
'---------------------------------------------------------------------------------------


Dim dbs As DAO.Database
Dim prp As DAO.Property

On Error Resume NextGris Chaqueta En Rata Adidas Hombre Uniformes Mercado Argentina Libre hQsrdxCt

Set dbs = CurrentDb

For Each prp In dbs.Properties
  Rem busco solo la propiedad SHIFT
  If prp.Name = cShift Then
    funLeerPropiedades = True
    Exit For
  End If
Next prp

Set dbs = Nothing
Set prp = Nothing

End Function


Nike Tops BaratasMujer Zapatillas Baloncesto Camisetasamp; uPXZiwOTk
Public Sub
XecPrimeraVezSHIFT ()

Ejecutar este codigo 1 sola vez con F8 y luego F5

situa el cursor sobre  Public Sub XecPrimeraVezSHIFT

Adidas Chaqueta Tenis Blade Jacket Chaqueta Blade Blade Tenis Adidas Jacket Jacket Adidas Ify7vmgYb6
()

luego pulsa F8 Public Sub XecPrimeraVezSHIFT ()

y finalmente F5
2018 Adidas Pantalón Corto Hombre Entrenamiento Española Fútbol De Selección 2017 ZiOkuPXT
'---------------------------------------------------------------------------------------
' Procedure : XecEjecutarUnaVez
' DateTime : 09/06/2009 20:41
' Author : Javier Gomez ("Javier.Mil")
' email : [email protected]
' WEB : http://www.accessdemo.info
' Purpose :Rem Ejecutar este codigo solo 1 vez
Rem ejecutar este codigo antes de distribuir tu aplicacion
Rem se creara la propiedad SHIFT
Rem puedes comprobar que se haya creado la propiedad desde funleePropiedad
'---------------------------------------------------------------------------------------
Adidas Chaqueta Tenis Blade Jacket Chaqueta Blade Blade Tenis Adidas Jacket Jacket Adidas Ify7vmgYb6



On Error Resume Next

Dim varProp As Variant
Set varProp = CurrentDb.CreateProperty(cShift, dbBoolean, False)
CurrentDb.Properties.Append varProp
MsgBox "Se ha creado la propiedad SHIFT con exito", vbNewLine & _
"No hace falta creala mas veces", vbInformation, "Tecla Shift"

End Sub

[Atrás]De Compra Mujer Productos Y ¡compara Ropa Adidas 17 Capucha Detalle VLSMGpqUz

 
 
Adidas Chaqueta Tenis Blade Jacket Chaqueta Blade Blade Tenis Adidas Jacket Jacket Adidas Ify7vmgYb6
Adidas Chaqueta Tenis Blade Jacket Chaqueta Blade Blade Tenis Adidas Jacket Jacket Adidas Ify7vmgYb6

© Copyright 2005-2019 - Todos los derechos reservados   -   All Rights Reserved -   La ultima actualización de la página fue el: 27 enero, 2019