Comparar valores do campo

[rafaelc]

Boa tarde Pessoal,

Estou fazendo algumas regras de validação em um formulário e estou com uma duvida:

Fiz um loop "Case" que verifica se um numero é maior ou menor que o especificado

Segue o código:

Private Sub Contator_5_AfterUpdate()

Select Case Me.Contator_5

Case Is <= 200000 (Gostaria que este numero fosse proveniente de uma caixa de texto que o usuário vai determinar em Texto54)

Me.Texto44.ForeColor = 0 'Vermelho

Me.Texto44.FontBold = True

Me.Texto44 = "Não tomar nenhuma ação"

Case Else

Me.Texto44.ForeColor = 255 'Preto

Me.Texto44.FontBold = True

Me.Texto44 = "Solicitar troca deste componente"

End Select

End Sub

Então: Gostaria que o valor fosse comparado ao valor que estará inserido na caixa de texto: Texto54 que está neste mesmo formulário, mas não estou conseguindo.

Obrigado

[MrMALJ]

Basta referecenciar o objeto do formulário que conterar o falar que deseja se comparado:

Private Sub Contator_5_AfterUpdate()
Select Case Me.Contator_5
Case Is <= forms!seuFormulário!seuObjeto
Me.Texto44.ForeColor = 0 'Vermelho
Me.Texto44.FontBold = True
Me.Texto44 = "Não tomar nenhuma ação"
Case Else
Me.Texto44.ForeColor = 255 'Preto
Me.Texto44.FontBold = True
Me.Texto44 = "Solicitar troca deste componente"

End Select


End Sub

[rafaelc]

Olá Amigo;

Já havia tentado referenciar desta forma, mas não funciona.

[MrMALJ]

Só ressaltando que para funcionar o formulário onde o objeto se encontra deve estar aberto, mesmo que sem foco ou minimizado.

[rafaelc]

O campo que quero comparar está no mesmo formulário, porém não funciona

[Leandro Abbade]

Boa noite amigo,

Tente assim:

Crie um campo 'não acoplado'.

No evento 'no atual' do formulário, coloque:

me.CampoNaoAcoplado = 20000

Private Sub Contator_5_AfterUpdate()
Select Case Me.Contator_5
Case Is <= CampoNaoAcoplado 
Me.Texto44.ForeColor = 0 'Vermelho
Me.Texto44.FontBold = True
Me.Texto44 = "Não tomar nenhuma ação"
Case Else
Me.Texto44.ForeColor = 255 'Preto
Me.Texto44.FontBold = True
Me.Texto44 = "Solicitar troca deste componente"

End Select


End Sub