MaximoAccess

Caro Usuário, não tire as suas duvidas nas Salas de Repositório, abra sempre um novo tópico relacionado, nas salas destinadas para o efeito, como Sala de Tabelas, Consultas, Formulários, Relatórios, Macros, Módulos e VBA.

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

    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

    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 04 Dez 2016, 14:12