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

    Update só funciona da segunda tentativa

    Compartilhe

    RenataMesquita
    Novato
    Novato

    Respeito às Regras 100%

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

    Update só funciona da segunda tentativa

    Mensagem  RenataMesquita em 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

    ----------------------------------------------
    avatar
    Silvio
    Developer
    Developer

    Respeito às Regras 100%

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

    Re: Update só funciona da segunda tentativa

    Mensagem  Silvio em 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.
    [Você precisa estar registrado e conectado para ver este link.]

      Data/hora atual: 17/8/2018, 21:50