MaximoAccess

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

Obrigado

Administração do MaximoAccess

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

    [Resolvido]Gravar dados atualizados "update"

    FernandoRogerio
    FernandoRogerio
    Novato
    Novato

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 24
    Registrado : 30/12/2016

    [Resolvido]Gravar dados atualizados "update" Empty [Resolvido]Gravar dados atualizados "update"

    Mensagem  FernandoRogerio em 13/9/2020, 18:36

    Olá amigos.
    Tenho um cadastro de clientes onde estou criando um botão para atualizar os dados existentes.
    Estou tentando usando o código abaixo,

    Código:
    db.Execute "update Tab_Cadastro_Catequisandos set NOME_CATEQUISANDO= '" & Me.NOME_CATEQUISANDO & "' WHERE CODIGO='" & Me.CODIGO & "'"

    Porém ele apresenta o erro: 424.

    Alguém poderia ajudar?
    Desde ja agradeço.

    DamascenoJr.
    DamascenoJr.
    Moderador
    Moderador

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 2441
    Registrado : 21/11/2016

    [Resolvido]Gravar dados atualizados "update" Empty Re: [Resolvido]Gravar dados atualizados "update"

    Mensagem  DamascenoJr. em 13/9/2020, 19:38

    Apenas texto entre aspas simples. Se o campo código for número, então não precisa ficar entre as aspas.


    .................................................................................
    Ajude-se a ser ajudado, anexe seu projeto.
    Sempre tente entender o código,
    não somente copie e cole.
    Positive as mensagens que achar útil clicando no '+' no canto superior direito delas.

    FernandoRogerio gosta desta mensagem

    FernandoRogerio
    FernandoRogerio
    Novato
    Novato

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 24
    Registrado : 30/12/2016

    [Resolvido]Gravar dados atualizados "update" Empty Re: [Resolvido]Gravar dados atualizados "update"

    Mensagem  FernandoRogerio em 13/9/2020, 19:44

    Código:
    db.Execute "update Tab_Cadastro_Catequisandos set NOME_CATEQUISANDO= '" & Me.NOME_CATEQUISANDO & ' WHERE CODIGO=' & Me.CODIGO

    Seria assim ?
    DamascenoJr.
    DamascenoJr.
    Moderador
    Moderador

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 2441
    Registrado : 21/11/2016

    [Resolvido]Gravar dados atualizados "update" Empty Re: [Resolvido]Gravar dados atualizados "update"

    Mensagem  DamascenoJr. em 13/9/2020, 20:34

    Não. Veja abaixo como deve ser. Para sua evolução, analise o que mudou.

    Código:
    db.Execute "update Tab_Cadastro_Catequisandos set NOME_CATEQUISANDO= '" & Me.NOME_CATEQUISANDO & "' WHERE CODIGO=" & Me.CODIGO

    Como descobri? Fazendo perguntas ao VBE.
    Veja como
    https://www.maximoaccess.com/t37958-dicas-de-ouro


    .................................................................................
    Ajude-se a ser ajudado, anexe seu projeto.
    Sempre tente entender o código,
    não somente copie e cole.
    Positive as mensagens que achar útil clicando no '+' no canto superior direito delas.

    FernandoRogerio gosta desta mensagem

    FernandoRogerio
    FernandoRogerio
    Novato
    Novato

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 24
    Registrado : 30/12/2016

    [Resolvido]Gravar dados atualizados "update" Empty Re: [Resolvido]Gravar dados atualizados "update"

    Mensagem  FernandoRogerio em 13/9/2020, 21:36

    Ola, obrigado pelo retorno.
    Porém tentei várias vezes e não tive exito.
    Poderia dar uma corrigida para mim ?
    DamascenoJr.
    DamascenoJr.
    Moderador
    Moderador

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 2441
    Registrado : 21/11/2016

    [Resolvido]Gravar dados atualizados "update" Empty Re: [Resolvido]Gravar dados atualizados "update"

    Mensagem  DamascenoJr. em 13/9/2020, 21:39

    A sintaxe está correta para o comando. Deve haver outro fator impedindo a execução correta. Para auxílio mais objetivo então anexe seu projeto.


    .................................................................................
    Ajude-se a ser ajudado, anexe seu projeto.
    Sempre tente entender o código,
    não somente copie e cole.
    Positive as mensagens que achar útil clicando no '+' no canto superior direito delas.

    FernandoRogerio gosta desta mensagem

    FernandoRogerio
    FernandoRogerio
    Novato
    Novato

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 24
    Registrado : 30/12/2016

    [Resolvido]Gravar dados atualizados "update" Empty Re: [Resolvido]Gravar dados atualizados "update"

    Mensagem  FernandoRogerio em 14/9/2020, 06:51

    Estou enviando o projeto para melhor compreensão.

    https://www.dropbox.com/s/7dxcroqh53sro50/GERCAT.rar?dl=0
    FernandoRogerio
    FernandoRogerio
    Novato
    Novato

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 24
    Registrado : 30/12/2016

    [Resolvido]Gravar dados atualizados "update" Empty Re: [Resolvido]Gravar dados atualizados "update"

    Mensagem  FernandoRogerio em 14/9/2020, 15:18

    Alguém consegue me ajudar?
    DamascenoJr.
    DamascenoJr.
    Moderador
    Moderador

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 2441
    Registrado : 21/11/2016

    [Resolvido]Gravar dados atualizados "update" Empty Re: [Resolvido]Gravar dados atualizados "update"

    Mensagem  DamascenoJr. em 15/9/2020, 19:19

    Como dito, havia outro fator que impedia a execução do comando. O fator: na tabela, o campo que registra o nome do catequisando é "NOME CATEQUISANDO" e não "NOME_CATEQUISANDO" (separado por underline). Não é bom ter em nome de campo caracteres especiais e espaços. Nos casos de o campo ter no nome um espaço, então, na sintaxe, esse fica entre colchetes.

    Dito isso, segue a maneira correta:
    Código:
    "UPDATE Tab_Cadastro_Catequisandos SET [NOME CATEQUISANDO] = '" & Me.NOME_CATEQUISANDO & "' where CODIGO = " & Me.CODIGO

    Não esqueça de marcar o tópico como resolvido.


    .................................................................................
    Ajude-se a ser ajudado, anexe seu projeto.
    Sempre tente entender o código,
    não somente copie e cole.
    Positive as mensagens que achar útil clicando no '+' no canto superior direito delas.

    Avelino Sampaio gosta desta mensagem

    DamascenoJr.
    DamascenoJr.
    Moderador
    Moderador

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 2441
    Registrado : 21/11/2016

    [Resolvido]Gravar dados atualizados "update" Empty Re: [Resolvido]Gravar dados atualizados "update"

    Mensagem  DamascenoJr. em 23/9/2020, 19:17

    FernandoRogerio, a dica resolveu?

    Aguardamos retorno.


    .................................................................................
    Ajude-se a ser ajudado, anexe seu projeto.
    Sempre tente entender o código,
    não somente copie e cole.
    Positive as mensagens que achar útil clicando no '+' no canto superior direito delas.
    FernandoRogerio
    FernandoRogerio
    Novato
    Novato

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 24
    Registrado : 30/12/2016

    [Resolvido]Gravar dados atualizados "update" Empty Re: [Resolvido]Gravar dados atualizados "update"

    Mensagem  FernandoRogerio em 30/9/2020, 08:52

    Olá, obrigado pela ajuda.

    Eu consegui o código de outra forma que funcionou certinho:
    Muito obrigado.

    Código:
    'GRAVAR DADOS ATUALIZADOS
    On Error Resume Next
    Dim sel As String 'variavel que vai receber o select para consultar os dados no sistema
    Dim rst As Recordset 'variavel que vai nos permitir a usar os campos da tabela
    sel = "SELECT * from CNS_Cadastro_Catequisandos WHERE CODIGO =" & CODIGO
    Set rst = CurrentDb.OpenRecordset(sel)
    rst.Edit
    'como funciona o recordset
    '[nome do campo da tabela] = 'nome do campo no formuário
    Me.DATA_EDITADO.Value = Date
    rst![SITUACAO] = SITUACAO.Value
    rst![DATA_EDITADO] = Me.DATA_EDITADO.Value
    rst![NOME_CATEQUISANDO] = NOME_CATEQUISANDO.Value
    rst![DT_NASCI] = DT_NASCI.Value
    rst![ENDERECO] = ENDERECO.Value
    rst![BAIRRO] = BAIRRO.Value
    rst![NOME_PAI] = Me.NOME_PAI
    rst![NOME_MAE] = Me.NOME_MAE
    rst![RESPONSAVEL] = Me.RESPONSAVEL
    rst![CONTATO_01] = Me.CONTATO_01
    rst![CONTATO_02] = Me.CONTATO_02
    rst![CONTATO_03] = Me.CONTATO_03
    rst![LOCAL] = Me.LOCAL
    rst![BATIZADO] = Me.BATIZADO
    rst![REMATRICULA] = Me.REMATRICULA.Value
    rst![PADRINHO_01] = Me.PADRINHO_01.Value
    rst![PADRINHO_02] = Me.PADRINHO_02.Value
    rst![INFORMACOES] = Me.INFORMACOES
    rst.Update 'atualiza a tabela
    rst.Close  'fecha o recordset
    Set rst = Nothing
    End sub

      Data/hora atual: 24/11/2020, 20:43