MaximoAccess

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

https://www.maximoaccess.com/t48-regras-do-forum

Obrigado

Administração


Participe do fórum, é rápido e fácil

MaximoAccess

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

https://www.maximoaccess.com/t48-regras-do-forum

Obrigado

Administração

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

2 participantes

    Validar campo vazio em numeração automática.

    avatar
    #JEANHARD
    Novato
    Novato


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 8
    Registrado : 20/03/2018

    Validar campo vazio em numeração automática. Empty Validar campo vazio em numeração automática.

    Mensagem  #JEANHARD 17/6/2018, 12:22

    Bom dia família.
    Tenho um formulário no excel com banco de dados em access. Tenho o campo código que gera automáticamente via código sql sem usar a numeração automática da tabela ok. Tudo funciona normal. Porém se a coluna codigo da tabela, estiver vazia me retorna um erro.
     Não quero ter que começar a preencher o banco na mão, quero que através do sql no meu form crie uma condição para que se a coluna codigo estiver vazia ele a preencha com o numero 1.
     Anexo um modelinho pra ajudar, testem com o banco vazio para ver o erro e depois preencham o banco na mão e funciona bem.

    Obs: O código só é gerado após acionado o botão salvar.

    Muito obrigado.
    Anexos
    Validar campo vazio em numeração automática. AttachmentNum_Automatica_Tbl.zip
    Você não tem permissão para fazer download dos arquivos anexados.
    (78 Kb) Baixado 9 vez(es)
    livio.sfranca
    livio.sfranca
    Intermediário
    Intermediário


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 150
    Registrado : 09/01/2018

    Validar campo vazio em numeração automática. Empty Re: Validar campo vazio em numeração automática.

    Mensagem  livio.sfranca 22/6/2018, 20:49

    Primeiramente, tive que tirar o apóstrofo (') dos campos numéricos na string abaixo para funcionar:

    sql = sql & "" & ID & ", "
    sql = sql & "'" & Me.Txt_Nome.Value & "', "
    If Not IsNull(Me.Txt_Idade.Value) Then sql = sql & "" & Me.Txt_Idade.Value & ", "
    If Not IsNull(Me.Txt_Profissao.Value) Then sql = sql & "'" & Me.Txt_Profissao.Value & "' "
    sql = sql & ")"

    Quanto à sua pergunta, não sei se entendi direito, mas se queres colocar uma ID automática em caso de null, poderia colocar em uma condição If assim:

    Código:
    While Not rsSelecao.EOF
        ID = rsSelecao(0) + 1
        rsSelecao.MoveNext
    Wend
        
     
    If IsNull(ID) Then
        ID = 1
    End If

      Data/hora atual: 5/12/2022, 02:32