Boa noite pessoal! Sou novo no fórum, aproveitando quero parabenizar pelo conteúdo desse fórum, me ajudou bastante em algumas coisas, sou iniciante no Access também....
Gostaria que alguém me ajudasse no código VBA abaixo!
Esse código é para ocultar a tecla SHIFT na inicialização de um BD. A questão é que, quando vou executá-lo ele me retorna o erro na imagem abaixo para a 5ª linha - If DB Is Nothing Then
Alguém pode me ajudar? Grato desde já!
Gostaria que alguém me ajudasse no código VBA abaixo!
- Código:
Option Compare Database
Function AlterarPropriedade(strPropName As String, varPropType As Variant, varPropValue As Variant) As Integer
'Cortesia: Carlos Moura - www.espaco_access.kit.net
Dim prp As Property
Const conPropNotFoundError = 3270
If DB Is Nothing Then
Set DB = CurrentDb
End If
On Error GoTo Change_Err
DB.Properties(strPropName) = varPropValue
AlterarPropriedade = True
Change_Bye:
Exit Function
Change_Err:
'Propriedade não localizada.
'cria a propriedade
If err = conPropNotFoundError Then
Set prp = DB.CreateProperty(strPropName, _
varPropType, varPropValue)
DB.Properties.Append prp
Resume Next
Else
' Erro desconhecido.
AlterarPropriedade = False
Resume Change_Bye
End If
End Function
Sub DefinirPropriedadesDeInicialização()
'tecla Shift ficara bloqueada
AlterarPropriedade "AllowBypassKey", dbBoolean, False
End Sub
Esse código é para ocultar a tecla SHIFT na inicialização de um BD. A questão é que, quando vou executá-lo ele me retorna o erro na imagem abaixo para a 5ª linha - If DB Is Nothing Then
Alguém pode me ajudar? Grato desde já!
Última edição por kelvindeth em 29/4/2013, 00:06, editado 1 vez(es)