[Resolvido]Recordset nao pode ser atualizado

Pessoal, boa tarde.
Tenho um form baseado em uma consulta que é baseada em duas tabelas. As tabelas sao vinculadas, pois ficam em outro arquivo mdb. Depois de muitos anos usando este bd sem problemas, estou recebendo a mensagem "ERRO EM TEMPO DE EXECUÇÃO 3326. ESTE RECORDSET NAO PODE SER ATUALIZADO" quando uso este form. O que pode ter ocorrido? o que devo fazer? O código está abaixo. Muito obrigado pela atenção e ajuda.
Álvaro

Private Sub Saída_Enter()
If Not IsNull(Me![Mandado]) And Not IsNull(Me![D]) And Not IsNull(Me![L]) _
And Not IsNull(Me![Dev]) And Not IsNull(Me![V]) Then
Me![Saída] = Forms![Saídas]![D] 'ESSA É A LINHA QUE APRESENTA O ERRO
Me![Listagem] = Forms![Saídas]![L]
End If
End Sub

Amigo teste assim:

Private Sub Saída_Enter()
If Not IsNull(Me![Mandado]) And Not IsNull(Me![D]) And Not IsNull(Me![L]) _
And Not IsNull(Me![Dev]) And Not IsNull(Me![V]) Then
Me.Saida.value = Forms![Saídas]![D]'ESSA É A LINHA QUE APRESENTA O ERRO
Me![Listagem] = Forms![Saídas]![L]
End If
End Sub

Duas questões pertinentes;

1ª

Private Sub Saída_Enter()
On Error Resume Next
If Not IsNull(Me.Mandado) And Not IsNull(Me.d) And Not IsNull(Me.L) _
And Not IsNull(Me.Dev) And Not IsNull(Me.V) Then
Me.Saída = Forms![Saídas]![d]
Me.Listagem = Forms![Saídas]![L]
End If
End Sub

2ª

Faça o Compactar/Reparar depois desta alteração nos dois bancos.

Note que grifei a Bold o que poderá estar a causar esse erro, sem comentarios.

Mestre, uma pergunta:
Na linha...Me. Saída, não é necessário inserir . value?

Obrigado

Você pode usar a propriedade Value para determinar ou especificar se um controle é selecionado, se o valor selecionado ou a opção dentro do controle, ou se o texto contido
em um controle caixa de texto é o valor ou uma propriedade personalizada.


A propriedade Value é o valor salvo do controle na caixa de texto.
A propriedade Text retorna a string formatada.

Se não especificar é sempre o Value como padrão...

A propriedade Value retorna ou define a propriedade de um controle padrão, que é a propriedade assumida quando você não especificar explicitamente o nome da propriedade.
No exemplo a seguir, porque o valor padrão da caixa de texto é o valor da propriedade Text, você pode consultar a sua propriedade de configuração sem especificar explicitamente o nome da propriedade.

Isto significa que as duas instruções seguintes são equivalentes.

Forms!SeuOutroForm!SeuOutroCampo = True
Forms!SeuOutroForm!SeuOutroCampo.Value = True

Ou

Me.MeuCampo
Me.MeuCampo.Value

Obrigado Mestre
Valeu

JPaulo,
agora a mensagem mudou para
Erro em tempo de execução '-2147352567(80020009)': este recordset nao pode ser atualizado

Então, não deu certo.

Álvaro

Isso acontece porque essas instruções estão colocadas num evento que é muito cedo para surtir efeitos.

Private Sub Saída_Enter()

Você deve mudar de evento, teste colocando por exemplo no evento depois de atualizar de outro campo, ou a sair de outro campo que não o Saída.

JPaulo, boa noite.
Esqueci de dizer uma coisa: há 8 anos usamos esse bd no meu serviço e nunca tivemos esse problema. Por que de uma hora para outra? alguma pista?

Tivemos apenas uma troca de Access 97 para Access 2003, mas ja faz alguns meses e nao tivemos problemas quando fizemos a troca de versões.

Obrigado, mais uma vez.
Álvaro

Bom dia Alvaro;

Na verdade o 97 tinha tantos Bug`s quantos buracos tem um crivo.

Você mudou para a versão 2003 e com os Updates do Office ele ficou a funcionar em pleno e todos ou quase todos os Bug`s foram eliminados, daí existirem alguns metodos de trabalho do Access que não funcionam como o 97 que permitia quase tudo sem jeito algum.

Como lhe passei acima, esse evento tem de ser mudado, está a dizer ao VBA para fazer coisas que ainda não teve o feed back (capacidade de resposta), é como o evento ao Abrir e o ao Carregar, existem diferenças muito significativas.

Mude e veja que funfará.

Na duvida abra novo tópico.