[Resolvido]não consigo colocar o botão como eneble

Anigos boa tarde. eu tentei de varias formas ultilizo bastante esse código mas não funciona
tenho um formulario que recebe os dados da lista

Código:

Forms!fromEstacionamento!txtCódigo = ListaDeBusca.Column(0)

quero travar os botões quando os campos recebem os dados

Código:

 if not isnull (me.txtInicial) then
  else
    me.btInicial.enable=false
end if
end sub

mas não travam será que é porcausa de receberem por lista ,pois ja tentei em varias propriedades do evento

Crysostomo,

Tá com erro na sintaxe do comando

if not isnull (me.txtInicial) then
else
me.btInicial.enable=false
end if
end sub

O correto é Enabled

boa tarde Alexandre , eu escrevi esse sem copiar mesmo sempre esqueço letras.
ele está dando erro. Não quer travar

Então a condição não está atendendo.
Tente isso:

Código:




If Not IsNull(Me.txtInicial) Then
     Me.btInicial.Enabled = True
Else
     Me.btInicial.Enabled = False
End If



ja tentei essa , não vai . a condição atente ao abrir o sistema , mas não atente se o campo estiver vazio liberar o campo se caso ja estiver preenchido travar o botão

Faça assim:

If Not IsNull(Me.txtInicial) Or Trim(Me.txtInicial) = Empty Then
Me.btInicial.Enabled = True
Else
Me.btInicial.Enabled = False
End If

Não funciona . vou tentar aqui outro e te enviar o DB

não funciona. fui mexendo aqui e te enviar a DB, pode ser;?
creio que pode ser por causa ta lista , mas seria estranho isso

Sim ...manda o bd e informa qual o formulário que tá dando o erro.
vlw

eu clicando duas vesses no from localizar o fromEstacionamento recebe todos os dados da lista, caso o txtInicial  estiver preenchido o botão iniciar tem que travar  o txtFinal é a mesma coisa se estiver preenchido o botão encerrar tem que travar
Esta no evento atualizar, ao carregar , no atual

Crysostomo,

No Form_Localizar, no evento ListaDeBusca_DblClick(), depois de preencher os campos, coloque esta instrução:

Código:


    
    With Form_fromEstacionamento
        If Not IsNull(.txtCódigo) Then
            .btIniciar.Enabled = False
        Else
            .btIniciar.Enabled = True
        End If
    End Wit
    



Espero ter ajudado

Boa sorte

Alexandre Obrigado, dei uma olhado sobre o With, sai do pc um pouco para refrescar a cabeça, esse With é como uma ligação de um formulário com outro tipo 1 como se fosse 1 formulário dividido, mas da onde o from estacionamento reconhece o comando localizar, pois ele não esta colocando a condição si o campo for preenchido ele ja manda o botão travar. entendeu o que eu quero dizer?

Crysostomo,

Segue o código:

Código:


Private Sub ListaDeBusca_DblClick(Cancel As Integer)
On Error GoTo Trata_Erro
 
    Forms!fromEstacionamento!txtCódigo = ListaDeBusca.Column(0)
    Forms!fromEstacionamento!txtPlaca = ListaDeBusca.Column(1)
    Forms!fromEstacionamento!txtInicial = ListaDeBusca.Column(2)
    Forms!fromEstacionamento!txtInicial = ListaDeBusca.Column(3)
    Forms!fromEstacionamento!txtFinal = ListaDeBusca.Column(5)
    Forms!fromEstacionamento!txtAcerto = ListaDeBusca.Column(7)
    Forms!fromEstacionamento!txtValorTotal = ListaDeBusca.Column(8)
 
 
    'Alexandre Fim - 19/08/2020 -------------------------------------------------------
    ' Se o campo txtFinal for NULO ou VAZIO        => habilita o comando btIniciar
    ' Se o campo txtFinal não for NULO ou VAZIO    => desabilita o comando btIniciar
   
    With Form_fromEstacionamento
        If IsNull(.txtFinal) Or Trim(.txtFinal) = Empty Then
            .btIniciar.Enabled = True
        Else
            .btIniciar.Enabled = False
        End If
    End With
    '----------------------------------------------------------------------------------
   
    Exit Sub

Trata_Erro:
    MsgBox "Erro gerado: " & Err.Number & " - " & Err.Description & "", vbCritical, "Erro"
    Exit Sub
   
   
End Sub




A instrução WITH significa "Com o ", onde abaixo desta instrução, vc pode utilizar os eventos/propriedades/funções, sem precisar repetir o nome do objeto/controle.

Ao invés de:

Forms!fromEstacionamento!txtCódigo = ListaDeBusca.Column(0)
Forms!fromEstacionamento!txtPlaca = ListaDeBusca.Column(1)
Forms!fromEstacionamento!txtInicial = ListaDeBusca.Column(2)
Forms!fromEstacionamento!txtInicial = ListaDeBusca.Column(3)
Forms!fromEstacionamento!txtFinal = ListaDeBusca.Column(5)
Forms!fromEstacionamento!txtAcerto = ListaDeBusca.Column(7)
Forms!fromEstacionamento!txtValorTotal = ListaDeBusca.Column(

Fazer assim:

With Forms!fromEstacionamento
!txtCódigo = ListaDeBusca.Column(0)
!txtPlaca = ListaDeBusca.Column(1)
!txtInicial = ListaDeBusca.Column(2)
!txtInicial = ListaDeBusca.Column(3)
!txtFinal = ListaDeBusca.Column(5)
!txtAcerto = ListaDeBusca.Column(7)
!txtValorTotal = ListaDeBusca.Column(
End With


Faça os testes e me informe.

Espero ter ajudado

tinha esquecido o resolvido.
Acabei de fazer outro trabalho que é editar vídeo, 3 vídeos editados.
vou ver e te informo.
obrigado pela explicação