Tengo un codigo que deshabilita la tecla shift, entonces en una B.D., en las
propiedades de inicio le quite todo o sea las opciones de permitir barras y eso,
y ahora al abrir, se me olvido colocarle formulario de inicio, entonces la carga,
pero con nada, y no se como hacer para deshabilitar la tecla shift, para poder
arreglar.
Comentarios.
esto es lo que tengo en otra base, de donde copie el codigo en un command.
Dim wrkpredeterminado As Variant
Dim dbs As Database
Dim a As Integer
Set wrkpredeterminado = DBEngine.Workspaces(0)
Set dbs = wrkpredeterminado.OpenDatabase("c:\inventario\pcventario.mdb")
a = dbs.Properties("allowbypasskey")
If a = 0 Then
alterarshift "AllowBypassKey", dbBoolean, True
MsgBox "La Tecla Shift ha sido DesBloqueada", vbExclamation
Else
MsgBox "La tecla Shift esta actualmente DesBloqueada", vbInformation
End If
y llama este modulo
Function alterarshift(strPropName As String, varPropType As Variant, varPropValue
As Variant) As Integer
Dim wrkjet As Workspaces
Dim dbs As Database, prp As Property
Const conPropNotFoundError = 3270
Set dbs = currentdb
On Error GoTo Change_Err
dbs.Properties(strPropName) = varPropValue
alterarshift = True
Change_Bye:
Exit Function
Change_Err:
If Err = conPropNotFoundError Then ' Propriedad no existente.
Set prp = dbs.CreateProperty(strPropName, varPropType, varPropValue)
dbs.Properties.Append prp
Resume Next
Else
' Error desconocido.
alterarshift = False
Resume Change_Bye
End If
End Function
"Nicolai Cardenas" <nicolai....@prc-laws.com> escribió en el mensaje news:178d01c05661$079e3880$33862ecf@cpmsftngxa04...
"Juan Carlos Pazos" <pa...@datafox.com> escribió en el mensaje news:uCEmSmqVAHA.196@cppssbbsa04...Pon el siguiente archivo en donde está el Access (usualmente Archivos de
Programa\Microsoft Office\...) y después abres Access con cualquier base de
datos y del menú Herramientas | Complementos | Administrador de Complementos
lo activas. Una vez activado verás un nuevo complemento disponible llamado
Wizard Control con él podrás entre otras cosas activar y desactivar la tecla
Shift de cualquier base de datos (mdb o mde).
"Nicolai Cardenas" <nicolai....@prc-laws.com> escribió en el mensaje
news:178d01c05661$079e3880$33862ecf@cpmsftngxa04...
"Jesús López" <jesu...@navegalia.com> escribió en el mensaje news:edkek3sVAHA.242@cppssbbsa05...
¿Seria posible explicar un poco como has creado el complemento, es decir,
como hacerlo reutilizable en distintas bases de datos?
Muchas gracias.
"Juan Carlos Pazos" <pa...@datafox.com> escribió en el mensaje
news:uCEmSmqVAHA.196@cppssbbsa04...
> Pon el siguiente archivo en donde está el Access (usualmente Archivos de
> Programa\Microsoft Office\...) y después abres Access con cualquier base
de
> datos y del menú Herramientas | Complementos | Administrador de
Complementos
> lo activas. Una vez activado verás un nuevo complemento disponible llamado
> Wizard Control con él podrás entre otras cosas activar y desactivar la
tecla
> Shift de cualquier base de datos (mdb o mde).
>
> "Nicolai Cardenas" <nicolai....@prc-laws.com> escribió en el mensaje
> news:178d01c05661$079e3880$33862ecf@cpmsftngxa04...