MaximoAccess

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

Obrigado

Administração do MaximoAccess

Dicas Ms Access, Exemplos Ms Access, Codigos VBA Ms Access, SQL Ms Access

    [Resolvido]Comando UPDATE em VBA - Ajuda simples

    Compartilhe

    werlewow
    Intermediário
    Intermediário

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 124
    Registrado : 09/10/2017

    [Resolvido]Comando UPDATE em VBA - Ajuda simples

    Mensagem  werlewow em 7/6/2018, 20:58

    Boa tarde a todos. Sou iniciante em access e VBA. Tenho uma tabela que alimenta um formulário.
    O objetivo do formulário é simplesmente atualizar um campo da tabela, o campo data.
    Criei um botão para atualizar e inseri os cód VBA mas não entendo porque não esta funcionando.
    Vou deixar o link abaixo e o cód usado.
    Obrigado

    Link: dropbox.com/s/ymm7hqxww6uulm4/exames%20de%20funcionarios%20-%20problema.accdb?dl=1
    [Não são permitidos links externos]  -  Copiar e colar no browser

    Código:
    Private Sub Comando214_Click()
       If Not IsDate(Me.data) Then
           MsgBox "O Campo não pode ficar em branco"
       Else
           DoCmd.RunCommand acCmdSaveRecord
           Dim codigo As Integer
           codigo = Me.Cod_Ct.Value
           
           SQL = "UPDATE tb_exame SET agendado = '" & Me.data.Value & "' WHERE Cod_Ct = " & codigo & ""
           
            CurrentDb.Execute SQL
            MsgBox ("Cliente foi agendado com sucesso!"), vbinformations + vbOKOonly, "Agenda"
                DoCmd.RunCommand acCmdRecordsGoToNext
       End If
    End Sub
    avatar
    toyebom
    Moderador
    Moderador

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 1058
    Registrado : 18/07/2012

    Comando UPDATE em VBA - Ajuda simples

    Mensagem  toyebom em 8/6/2018, 01:30

    Tens algumas opções tais como

    Me.Requery
    DoCmd.RefreshRecord
    DoCmd.Save

    Depende do que queres fazer.
    Podes por exemplo tentar assim

    Private Sub Comando214_Click()
    If Not IsDate(Me.data) Then
    MsgBox "O Campo não pode ficar em branco"
    Else
    DoCmd.RunCommand acCmdSaveRecord
    Dim codigo As Integer
    codigo = Me.Cod_Ct.Value

    SQL = "UPDATE tb_exame SET agendado = '" & Me.data.Value & "' WHERE Cod_Ct = " & codigo & ""

    CurrentDb.Execute SQL
    MsgBox ("Cliente foi agendado com sucesso!"), vbinformations + vbOKOonly, "Agenda"
    Me.Requery
    DoCmd.RunCommand acCmdRecordsGoToNext
    End If
    End Sub


    .................................................................................
    Gente Simples, fazendo coisas pequenas, em lugares pouco importantes, consegue mudanças extraordinárias.

    werlewow
    Intermediário
    Intermediário

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 124
    Registrado : 09/10/2017

    Re: [Resolvido]Comando UPDATE em VBA - Ajuda simples

    Mensagem  werlewow em 8/6/2018, 12:34

    Não funcionou, apareceu uma mensagem, parece que o problema de cód... deixei a foto em anexo.
    Se possível, tenta modificar no link que passei, realmente não estou conseguindo..
    Obrigado
    avatar
    JPaulo
    Moderador
    Moderador

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 10116
    Registrado : 04/11/2009

    Re: [Resolvido]Comando UPDATE em VBA - Ajuda simples

    Mensagem  JPaulo em 8/6/2018, 13:29

    Só para ajudar, não desfazendo a ajuda anterior;

    Veja os meus comentarios dentro do VBA do form;

    Download


    .................................................................................
    Contribua com o maximoaccess nos links abaixo, ajude a melhorar este que é o seu site na NET.

    [Você precisa estar registrado e conectado para ver este link.]
    [Você precisa estar registrado e conectado para ver este link.]

    Ou ainda: Aqui (Novo)

    Sucesso e Bons Estudos
    Success and Good Studies

    [Você precisa estar registrado e conectado para ver esta imagem.] [Você precisa estar registrado e conectado para ver este link.]
    [Você precisa estar registrado e conectado para ver esta imagem.] [Você precisa estar registrado e conectado para ver este link.]
    [Você precisa estar registrado e conectado para ver esta imagem.] [Você precisa estar registrado e conectado para ver este link.]

    werlewow
    Intermediário
    Intermediário

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 124
    Registrado : 09/10/2017

    Re: [Resolvido]Comando UPDATE em VBA - Ajuda simples

    Mensagem  werlewow em 8/6/2018, 14:10

    JPaulo me salvando mais uma vez! muito obrigado pela ajuda e pelos ensinamentos!

    Att
    avatar
    JPaulo
    Moderador
    Moderador

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 10116
    Registrado : 04/11/2009

    Re: [Resolvido]Comando UPDATE em VBA - Ajuda simples

    Mensagem  JPaulo em 8/6/2018, 14:21

    Obrigado pelo retorno o forum agradece.


    .................................................................................
    Contribua com o maximoaccess nos links abaixo, ajude a melhorar este que é o seu site na NET.

    [Você precisa estar registrado e conectado para ver este link.]
    [Você precisa estar registrado e conectado para ver este link.]

    Ou ainda: Aqui (Novo)

    Sucesso e Bons Estudos
    Success and Good Studies

    [Você precisa estar registrado e conectado para ver esta imagem.] [Você precisa estar registrado e conectado para ver este link.]
    [Você precisa estar registrado e conectado para ver esta imagem.] [Você precisa estar registrado e conectado para ver este link.]
    [Você precisa estar registrado e conectado para ver esta imagem.] [Você precisa estar registrado e conectado para ver este link.]

      Data/hora atual: 26/9/2018, 02:30