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

    Update só funciona da segunda tentativa

    avatar
    RenataMesquita
    Novato
    Novato


    Respeito às regras : Respeito às Regras 100%

    Sexo : Feminino
    Localização : Brasil
    Mensagens : 1
    Registrado : 16/11/2016

    Update só funciona da segunda tentativa Empty Update só funciona da segunda tentativa

    Mensagem  RenataMesquita 16/11/2016, 17:38

    Pessoal,
    Estou fazendo um aplicação no Access e tenho um botão denominado Relatório num formulário FrmTipoLesaoSexIdade que ao ser clicado chama outro formulário FrmRelatorio que contém um gráfico com os dados de uma tabela Atendimento.
    Só que antes de exibir o gráfico, faço um update na tabela Atendimento.
    Porém, o update não está atualizando todos os registros que deveriam ser atualizados.
    Por exemplo, se existem 3 linhas que deveriam ser atualizadas, somente 2 são atualizadas.
    Somente na segunda vez que acesso o primeiro formulário e chamo o segundoi formulário é que o update atualiza todos os registros.
    Alguém tem uma idéia do que está errado?
    Muito obrigada pela ajuda.
    santa

    Segue abaixo o código que contém o update:

    ----------------------------------------------------------
    Private Sub Relatorio_Click()

    Conexao
    ComandoSQL = "update atendimento set RelatorioLesaoSexIdade='S' where Lesao='" & Me.CombLesao.Column(0) & "'" 'atualiza as informações do codigo informado
    bd.Execute (ComandoSQL)

    DoCmd.OpenForm "FrmTipoLesaoSexoIdade", acNormal
    Forms![FrmRelatorio].TipoLesao = Me.CombLesao.Column(0)
    DoCmd.Close acForm, "FrmTipoLesaoSexIdade"

    End Sub
    -------------------------------------------------------------

    A variável Conexao está definido no Módulo abaixo:

    Option Compare Database

    Public ComandoSQL As String 'variavel para armazenar comandos SQL

    Public bd As Database 'variavel de conexao ao banco

    Public xdata As Recordset 'variavel para gravar os dados do banco

    Function Conexao()

    Set bd = CurrentDb 'inicializa o banco

    End Function

    ----------------------------------------------
    Silvio
    Silvio
    Developer
    Developer


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 5074
    Registrado : 20/04/2011

    Update só funciona da segunda tentativa Empty Re: Update só funciona da segunda tentativa

    Mensagem  Silvio 16/11/2016, 17:53

    Olá, boa tarde, seja bem vinda ao fórum !

    Experimente nesse formulário "FrmTipoLesaoSexoIdade" no evento ao abrir ou ao carregar, o comando:

    me.requery ou me.refresh

    Talvez, tenha uma chance de funcionar.

    Bons estudos.



    .................................................................................
    Caso tenha resolvido a tua duvida, coloque o tópico como resolvido.
    www.maximoaccess.com/t860-resolucao-de-topicos

    "Quase tudo é possível quando se tem determinação e força de vontade. Não desista tão rápido."

      Data/hora atual: 26/4/2024, 22:14