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

    Inserir campos não obrigatorios na tabela

    avatar
    tasmarx
    Novato
    Novato


    Respeito às regras : Respeito às Regras 100%

    Sexo : Feminino
    Localização : Brasil
    Mensagens : 2
    Registrado : 11/02/2016

    Inserir campos não obrigatorios na tabela Empty Inserir campos não obrigatorios na tabela

    Mensagem  tasmarx 10/3/2016, 20:19

    Boa tarde, estou desenvolvendo o banco simples para cadastro de pessoas. Já consegui fazer a inclusão dos dados, mas quero deixar algumas informações como opcionais e não consigo. Coloquei abaixo o que ja fiz até agora. Mas não sei onde inserir os campos opcionais CONJUGE, FONE3, FILHOS E OBSERVACAO. O que vcs acham? Onde estou errando?

    Option Compare Database
    Dim strql As String
    Dim banco As Database
    Dim dataset As Recordset
    Function conecta()
       Set banco = CurrentDb
    End Function
    Function valida()
       Set dataset = banco.OpenRecordset(strql, dbOpenDynaset)
    End Function

    Private Sub cmdinserir_Click()
       conecta
    If IsNull(Me.Txtcpf) = True Then
      MsgBox ("Necessário Preencher os campos DADOS PESSOAIS & LOGRADOURO!"), vbInformation, "Erro"
    Else
      strql = "select * from tabcadastro where CPF = '" & Txtcpf & "'"
      valida
    If dataset.RecordCount >= 1 Then
      MsgBox ("CPF já Cadastrado!"), vbInformation, "Erro"
    Else
    If Txtnome <> "" And Txtnascimento <> "" And Txtcpf <> "" And Txteleitor <> "" And Txtrg <> "" And Txtendereco <> "" And Txtnumero <> "" And Txtbairro <> "" And Txtcidade <> "" And Txtcep <> "" And Txtfone1 <> "" Then
      strql = "insert into tabcadastro(NOME, NASCIMENTO, CPF, TITULO, RG, ENDERECO, NUMERO, BAIRRO, CIDADE, CEP, FONE1)VALUES ('" & Txtnome & "', '" & Txtnascimento & "', '" & Txtcpf & "', '" & Txteleitor & "', '" & Txtrg & "', '" & Txtendereco & "', '" & Txtnumero & "', '" & Txtbairro & "', '" & Txtcidade & "', '" & Txtcep & "', '" & Txtfone1 & "')"
      banco.Execute (strql)
      MsgBox ("Os Dados foram Cadastrados com Sucesso!"), vbInformation + vbOKOnly, "Cadastro"
    Else
      MsgBox ("Necessário Preencher Campos DADOS PESSOAIS & LOGRADOURO!"), vbInformation + vbOKOnly, "Dados Necessarios"
    End If
    End If
    End If
    End Sub
    bigfill
    bigfill
    Avançado
    Avançado


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 474
    Registrado : 27/03/2015

    Inserir campos não obrigatorios na tabela Empty Re: Inserir campos não obrigatorios na tabela

    Mensagem  bigfill 11/3/2016, 20:20

    Boa tarde tasmarx,


    Este codigo verifica se os campos estão preenchidos.
    Código:
    If Txtnome <> "" And Txtnascimento <> "" And Txtcpf <> "" And Txteleitor <> "" And Txtrg <> "" And Txtendereco <> "" And Txtnumero <> "" And Txtbairro <> "" And Txtcidade <> "" And Txtcep <> "" And Txtfone1 <> "" Then

    Caso queira deixar de algum ser obrigatório e só deletar o campo referente.
    bigfill
    bigfill
    Avançado
    Avançado


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 474
    Registrado : 27/03/2015

    Inserir campos não obrigatorios na tabela Empty Re: Inserir campos não obrigatorios na tabela

    Mensagem  bigfill 11/3/2016, 20:27

    tasmarx, para incluir os campos que não estão no código acima, e só inserir-los conforme abaixo.

    strql = "insert into tabcadastro(NOME, NASCIMENTO, CPF, TITULO, RG, ENDERECO, NUMERO, BAIRRO, CIDADE, CEP, FONE1,CONJUGE, FONE3, FILHOS,OBSERVACAO)VALUES ('" & Txtnome & "', '" & Txtnascimento & "', '" & Txtcpf & "', '" & Txteleitor & "', '" & Txtrg & "', '" & Txtendereco & "', '" & Txtnumero & "', '" & Txtbairro & "', '" & Txtcidade & "', '" & Txtcep & "', '" & Txtfone1 & "', "TxtCONJUGE", "TxtFONE3", "TxtFILHOS", "TxtOBSERVACAO")"
    avatar
    tasmarx
    Novato
    Novato


    Respeito às regras : Respeito às Regras 100%

    Sexo : Feminino
    Localização : Brasil
    Mensagens : 2
    Registrado : 11/02/2016

    Inserir campos não obrigatorios na tabela Empty Re: Inserir campos não obrigatorios na tabela

    Mensagem  tasmarx 15/3/2016, 14:19

    Obrigada bigfill, cheers
    bigfill
    bigfill
    Avançado
    Avançado


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 474
    Registrado : 27/03/2015

    Inserir campos não obrigatorios na tabela Empty Re: Inserir campos não obrigatorios na tabela

    Mensagem  bigfill 15/3/2016, 15:48

    Boa tarde tasmarx,

    Obrigado pelo retorno, o fórum agradece.

    Favor marcar o tópico como resolvido.

      Data/hora atual: 3/12/2022, 03:11