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]Verificar se campo texto está vazio

    avatar
    camiguel
    Novato
    Novato

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 6
    Registrado : 30/07/2012

    [Resolvido]Verificar se campo texto está vazio Empty [Resolvido]Verificar se campo texto está vazio

    Mensagem  camiguel em 23/6/2014, 01:52

    Tenho num formulário o campo chave [Nº Documento] do tipo texto que é preenchido automáticamente de forma sequencial do tipo 001/2014 ao gravar o registo:
     
    Para isso utilizei o seguinte código associado a um botão de gravar registo, após pesquisa no forum:
     
       Me.Nº_Documento = IIf(DCount("[Nº Documento]", "TB-Receitas&Despesas") = 0, ("001" & Year(Date)), Format((Left(DMax("[Nº Documento]", "TB-Receitas&Despesas"), 3) + 1) & Year(Date), "000\/0000"))
     
    Mas preciso de verificar primeiro se o campo já está numerado, para que este código só seja corrido se o campo ainda estiver vazio.
     
    Para isso tentei acrecentar mais o seguinte:
     
    If [Nº Documento] = null then
    Me.Nº_Documento = IIf(DCount("[Nº Documento]", "TB-Receitas&Despesas") = 0, ("001" & Year(Date)), Format((Left(DMax("[Nº Documento]", "TB-Receitas&Despesas"), 3) + 1) & Year(Date), "000\/0000"))
    End if
     
    Mas não está a dar. Provavelmente tem haver por o campo texto vazio não ter o valor Null
     
    Sei que é uma duvida básica de principiantes, mas alguém me pode ajudar ?
    daniloreiis
    daniloreiis
    Avançado
    Avançado

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 330
    Registrado : 14/02/2011

    [Resolvido]Verificar se campo texto está vazio Empty Re: [Resolvido]Verificar se campo texto está vazio

    Mensagem  daniloreiis em 23/6/2014, 12:13

    Bom dia Amigo!

    Tente assim:


    If isnull([Nº Documento]) then


    Abraços


    .................................................................................
    Att, Danilo Reis
    -------------------------------------------------------------------------------------------------------------------------------------------------

    Se alguém não quiser trabalhar, não coma também.
    2 Tessalonicenses 3:10
    avatar
    Noobezinho
    Moderador
    Moderador

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 3633
    Registrado : 29/06/2012

    [Resolvido]Verificar se campo texto está vazio Empty Re: [Resolvido]Verificar se campo texto está vazio

    Mensagem  Noobezinho em 23/6/2014, 13:07

    Danilo

    Experimente assim:

    If isnull([Nº Documento]) OR [Nº Documento]= "" then ' as aspas juntas, significa cordão vazio (string vazia)

    Para acrescentar um novo ID a um novo registro, você pode colocar o código na propriedade Ao alterar do primeiro controle do formulário
    a ser digitado.Assim terá certeza de que o registro recebeu a ID.

    *Dica: Evite colocar espaços nos nomes de controles/campos.

    Abraços

    Noob



    avatar
    camiguel
    Novato
    Novato

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 6
    Registrado : 30/07/2012

    [Resolvido]Verificar se campo texto está vazio Empty Re: [Resolvido]Verificar se campo texto está vazio

    Mensagem  camiguel em 23/6/2014, 22:54

    Com o If isnull já funcionou.

    obirgado pela v/ ajuda.
     Smile 
    crysostomo
    crysostomo
    VIP
    VIP

    Respeito às Regras 75%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 1026
    Registrado : 23/01/2018

    [Resolvido]Verificar se campo texto está vazio Empty Re: [Resolvido]Verificar se campo texto está vazio

    Mensagem  crysostomo em 24/7/2019, 19:41

    o meu esta dando erro , no ao clicar primeira vez ele não verifica na segunda ele verifica
    Já fiz 5 tipos diferente mais não dá
    Código:
    f IsNull([txtNome]) Or [txtCpf] Or [txtSenha] = "" Then
    MsgBox "campo não pode ficar vazio", vbInformation, "Registrador"

    Else

        Set DB = CurrentDb
                sSQL = "INSERT INTO CadatroDeFuncionarios"
                'CAMPOS----------------------------------------
                sSQL = sSQL & "("
                sSQL = sSQL & "  tblNome"
                sSQL = sSQL & " ,tblCpf"
                sSQL = sSQL & " ,tblSenha"
                sSQL = sSQL & " ,tbldataDeCadstro"
                sSQL = sSQL & ")"
                'VALORES -------------------------------------
                sSQL = sSQL & " VALUES"
                sSQL = sSQL & "("
                sSQL = sSQL & "  '" & Trim(Me.txtNome) & "'"
                sSQL = sSQL & " ,'" & Trim(Me.txtCpf) & "'"
                sSQL = sSQL & " ,'" & Trim(Me.txtSenha) & "'"
                sSQL = sSQL & " ,'" & Trim(Me.Texto38) & "'"
                sSQL = sSQL & ")"
                DB.Execute sSQL
                MsgBox "  cadastrado!", vbInformation, "Registrador"
               Me.txtNome = ""
               Me.txtCpf = ""
               Me.txtSenha = ""
               Me.Requery
      End If
    End Sub


    .................................................................................
    Uma mão ajuda a outra.
    Feliz aquele que transfere o que sabe e aprende o que ensina.

    Conteúdo patrocinado

    [Resolvido]Verificar se campo texto está vazio Empty Re: [Resolvido]Verificar se campo texto está vazio

    Mensagem  Conteúdo patrocinado


      Data/hora atual: 21/11/2019, 20:03