[Resolvido]Se houver mais de um registro na busca, mostrar rótulos e comandos

Pessoal, outra...

quero que ao abrir um form baseado em uma consulta, apareçam alguns botões de comando e rótulos que estão com a propriedade "visível" como "não" caso hajam mais de um registro...

tentei o código abaixo no evento "AO ABRIR" do form mas não funfou...

Só para constar: o campo "Texto53" é calculado (=contar(*)) e não acoplado.

Private Sub Form_Open(Cancel As Integer)

Me.ChaveCONSTRUTORAS.SetFocus

If Me.Texto53.Value >= 2 Then

Me.Comando51.Visible = True
Me.Comando52.Visible = True
Me.Comando55.Visible = True
Me.Rótulo50.Visible = True

End If

End Sub


alguém sabe como fazer?

thanks

Leandro

Olá Leandro,

Porque você não tenta colocar todos os campos com o visível = sim e colocar o seu código assim:

If Me.Texto53.Value >= 2 Then
Me.Comando51.Visible = True
Me.Comando52.Visible = True
Me.Comando55.Visible = True
Me.Rótulo50.Visible = True
Else
Me.Comando51.Visible = False
Me.Comando52.Visible = False
Me.Comando55.Visible = False
Me.Rótulo50.Visible = False
End
End If

Talvez funcione.

Olá rdrck,

olha, não funfou...

com o "end" na penúltima linha, o form não abria.
tirando o "end" na penúltima linha, o form abre mas o código não surte efeito...

Leandro

Olá Leandro,

Vejo que você colocou o código no evento "Ao Abrir" de seu form.
Já tentou colocá-lo no evento "Ao atualizar" do campo "Texto53"?

não funfou...

tentei tbém no ao carregar, após atualizar e antes de atualizar do form e nada

Bom, já tentou vincular essa "visibilidade" dos botões a outro campo?
Talvez o problema seja em razão de ser um campo calculado, o que necessitaria primeiro do cálculo para uma ação e, talvez, esteja dando algum problema.
Esse campo calculado está calculando o número de registros que aparecem no form?

Utilizei o campo CNPJ colocando o numero de um determinado CNPJ no código para testar...

If Me.CNPJ = "11000222333344" Then
Me.Comando51.Visible = True
Me.Comando52.Visible = True
Me.Comando55.Visible = True
Me.Rótulo50.Visible = True
Else
Me.Comando51.Visible = False
Me.Comando52.Visible = False
Me.Comando55.Visible = False
Me.Rótulo50.Visible = False
End If

...funcionou

O problema é que preciso da contagem de registros...

Já tentou colocar a função no evento "Após Atualizar" ou "Ao Alterar" do campo?
Mas é no evento do campo e não do form.

nada...

Olá, o ideal é anexar os objetos envolvidos no pedido de ajuda para que seja possível uma ajuda mais concreta.

Olá Leandro,

Tenta fazer o seguinte:
Coloca seu código no evento "No Timer" do form e, logo abaixo, no evento Intervalo do Cronômetro, coloca 1000 (equivale a 1 segundo), isso vai fazer com que o código seja executado após 1 segundo da abertura do form.
Vê se funciona.

eeeeeeeeeeeeeeeeeee funfou!

valeu rdrck e Beto! só tem cara bão aqui....

um abraço

Leandro

Valeu.