[Resolvido]Alterar um cadastro

Boa tarde!

Estou criando um banco de dados para uma creche. Já obtive ajuda para fazer consulta, agora estou precisando de fazer o comando para o botão alterar. Fiz o
código só que quando faço a alteração, a nova alteração não fica gravada na tabela. Gostaria muito da ajuda de vocês para terminar este trabalho. Desde já agradeço. Vou colocar o código abaixo:

Private Sub CmdAlterar_Click()
Dim Banco As DAO.Database
Dim Tabela As DAO.Recordset
Dim Comando As String

If Me.TxtNome <> "" Then

   Comando = "update TabCadAluno set Código=" & Me.TxtCodigo & ", Nascimento='" & Me.TxtNascimento & "', Naturalidade='" & Me.TxtNaturalidade & "', Endereço='" & Me.TxtEndereco & "', CEP='" & Me.TxtCEP & "', Telefone='" & Me.TxtTelefone & "', Celular='" & Me.TxtCelular & "', Matrícula='" & Me.TxtMatricula & "', Desligamento='" & Me.TxtDesligamento & "', Mãe='" & Me.TxtMae & "', Pai='" & Me.TxtPai & "', NIS=" & Me.TxtNIS & ", Bolsa Família=" & Me.TxtBolsa_Familia & ", Código Certidão='" & Me.TxtCodigo_Certidao & "', Observação='" & Me.TxtObservacao & "' where Nome='" & Me.TxtNome & "'"

   Set Banco = CurrentDb
   Set Tabela = Banco.OpenRecordset(Comando, dbOpenTable)
   Tabela.Edit
   MsgBox ("Atualização Efetuada com Sucesso!"), vbInformation + vbOKOnly, "Sucesso ao Atualizar"
   
   TxtCodigo = Empty
   TxtNome = Empty
   TxtNascimento = Empty
   TxtNaturalidade = Empty
   TxtEndereco = Empty
   TxtCEP = Empty
   TxtTelefone = Empty
   TxtCelular = Empty
   TxtMatricula = Empty
   TxtDesligamento = Empty
   TxtMae = Empty
   TxtPai = Empty
   TxtNIS = Empty
   TxtBolsa_Familia = Empty
   TxtCodigo_Certidao = Empty
   TxtObservacao = Empty
   
   CmdCadastrar.Enabled = True
   CmdConsultar.Enabled = True
   CmdAlterar.Enabled = True
   CmdExcluir.Enabled = False
   TxtNome.Enabled = True
End If
   
End Sub

Não estou conseguindo anexar o arquivo.
Gilmara

o seu formulário de alteração é acoplado ou desacoplado?

Gil

Acredito que o problema está justamente na SQL.

Sugiro que faça uma consulta atualização e veja então se funciona a alteração.
Uma vez que funcione essa alteração, você pode colocar a SQL dela no VBA.

O Fórum só aceita anexos zipados (.zip).

Abaixo do quadro onde se digita mensagem tem dois botões; Escolher arquivo (já se explica,né?) e Enviar (para enviar o anexo).
Uma vez que o anexo foi envaido, é só clicar no botão enviar da mensagem.


Noob

Gil

Colocou o resolvido, mas não disse qual a solução encontrada.
Como esse é um fórum de ajuda mútua, isso serve para os dois lados.
Então, diga-nos qual foi a solução.

Noob

Desculpa pessoal!
Ainda não resolvi, fui colocar resolvido em outro assunto e errei.
Estou aqui tentado resolver para colocar a solução no fórum, me perdoem.
Assim que tiver êxito respondo.

Gil

Poste a tabela e o formulário em questão que talvez possamos ajudar.

Noob

Segue aí meu BD.
Consegui anexar.
Obrigada

Fiz dessa forma, não da erro mas também não faz a alteração. Será que esta faltando alguma coisa? rsrs

Private Sub CmdAlterar_Click()

Dim Banco As Database
Dim Tabela As Recordset
Dim Comando As String

If Me.TxtNome <> "" Then

Comando = "update TabCadAluno set Código=" & Me.TxtCodigo & ", Nascimento='" & Me.TxtNascimento & "', Naturalidade='" & Me.TxtNaturalidade & "', Endereço='" & Me.TxtEndereco & "', CEP='" & Me.TxtCEP & "', Telefone='" & Me.TxtTelefone & "', Celular='" & Me.TxtCelular & "', Matrícula='" & Me.TxtMatricula & "', Desligamento='" & Me.TxtDesligamento & "', Mãe='" & Me.TxtMae & "', Pai='" & Me.TxtPai & "', NIS=" & Me.TxtNIS & ", Bolsa Família=" & Me.TxtBolsa_Familia & ", Código Certidão='" & Me.TxtCodigo_Certidao & "', Observação='" & Me.TxtObservacao & "' where Nome='" & Me.TxtNome & "'"
Set Banco = CurrentDb
Set Tabela = Banco.OpenRecordset("TabCadAluno", dbOpenDynaset)

Tabela.Edit
MsgBox ("Atualização Efetuada com Sucesso!"), vbInformation + vbOKOnly, "Sucesso ao Atualizar"

TxtCodigo = Empty
TxtNome = Empty
TxtNascimento = Empty
TxtNaturalidade = Empty
TxtEndereco = Empty
TxtCEP = Empty
TxtTelefone = Empty
TxtCelular = Empty
TxtMatricula = Empty
TxtDesligamento = Empty
TxtMae = Empty
TxtPai = Empty
TxtNIS = Empty
TxtBolsa_Familia = Empty
TxtCodigo_Certidao = Empty
TxtObservacao = Empty


CmdAlterar.Enabled = True
CmdCadastrar.Enabled = False
CmdExcluir.Enabled = False
CmdConsultar.Enabled = False
TxtNome.Enabled = True

End If
End Sub

gilcarvalho, bom dia!

Você criou uma string para adicionar uma SQL com instrução do tipo UPDATE. Já que você criou esta sql, então você não precisa abrir uma RecordSet para fazer a atualização. Você pode usar o comando DoCmd.RunSql, que ficaria assim:

Código:

DoCmd.RunSQL  "UPDATE TabCadAluno set Código=" & Me.TxtCodigo & ", Nascimento='" & Me.TxtNascimento & "', Naturalidade='" & Me.TxtNaturalidade & "', Endereço='" & Me.TxtEndereco & "',
      CEP='" & Me.TxtCEP & "', Telefone='" & Me.TxtTelefone & "', Celular='" & Me.TxtCelular & "', Matrícula='" & Me.TxtMatricula & "', Desligamento='" & Me.TxtDesligamento & "',
      Mãe='" & Me.TxtMae & "', Pai='" & Me.TxtPai & "', NIS=" & Me.TxtNIS & ", Bolsa Família=" & Me.TxtBolsa_Familia & ", Código Certidão='" & Me.TxtCodigo_Certidao & "',
      Observação='" & Me.TxtObservacao & "' where Nome='" & Me.TxtNome & "'"

Só com a instruação acima você já atualiza a sua tabela.

Com esta instrução, vai aparecer a famosa mensagem do Access perguntando se você deseja realmente atualizar a quantidade de registros e bla bla bla...

Se você não quiser ver esta mensagem, coloque antes do comando acima, o comando DoCmd.SetWarnings (False), e depois do comando acima, DoCmd.SetWarnings (True).

Dica: Primeiro teste o comando RunSQL sem os comandos de desabilitar as mensagens do Access para você ver a atualização ocorrendo.

Outra forma de se fazer é com a RecordSet. Só que aí, é bem diferente do que você postou.

Ficaria assim:

Código:

Private Sub CmdAlterar_Click()

'Se o campo nome for nulo, não executará este procedimento.
If IsNull(Me.TxtNome) Then Exit Sub

Dim db As DAO.Database
Dim rs As DAO.Recordset

Set db = CurrentDb
Set rs = db.OpenRecordset("TabCadAluno", dbOpenTable)

rs.MoveFirst

'Como não tenho o seu projeto para analisar como a tabela foi construída, então não poderia utilizar
'os métodos Index e Seek que são melhores neste caso. Terei que usar um loop para percorrer a tabela até achar
'o nome do aluno

Do While Not rs.EOF
    'Verifica se o registro é igual ao preenchido no formulário.
    'Se igual, atualiza.
    If rs!Nome = Me.TxtNome Then
        rs.Edit
        rs!TxtCodigo = Me.TxtCodigo
        rs!TxtNascimento = Me.TxtNascimento
        rs!TxtNaturalidade = Me.TxtNaturalidade
        rs!TxtEndereco = Me.TxtEndereco
        rs!TxtCEP = Me.TxtCEP
        rs!TxtTelefone = Me.TxtTelefone
        rs!TxtCelular = Me.TxtCelular
        rs!TxtMatricula = Me.TxtMatricula
        rs!TxtDesligamento = Me.TxtDesligamento
        rs!TxtMae = Me.TxtMae
        rs!TxtPai = Me.TxtPai
        rs!TxtNIS = Me.TxtNIS
        rs!TxtBolsa_Familia = Me.TxtBolsa_Familia
        rs!TxtCodigo_Certidao = Me.TxtCodigo_Certidao
        rs!TxtObservacao = Me.TxtObservacao
        rs.Update
        MsgBox ("Atualização Efetuada com Sucesso!"), vbInformation + vbOKOnly, "Sucesso ao Atualizar"
        Exit Do
    End If
    rs.MoveNext
End With

'Limpa as campos
With Me
    .TxtCodigo = Null
    .TxtNome = Null
    .TxtNascimento = Null
    .TxtNaturalidade = Null
    .TxtEndereco = Null
    .TxtCEP = Null
    .TxtTelefone = Null
    .TxtCelular = Null
    .TxtMatricula = Null
    .TxtDesligamento = Null
    .TxtMae = Null
    .TxtPai = Null
    .TxtNIS = Null
    .TxtBolsa_Familia = Null
    .TxtCodigo_Certidao = Null
    .TxtObservacao = Null
End With
    
CmdCadastrar.Enabled = True
CmdConsultar.Enabled = True
CmdAlterar.Enabled = True
CmdExcluir.Enabled = False
TxtNome.Enabled = True

'Fecha o recorset e o bando. É obrigatório o seu fechamento.
rs.Close
db.Close

End Sub

Julio!
Ainda não deu certo.
Dá erro de compilação e fico com medo de mexer e piorar.
Vou anexar meu BD novamente, desculpe a ignorância! rs

gil, boa tarde!

O negócio é o seguinte... Você está trabalhando com um formulário acoplado à tabela de origem/destino das informações carregadas neste formulário.

Então você não precisa deste emaranhado de procedimentos para realizar tarefas simples que o access mesmo faz com algumas linhas de programação.

Um recordset é usado para abrir um bando de dados, literalmente abrir mesmo, nova conexão. Se o seu formulário não fosse acoplado à tabela, aí sim poderíamos trabalhar com o RecordSet e com comandos e instruções SQL.

A partir do momento que você inicia uma alteração em qualquer campo do formulário, você está alterando diretamente na tabela também, já que é um form acoplado. Para salvar as alterações, você pode usar no botão Alterar, o comando DoCmd.RunCommand acCmdSaveRecord, ou uma ação do formulário (Me.Refresh). Este último atualiza todas as alterações feitas no formulário e consequentemente, na tabela também.

Para fazer o filtro, usei o comando DoCmd.ApplyFilter mas antes, usei uma função de domínio (DCount) para verificar se o aluno digitado na inputbox já está cadastrado. Se ele estiver cadastrado ele filtra usando o comando ApplyFilter, ou informa que não há alunos cadastrados com o nome informado.

Eu deletei todos os seus códigos e refiz com os que você estava precisando. Veja como ficou e se lhe atende.

Código:

Private Sub CmdAlterar_Click()

DoCmd.RunCommand acCmdSaveRecord

MsgBox "Aluno cadastrado com sucesso!"

With Me
    .TxtCodigo.Value = Empty
    .TxtNome.Value = Empty
    .TxtNascimento.Value = Empty
    .TxtNaturalidade.Value = Empty
    .TxtEndereco.Value = Empty
    .TxtCEP.Value = Empty
    .TxtTelefone.Value = Empty
    .TxtCelular.Value = Empty
    .TxtMatricula.Value = Empty
    .TxtDesligamento.Value = Empty
    .TxtMae.Value = Empty
    .TxtPai.Value = Empty
    .TxtNIS.Value = Empty
    .TxtBolsa_Familia.Value = Empty
    .TxtCodigo_Certidao.Value = Empty
    .TxtObservacao.Value = Empty
    .CmdAlterar.Enabled = False
    .CmdCadastrar.Enabled = True
    .CmdExcluir.Enabled = False
    .CmdConsultar.Enabled = False
    .TxtNome.SetFocus
End With

End Sub

Private Sub CmdCadastrar_Click()

DoCmd.RunCommand acCmdSaveRecord

MsgBox "Aluno cadastrado com sucesso!"

With Me
    .TxtCodigo.Value = Empty
    .TxtNome.Value = Empty
    .TxtNascimento.Value = Empty
    .TxtNaturalidade.Value = Empty
    .TxtEndereco.Value = Empty
    .TxtCEP.Value = Empty
    .TxtTelefone.Value = Empty
    .TxtCelular.Value = Empty
    .TxtMatricula.Value = Empty
    .TxtDesligamento.Value = Empty
    .TxtMae.Value = Empty
    .TxtPai.Value = Empty
    .TxtNIS.Value = Empty
    .TxtBolsa_Familia.Value = Empty
    .TxtCodigo_Certidao.Value = Empty
    .TxtObservacao.Value = Empty
End With

End Sub

Private Sub CmdConsultar_Click()

Dim nFiltro, i%

nFiltro = InputBox("Digite o nome do aluno")
i = Nz(DCount("Código", "TabCadAluno", "Nome='" & nFiltro & "'"), 0)

If i > 1 Then
    DoCmd.ApplyFilter , "Nome='" & nFiltro & "'"
    Me.CmdAlterar.Enabled = True
    Me.CmdExcluir.Enabled = True
    Me.CmdCadastrar.Enabled = False
    Me.CmdConsultar.Enabled = True
    ElseIf i < 1 Then
        MsgBox "Aluno não encontrado", vbInformation, "Aviso"
End If


End Sub

Abraços.

Oi Julio!

Coloquei aqui, gostei muito daquela caixa para consulta, mas quando dou o comando para realizar a consulta não retorna nenhum valor, então não consigo alterar. Quando vou cadastrar não entra em sequência e não cadastra o código automático.
Teria alguma outra forma?
Obrigada

Veja bem!

O campo Código da sua tabela está configurado como tipo Texto curto, e o correto (pelo que você está me dizendo) é Numeração automática.

Para ver as imagens, clique aqui:

Como já criou o campo de outro tipo, não tem como alterar. O que você vai fazer é renomear este campo para Código1, criar um novo campo com o nome Código e do tipo numeração automática, selecionar este campo Chave Primária, e deletar o campo código1. Salvar e fechar a tabela.

No formulário também fiz uma modificação. Nas propriedades do fomulário, guia Dados, opção Entrada de dados, selecione SIM. Salve.

Esta opção, vai obrigar o formulário a sempre ser carregado em branco, pronto para ser preenchido. Quando você começar a preencher o form, o código vai ser criado automaticamente. Lembrando que se você cancelar um novo registro, o número que ele gerou será perdido.

Segue o exemplo.

Vou fazer o teste e até amanhã retorno pra vocês.
Obrigada!

Oi Júlio, fiz como você falou, só que quando vou fazer a consulta não retorna nada. Aparece o quadro pra consultar, eu coloco o nome da criança só que não aparece nada.
Tem mais alguma coisa que pode ser feito.
Obrigada
Gilmara

Poste o projeto que você fez a alteração para que eu possa verificar o que está ocorrendo.

Aguardo, abraços.

Oi Julio!

Desculpe a demora tive uma reunião. Foi o mesmo que você me mandou. Quando faço a consulta não retorna nada.
Vou te enviar.
Obrigada
Abraços

Gil,

Veja se agora está ok.

Oi Julio!

Agora deu certo a consulta! Só que quando vou fazer a alteração dá erro.
Quando mando depurar aparece a tarja amarela em cima .TxtCodigo.Value = Empty. (No comando CmdAlterar)

Desculpe o trabalho, mas não sei como resolver.
Júlio muito obrigada mesmo pela atenção.
Abraços

Gil,

Apague a parte selecionada igual ao da imagem, tanto no botão ALTERAR como no botão CADASTRAR.

Como estes comando você queria que os campos ficassem em branco após o cadastro, no lugar do código que será apagado, adicione a linha de comando DoCmd.GoToRecord , , acNewRec.

Este comando fará com que o formulário vá para um novo registro. Ele NÃO inicia um novo registro, mas sim o deixa pronto para você adicionar um novo aluno.

Julio, bom dia!

Deu tudo certo agora! Muito obrigada pela ajuda. Que Deus te abençoe. A creche agradece o seu empenho.
Abraços
Gilmara

Gilmara, bom dia!

Obrigado pelo retorno.

Abraços e boa sorte.