[Resolvido]Formatação condicional

Bom dia amigos
como posso juntar estas duas funções
Private Sub Form_Current()
If Me.Liquidado = 0 Then
Else:
Me.Status = "A Receber"
End If
End Sub

Private Sub Form_Current()
If Me.Liquidado = -1 Then
Else:
Me.Status = "Recebido"
End If
End Sub

Obrigado
Pina

O Else tem como função isso aí mesmo. Se não for um, é o outro. Utilize ele.

Bom dia Criquio
Obrigodo pela ajuda
Fiz da seguinte forma

Private Sub Form_Current()
If Me.Liquidado = -1 Then
Me.Status = "Recebido"
ElseIf Me.Liquidado = 0 Then
Me.Status = "A Receber"
End If
End Sub

Aparece automáticamente o resultado no 1º campo do formulário mas se esse formulário tem mais que Um campo só aparece com um clik, como pde aparecer automáticamente em todos os campos?
Obrigado
Pina

Trata-se de um formulário contínuo? Se for, passe para a origem do campo, utilizando o Iif ou SeImed:

=Iif([Liquidado]=-1;"Recebido";"A Receber")

Bom dia Criquio
Obrigado
Realmente é um Formulário Continuo
Não posso colocar na origem do campo Status porque faz filtro
Obrigado
Pina

Bom dia Criquio
Com faço uma linha de cada vez optei por fazer com o mulo acima
Private Sub Form_Current()
If Me.Liquidado = -1 Then
Me.Status = "Recebido"
ElseIf Me.Liquidado = 0 Then
Me.Status = "A Receber"
End If
End Sub

e fica bem
Obrigado
Pina