[Resolvido]Desativar campos!

Seguinte: Tenho um formulario e um botão com nome "Trava"(Comando31), neste botão gostaria da função que desative/trave os campos.

Já li alguns tópicos aqui mesmo e tentei varias formas mas ainda não resolveu meu problema, tais como:

Código:


Dim Trava1 As Boolean
Private Sub Comando31_Click()

If Trava1 = True Then   
    Origem.Enabled = False
    Destino.Enabled = False
    Alternativo.Enabled = False
    Distância_1.Enabled = False
    Distância_2.Enabled = False
    Altitude.Enabled = False
    Trava1 = False
Else
    Origem.Enabled = True
    Destino.Enabled = True
    Alternativo.Enabled = True
    Distância_1.Enabled = True
    Distância_2.Enabled = True
    Altitude.Enabled = True
    Trava1 = True
End If
End Sub


Cmte Henrique.
Desde já agradeço!

Boas CmteHenrique..Seja bem vindo ao Fórum!

Mas este código ai faz isso.. Ele não está funcionando?

Cumprimentos.

Obrigado!!

Exatamente ele não está funcionando!

Já verifiquei os nomes e está tudo certinho!

Nunca consegui fazer nada em VBA, pois, nunca funciona.
Para o auto preenchimento de alguns campos eu fiz da seguinte forma:
Na Propriedade "Fonte do Controle" eu digito por exemplo:
=[Lista26].[Column](4) E funciona, já em VBA acho que DlookUp não funciona.

Boas Cmte.

Nao havia prestado atenção, mas tem que referenciar todos os objetos.

Me.Origem.Enabled = False

Com o Me.


Cumprimentos.

Quanto ao Dlookup funciona com perfeição, talvez nao esteja aplicando corretamente.

Quando surgir duvidas, recorra ao Fórum, ficaremos felizes am ajudá-lo.

Cumprimentos.

Boa Harysohn.
Obrigado pela ajuda.

Código:


Private Sub Comando31_Click()

If Me.Trava1 = True Then
    Me.Trava1 = False
    Me.Origem.Enabled = False
    Me.Destino.Enabled = False
    Me.Alternativo.Enabled = False
    Me.Distância_1.Enabled = False
    Me.Distância_2.Enabled = False
    Me.Altitude.Enabled = False
Else
    Me.Origem.Enabled = True
    Me.Destino.Enabled = True
    Me.Alternativo.Enabled = True
    Me.Distância_1.Enabled = True
    Me.Distância_2.Enabled = True
    Me.Altitude.Enabled = True
    Me.Trava1 = True
End If

End Sub


Mas ainda não está funcionando!

Acabei de fazer pelo "Macro Incorporada", usando "Ação:DefinirPropriedade Argumentos:Origem;Habilitado;0" e funcionou, só que trava todos os registros e não o atual apenas.

Por macro, tem um limite de 20, como tiro esse limite?

E me ajuda a encontrar uma outra forma em VBA para este problema por favor.

Valeu Harysohn, Abraço.

Boas Henrique...

Veja:

https://dl.dropbox.com/u/26441349/CmteHenrique.rar


Voce só não conseguirá desbailitar o botão que utilizará para essa rotina, pois não se pode desabilitar um controle enquanto ele tiver o foco.

Cumprimentos.

Boa noite Harysohn. Tudo bem?

Obrigado por criar este codigo, porem, aqui no meu access não funcionou.

Fiz assim: Abri o arquivo e em seguida executei o Form..
Olhei o que tinha nele, vi o botão "Pressione aqui" e fiz.
Nada aconteceu então fui olhar o codigo, e eu o entendi, mas mesmo assim nada de funcionar.

O que pode estar acontecendo?

O codigo para tirar o foco é este?

Código:

Private Sub CpStatus_BeforeUpdate(Cancel As Integer)
If Me.CpStatus = "Em análise" Then
Me.cpData = Now()
ElseIf Me.CpStatus = "Finalizado" Then
Me.CpDiasDecorridos = "Dias decorridos da análise: " & DateDiff("d", Me.cpData, Now)
End If

End Sub

Abraço amigo!

Ops..Esse ai ta de intruso ai amigao..


o código é esse:

Private Sub Comando9_Click()
If Trava1 = True Then
Me.btnExemplo.Enabled = False
Trava1 = False
Else
Me.btnExemplo.Enabled = True
Trava1 = True
End If
End Sub




Clique seguidamente no botao...


Cumprimentos.

Defina a variavel Trava1 como True ao abrir do form..

Codigo completo:]


Option Compare Database
Dim Trava1 As Boolean

Private Sub Comando9_Click()
If Trava1 = True Then
Me.btnExemplo.Enabled = False
Trava1 = False
Else
Me.btnExemplo.Enabled = True
Trava1 = True
End If
End Sub




Private Sub Form_Open(Cancel As Integer)
Trava1 = True
End Sub

Então.. entendi e fiz o que me pediu.

Porem nada, acho que o meu access não está trabalhando em conjunto com o codigo VBA, existe essa possibilidade?

No Menu do Access, clique no botão principal
1 - Opcões do Access
2 - Central de confiabilidade
3 - Configurações da central de confiabilidade
4 - Configurações de Macro
5 - Habilitar todas as Macros

Saia, reinicie e teste novamente.


Cumprimentos.

Muito boa tarde Harysohn!

Funcionou perfeitamente.

Já imagina essa posibilidade pois sempre que colocava um código, de forma correta, ele não funcionava.

Muito obrigado!!!
Agora vou continuar o meu projeto e adaptar alguns códigos como DLookUp e me informar mais sobre VBA.

Mais uma duvida, está travando todos os proximos registros.. quero que trave apenas o registro atual.

Valeu um abraço!

Boas Cmte Henrique,

Para dar o tópico como resolvido, acima à direita do botão enviar tem um botão resolvido, basta clicar nele.

Não se esqueça de tambem clicar no joinha da msg que o auxiliou.

Desta vez eu coloco o resolvido pra ti.

O Fórum agradece o retorno.

Cumprimentos.