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

    [Resolvido]Erro ao atualizar form

    avatar
    AugustoB
    Novato
    Novato


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 2
    Registrado : 01/10/2013

    [Resolvido]Erro ao atualizar form Empty [Resolvido]Erro ao atualizar form

    Mensagem  AugustoB 7/5/2024, 14:16

    Após executar o código a seguir no VBA, que atualiza o campo CUSTO na tabela tblTradicional, o referido campo não é atualizado no form que tem origem na tabela mencionada. O que está faltando no código?

    Private Sub Convidados_AfterUpdate()
    xx = DLookup("CustoPorConvidado", "tblTradicional", "Descricao='Pacote'")
    yy = Me.Convidados
    SQLstr = "UPDATE tblTradicional SET Custo=" & xx * yy & " WHERE Descricao='Pacote'"
    DoCmd.RunSQL SQLstr
    End Sub

    Tentei adicionar o comando me.requery após o DoCmd mas ao rodar o código via form recebi o erro em anexo.

    Onde está o erro no código?
    Anexos
    [Resolvido]Erro ao atualizar form AttachmentErro.png
    Você não tem permissão para fazer download dos arquivos anexados.
    (75 Kb) Baixado 5 vez(es)
    Cristian Souza
    Cristian Souza
    Intermediário
    Intermediário


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 71
    Registrado : 12/01/2021

    [Resolvido]Erro ao atualizar form Empty Re: [Resolvido]Erro ao atualizar form

    Mensagem  Cristian Souza 8/5/2024, 11:35

    Olá AugustoB Very Happy

    Tente colocar um "DoCmd.Save" Antes do End Sub

    avatar
    AugustoB
    Novato
    Novato


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 2
    Registrado : 01/10/2013

    [Resolvido]Erro ao atualizar form Empty Re: [Resolvido]Erro ao atualizar form

    Mensagem  AugustoB 8/5/2024, 11:46

    Olá, Cristian

    Obrigado por responder. Já havia tentado isso e não funcionou. Acabei substituindo o código por este:

    Private Sub Convidados_AfterUpdate()
    Dim db As DAO.Database
    Dim rst As DAO.Recordset
    Set db = CurrentDb()
    Set rst = db.OpenRecordset("tblTradicional")
    With rst
    .FindFirst "[Descricao] = 'Pacote'"
    If .NoMatch Then
    MsgBox "Não foi encontrado o registro!"
    Else
    .Edit
    ![Custo] = !CustoPorConvidado * Me.Convidados
    .Update
    End If
    End With
    rst.Close
    Set rst = Nothing
    Set db = Nothing
    Me.Requery
    End Sub

    Está funcionando.

    Resolvido

    Cristian Souza gosta desta mensagem


    Conteúdo patrocinado


    [Resolvido]Erro ao atualizar form Empty Re: [Resolvido]Erro ao atualizar form

    Mensagem  Conteúdo patrocinado


      Data/hora atual: 23/5/2024, 01:15