MaximoAccess

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

Obrigado

Administração do MaximoAccess

MaximoAccess

Gostaria de reagir a esta mensagem? Crie uma conta em poucos cliques ou inicie sessão para continuar.

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 50%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 1254
    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.

      Data/hora atual: 4/7/2020, 15:42