Access y VBA
Blog de Access y VBA del Buho


Inicio


Acerca de
Suscríbete al blog

Categorías
General [3] Sindicar categoría
Access con Codigo VBA [15] Sindicar categoría

Archivos
Septiembre 2005 [11]
Agosto 2005 [5]
Junio 2005 [2]

Sindicación (RSS)
Artículos
Comentarios

 


Anular Tecla Shift

Mediante el siguiente código se puede eliminar las entradas indeseadas con la tecla shift.

si no se entra con la clave indicada, se anula la entrada con la tecla shift, y entrando con la clave se activa para la próxima vez que se entre.

Public Function AlterarPropriedade(strPropName As String, varPropType As Variant, varPropValue As Variant) As Integer

  Dim dbs As Database, prp As Property 
  Const conPropNotFoundError = 3270 
  Set dbs = CurrentDb

  On Error GoTo Change_Err

  dbs.Properties(strPropName) = varPropValue 
  AlterarPropriedade = True

Change_Bye: 
  Exit Function

Change_Err:

  If Err = conPropNotFoundError Then ' Propiedad no ha sido localizada. 
    Set prp = dbs.CreateProperty(strPropName, varPropType, varPropValue) 

    dbs.Properties.Append prp 
    Resume Next 
  Else 
    ' Error desconocido. 
    AlterarPropriedade = False 
    Resume Change_Bye 
  End If

End Function

Private Sub Form_Open(Cancel As Integer) 
  Dim f As Date 
  Dim hoy As Date 
  Dim usr As String

  usr = InputBox("Introduzca el nombre de usuario", "Usuario", "Pepito de los Palotes")  

  If usr <> "*** MI CLAVE SECRETA ***" Then 
    AlterarPropriedade "AllowBypassKey", dbBoolean, False 
  Else 
    AlterarPropriedade "AllowBypassKey", dbBoolean, True 
  End If 

  

  DoCmd.Close acForm, "inicio"

End Sub

Por ErBuho - 5 de Septiembre, 2005, 1:30, Categoría: Access con Codigo VBA
Enlace Permanente | Referencias (0)




<<   Septiembre 2005    
LMMiJVSD
      1 2 3 4
5 6 7 8 9 10 11
12 13 14 15 16 17 18
19 20 21 22 23 24 25
26 27 28 29 30   

Enlaces
eGrupos
ZoomBlog

 

Blog alojado en ZoomBlog.com