[Resolvido]Tornar campo visivel ao entrar com código

como tornar visível um campo ao entrar com o numero 1 em outro campo?

No evento após atualizar deste campo

If ME.SeuCampo2 = "1" Then
Me.SeuCampo1.Visible = True
Else
Me.SeuCampo1.Visible = False
End If

Cumprimentos.

Bom Dia !valeu Harysonh,por mais está ajuda.
até a próxima!RSRSRS

O Fórum agradece o Retorno.

Cumprimentos.

Ainda referente a este tópico,para acrescentar o 2 dois como fica
tentei assim mas não funcionou

Private Sub CodBarras_AfterUpdate()
If Me.CodBarras = "1" Then
Me.CodBarras = "2"
Me.CodBarras = "3"
Me.CodBarras = "4"
Me.Texto52.Visible = True
Else
Me.Texto52.Visible = False
End If

Nao entendi a logica disso.. explique


Private Sub CodBarras_AfterUpdate()
If Me.CodBarras = "1" Then
Me.CodBarras = "2"
Me.CodBarras = "3"
Me.CodBarras = "4"
Me.Texto52.Visible = True
Else
Me.Texto52


Cumprimentos.

Fazer com que torne um campo visivel, digitando os códigos 1,2,3 ou 4

Private Sub CodBarras_AfterUpdate()
If Me.CodBarras = "1" or "2" or "3" or "4" Then
Me.Texto52.Visible = True
Else
Me.Texto52

Cumprimentos

Harysohn,funcionou assim

Private Sub CodBarras_AfterUpdate()
If Me.CodBarras = "1" or "2" or "3" or "4" Then
Me.Texto52.Visible = True
Else
End if

Valeu!