[Resolvido]valor vazio

galera preciso verificar num formulário na função

Private Sub Form_Current()

idcliente for vazio

alguns campos vao ficar invisível

ou não

e dar uma mensagem

estou usando assim mas acho que deve ter outro modo

Private Sub Form_Current()

If IDCLIENTE > 0 Then
ALTERAR.Enabled = True
If SITUACAO = "ATIVO" Then
DESATIVAR.Enabled = False
DESATIVAR.Visible = True
ATIVAR.Enabled = False
ATIVAR.Visible = False
Else
DESATIVAR.Enabled = False
DESATIVAR.Visible = False
ATIVAR.Enabled = False
ATIVAR.Visible = True
End If
If TIPOJURIDICO = "FISICA" Then
TCPF.Visible = True
TCNPJ.Visible = False
Else
TCNPJ.Visible = True
TCPF.Visible = False
End If
Else
ALTERAR.Enabled = False
TCPF.Visible = False
TCPF.Enabled = False
TCNPJ.Visible = False
TCNPJ.Enabled = False
End If
End Sub

pois se eu colocar idcliente="" then

não faz nada não funciona

Olá Crb,
Tente isso:

Private Sub Form_Current()

If Me.IDCLIENTE <> Null And Me.SITUACAO = "ATIVO" Then
Me.ALTERAR.Enabled = True
Me.DESATIVAR.Enabled = False
Me.DESATIVAR.Visible = True
Me.ATIVAR.Enabled = False
Me.ATIVAR.Visible = False
Else If Me.IDCLIENTE <> Null And Me.SITUACAO = "INATIVO" Then
Me.DESATIVAR.Enabled = False
Me.DESATIVAR.Visible = False
Me.ATIVAR.Enabled = False
Me.ATIVAR.Visible = True
End If
If Me.IDCLIENTE <> Null And Me.TIPOJURIDICO = "FISICA" Then
Me.TCPF.Visible = True
Me.TCNPJ.Visible = False
Else If Me.IDCLIENTE <> Null And Me.TIPOJURIDICO = "JURIDICA" Then
Me.TCNPJ.Visible = True
Me.TCPF.Visible = False
End If
If Me.IDCLIENTE = Null
Me.ALTERAR.Enabled = False
Me.TCPF.Visible = False
Me.TCPF.Enabled = False
Me.TCNPJ.Visible = False
Me.TCNPJ.Enabled = False
End If
End Sub

vcs são de mais valeu

Que bom que resolveu.
Sucesso.
Valeu.