MaximoAccess

Caro Usuário, antes de postar pela primeira vez, leia as regras do fórum.

Obrigado

Administração do MaximoAccess

Dicas Ms Access, Exemplos Ms Access, Codigos VBA Ms Access, SQL Ms Access

    [Resolvido]valor vazio

    Compartilhe

    crb_sjrp
    Intermediário
    Intermediário

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 172
    Registrado : 21/03/2013

    [Resolvido]valor vazio

    Mensagem  crb_sjrp em Qua 04 Jun 2014, 16:40

    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
    avatar
    rdrck
    Super Avançado
    Super Avançado

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 983
    Registrado : 11/03/2014

    Re: [Resolvido]valor vazio

    Mensagem  rdrck em Qua 04 Jun 2014, 17:04

    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


    .................................................................................
    Meu Programa / OS:
    Access 2007 - Windows 7.

    crb_sjrp
    Intermediário
    Intermediário

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 172
    Registrado : 21/03/2013

    Re: [Resolvido]valor vazio

    Mensagem  crb_sjrp em Qua 04 Jun 2014, 18:15

    vcs são de mais valeu
    avatar
    rdrck
    Super Avançado
    Super Avançado

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 983
    Registrado : 11/03/2014

    Re: [Resolvido]valor vazio

    Mensagem  rdrck em Qui 05 Jun 2014, 12:44

    Que bom que resolveu.
    Sucesso.
    Valeu.


    .................................................................................
    Meu Programa / OS:
    Access 2007 - Windows 7.

      Data/hora atual: Dom 23 Jul 2017, 19:50