[Resolvido]Pula a instrução do if e faz a ultima linha

Crysostomo,

O problema está na verificação de cada IF.

Copie e cole o código abaixo e observe os comentários.

Código:



Private Sub GravaDados()
On error goto trata_erro
Dim rst1 As DAO.Recordset
   
   'Verifica se é nulo ou vazio
   If IsNull(Me.txt_nome_proced) or Trim(Me.txt_nome_proced) = Empty  Then
        MsgBox "O Nome do Procedimento é de preenchimento obrigatório", vbExclamation, "Serviço Social"
      Exit Sub 'Se a condição não atender, a rotina para aqui
   End If

   'Conta na tabela se existe registro com a descrição informada
   If DCount("*", "tbl_tipo_de_procedimentos", "tipos_de_procedimentos ='" & Trim(Me.txt_nome_proced) & "'") >= 1 Then
      MsgBox "Já existe um preocedimento cadastrado com este nome.", vbExclamation , "Serviço Social"
      Exit Sub 'Se a condição não atender, a rotina para aqui
   End If

   'Sel1 = "SELECT * from tbl_tipo_de_procedimentos" ==> Não carregue todos os registros da tabela, pois se ela possuir 10.000 registros, seu sistema ficará lento
    Sel1 = "SELECT TOP 1 * from tbl_tipo_de_procedimentos" '==> selecione apenas 1 registro para abrir um recordset
   rst1 = CurrentDb.OpenRecordset(Sel1)
    rst1.AddNew
    rst1![tipos_de_procedimentos] = Me.txt_nome_proced
    rst1.Update
   
   rst1.Close 'Fecha o recordset
   SET rst1 = Nothing 'Limpa da memória
       
   MsgBox "Cadastrado com sucesso", vbInformation, "Seviço Social"
   Me.txt_nome_proced = ""
   
   Exit Sub
'Sempre faça o tratamento de erro nas rotinas. Se ocorrer o erro, o Access vai infomar qual erro foi gerado
trata_erro:
   msgbox "Erro gerado: "& Err.Number &" - "& Err.Description &"",vbCritical, "Erro"
   Exit Sub
   

End Sub




Boa sorte

Crysostomo,

Procure utilizar as constantes de mensagens de forma correta:



- VbCritical: utilize para informar quando houver um erro no sistema.


MsgBox "Erro no banco de dados",vbCritical, "Erro"


- VbExclamation: Utilize para advertir o usuário. Ex.: use nas mensagens de campos não preenchidos ou com valores inválidos.


MsgBox "O campo Nome é de preenchimento obrigatório.",vbExclamation, "Aviso"


- VbInformation: Informar o usuário quando o registro foi gravado corretamente ou terminado algum cálculo e etc.


MsgBox "Registro gravado com sucesso",vbInformation, "Mensagem"



- vbQuestion: Utilizar em mensagens quando depender de uma decisão do usuário. Ex.: Deseja realmente excluir o registro?


MsgBox "Confirma a exclusão do registro?",vbQuestion+vbYesNo, "Confirma(S/N)?"

Crysostomo boa noite,

Recordset é um objeto onde ele retorna um conjunto de dados na memória.
Ele pode trazer dados de uma tabela, de uma query (consulta com 1 ou mais tabelas) e etc.
Esses dados você pode manipular também, para carregar listbox (Caixa de Listagem), combobox (Caixa de combinação), campos em formulários e etc.
Os recordset's (DAO e ADO) oferecem este recurso da propriedade AddNew e Update, mas que não é muito usual em nivel de programação profissional.
O melhor é criar uma instrução SQL de INSERT para inserir dados na tabela, onde é possivel realizar um melhor controle em gravar, excluir, alterar e selecionar dados.

Uma pergunta, o recordset tem um função de atualizar todos os campo sem precisar digitar os mesmo códigos para cada campo? escreveu:

O recordset irá atualizar os dados dos respectivos campos do form, mas vc tem que indicar cada um deles no código. Ex.:


rst.AddNew
rst("Campo001") = me.Campo001.value
rst("Campo002") = me.Campo002.value
rst("Campo003") = me.Campo003.value
rst("Campo004") = me.Campo004.value
rst.Update


Espero ter ajduado

Boa sorte