Alguem tem algum programinha mdb onde eu digito o caminho de um banco de dados e tenho a opção de bloquear ou desbloquer o uso da tecla shift no banco de dados do qual eu indiquei o caminho?
Só consegui programas que bloqueiam o uso do shift no proprio banco.

Oi Bruno,

Veja se ajuda!!!


Function AltProp(nmdb as String, strPropName As String, varPropType As Variant, varPropValue As Variant) As Integer
'função para alterar propriedades do mdb

On Error GoTo AltProp_Err

Dim prp As Property
Dim db as Database

Set db = OpenDatabase(nmdb)
db.Properties(strPropName) = varPropValue
AltProp = True
Set db = Nothing

AltProp_Bye:
Exit Function

AltProp_Err:
If Err = 3270 Then 'Propriedade não localizada.
'Não existe CreateProperty no ADO, funciona apenas com DAO
Set prp = db.CreateProperty(strPropName, varPropType, varPropValue, True)
db.Properties.Append prp
Resume Next
Else 'Erro desconhecido.
AltProp = False
Resume AltProp_Bye
End If

End Function

t+

Tenho um aplicativo muito bom, que ganhei de um amigo da Bolivia. Ele trava e destrava o shift e faz mais algumas configurações básicas no Access.
Mande seu email que lhe envio.
Ele está em formato MDE, mas é funcional.

Ewoks,

Poderia mandar prá mim também?

Veja no seu email...


Ewoks

bruno1001@yahoo.com.br
Estou no aguardo Ewoks

Obrigado...

Bruno Gomes

Veja o seu email

Ewoks

Podedria ma passá-lo tb ?

E-mail: soclikar@bol.com.br

Desde já grato.

Veja no seu email.

Ewoks

SOU NOVO NA ÁREA. ONDE TRABALHO TENHO OPORTUNIDADES DE CRIAR PEQUENOS SISTEMAS, PORÉM NÃO APRENDI COMO INIBIR O USO DA TECLA SHIFT AO ABRIR O ACCESS. VERIFICANDO AS MENSAGENS, PUDE NOTAR QUE VOCÊS TEM UM PROGRAMA QUE JÁ EXECUTA ESTA FUNÇÃO. PORTANTO NA MEDIDA DO POSSÍVEL, GOSTARIA QUE ME FORNECESSEM TAMBÉM UMA CÓPIA, POIS SERÁ DE GRANDE AJUDA.
ABRAÇOS, NEUBERT.
MEU EMAIL: wneubs@oi.com.br ou wneubs@yahoo.com.br

Veja o seus emails.

Enviei o arquivo solicitado...


Ewoks