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]Salvar registro com campo em branco (sem preenchimento)

    Compartilhe

    Chamon Consultoria
    Intermediário
    Intermediário

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 173
    Registrado : 31/08/2012

    [Resolvido]Salvar registro com campo em branco (sem preenchimento)

    Mensagem  Chamon Consultoria em Ter 7 Jun 2016 - 3:38

    Olá!

    Bd em Access 2010.

    O bd possui um formulário de cadastro de clientes.
    Possui um campo chamado "ccNomFan", que corresponde ao nome fantasia do cliente.
    Acontece que nem todos os clientes possuem um nome fantasia, ficando assim esse campo sem preenchimento ou em branco.
    Porém, se esse campo estiver vazio o sistema não está salvando nada do registro do cliente em edição. Já se for inserida uma simples letra no campo citado, o sistema salva todo o registro perfeitamente.

    O ideal seria que todos os dados fossem salvos, mesmo que o campo "ccNomFan" não seja preenchido.
    O que posso fazer para corrigir isso?
    Desde já agradeço pela ajuda!

    Segue parte do código que está sendo usado:

    Private Sub Atualizar()
    If AçãoBotão = "IncluirClientes" Then
    Set dbs = CurrentDb
    If optTipoCliente = 1 Then
    strSQL = "SELECT * FROM viewClientes WHERE ccCPF = " & "'" & txtCPF & "'"
    Else
    strSQL = "SELECT * FROM viewClientes WHERE ccCGC = " & "'" & txtCGC & "'"
    End If
    Set rst = dbs.OpenRecordset(strSQL)

    If rst.RecordCount > 0 Then
    If optTipoCliente = 1 Then
    MsgBox "Existe um cliente cadastrado com este CPF !", vbInformation, "Cadastro"
    Else
    MsgBox "Existe um cliente cadastrado com este CNPJ !", vbInformation, "Cadastro"
    End If
    End If
    rst.Close
    End If


    "strSQL = "UPDATE tbl_Clientes set "
    strSQL = strSQL & "ccNomCli = '" & UCase(txtNomCli) & "',"
    strSQL = strSQL & "ccTipCli = " & optTipoCliente & ","

    strSQL = strSQL & "ccNomFan = "
    If IsNull(txtNomFan) Then
    strSQL = strSQL & "null,"
    Else
    strSQL = strSQL & "'" & UCase(txtNomFan) & "',"

    End If

    strSQL = strSQL & "ccBairro = "
    If IsNull(txtBairro) Then
    strSQL = strSQL & "null,"
    Else
    strSQL = strSQL & "'" & UCase(txtBairro) & "',"
    End If

    Avelino Sampaio
    Moderador
    Moderador

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 3350
    Registrado : 04/04/2010

    Re: [Resolvido]Salvar registro com campo em branco (sem preenchimento)

    Mensagem  Avelino Sampaio em Ter 7 Jun 2016 - 9:48

    Olá!

    Passe a propriedade "permitir comprimento zero" para SIM dos campos, que irá funcionar.


    strSQL = "UPDATE tbl_Clientes set "
    strSQL = strSQL & "ccNomCli = '" & UCase(txtNomCli) & "',"
    strSQL = strSQL & "ccTipCli = " & optTipoCliente & ","
    strSQL = strSQL & "ccNomFan = '" & UCase(txtNomFan) & "',"
    strSQL = strSQL & "ccBairro = '" & UCase(txtBairro) & "', ..."


    Aguardamos


    .................................................................................
    ============ Quer aprender Access em alta velocidade ? ============

    || [Você precisa estar registrado e conectado para ver esta imagem.] Acesse o site UsandoAccess.com.br e veja um ótimo kit de ensino que tenho para você.

    ===========================================================

    Chamon Consultoria
    Intermediário
    Intermediário

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 173
    Registrado : 31/08/2012

    Re: [Resolvido]Salvar registro com campo em branco (sem preenchimento)

    Mensagem  Chamon Consultoria em Ter 7 Jun 2016 - 12:16

    Avelino, bom dia!

    Funcionou perfeitamente.

    Muito obrigado!

    Abraço

      Data/hora atual: Qui 8 Dez 2016 - 14:05