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.
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
----------------------------------------------
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.
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
----------------------------------------------