[Resolvido]Erro em tempo de execução '-2147352567 (80020009)': O campo não pode ser atualizado

Boa Noite

Procurei por tudo e não encontrei nada com relação a esse erro:

[img][/img]

O erro ocorre na linha que está com o ponto de interrupção.
Preciso apenas que alterar o campo  txtStatusLi para  2 está sinalizado com a seta.
O campo é número inteiro, o mais estranho é que com alguns registros não ocorre o erro, com outros sim.

Desde já agradeço a ajuda.

Bom dia,
Provavelmente o controlo provêm de tabela e o registo está em uso.
Tente alterar o valor na tabela e, depois, actualizar o controlo

Um pitaco

Experimente:

Me.txtStatusLI.Value=2

e cruze os dedos !!  

Noob

tem algo de bem estranho no código....

if me.txtstatusLI = 1 then
me.txtstatusLI=2
...

...

end if

Como pode atualizar o mesmo campo(txtstatusLI) que já está com um valor ?

Pense nisso !

.

Boa Tarde

Noob, coloquei como conforme você comentou, e aí mudou o erro:
Agora é "Erro em tempo de execução '3164': o Campo não pode ser atualizado"

Alexandre,
ele é um campo de controle de uma tabela, se por acaso vou lá na tabela e reescrevo por cima, exemplo coloco lá o nr 1, e venho para o formulário, que no procedimento deverá mudar para 2 ele funciona, mas quando o campo é preenchido com o 1 pelo VBA em outro procedimento, ele dá o erro.
é como se tivesse ficado "preso" o campo.

Silvio,
é isso mesmo, no caso o campo vem informado com o código 1, fazendo o procedimento nesse form ele deve alterar esse campo para o código 2, para atualizar o status dessa LI.

Boa noite,

Tente assim:

IF me.txtstatusli=1 then
  me.txtstatusli=2
end if
IF me.txtstatusli=2 then
  me.txtstatusli=3
end if

...

Caso não dê certo, Verifique se realmente é "Após Atualizar(Form_AfterUpdate)" que vc quer que ele faça isso.

Acho que o correto seria "Antes de atualizar(BeforeUpdate)".

Vlw.

Lissandro


Experimente colocar esse código no evento Ao sair da caixa de texto e veja se funfa.

Caso não funfe, melhor criar outro formulário, esse ai deve estar bichado(desculpe o termo técnico para dizer com problemas).  


Abraços
Noob

Erro de digitação...
Consertei!

Eu também consertei meu post

Apague tua ultima mensagem e eu apagarei essa pra não poluir o tópico do amigo


Abração


Noob

Fiz os testes com todas as modificações sugeridas e não tem Cristo que faça funcionar.
Acho que tá bichado mesmo, hehehehe

Vou ver se encontro outra alternativa ou outro caminho para atualizar esse campo,
Mesmo assim obrigado pela ajuda.

Lissandro

Creio que vai perder seu tempo

Dica: Crie um outro formulário igual a esse, mas crie do zero, na faça um copiar e colocar

coloque uns controle 2 ou 3 e esse controle problematico, e teste. se funfar,
não preciso dizer mais nada né?
Dai então então você coloque esse formulário na cesta do window   

Abraço

Noob

Uma pergunta de amador,
A fonte de registro dos dados desse subform é uma consulta, isso muda alguma coisa no que estou tentando fazer?

Abraço

Lissandro

A principio não

Mas também depende da consulta.

Coloque-a aqui para vermos.


Noob

Sei não, mas acho que a função Replace deve solucionar o problema.

Algo parecido com isso.....


IF me.txtstatusli=1 then
me.txtstatusli= Replace(2)
end if
IF me.txtstatusli=2 then
me.txtstatusli= Replace(3)
end if

Obs...não testei, por isso não sei que poderá acontecer !!

Silvio


Eu sugeri a criação de outro formulário, mantendo o original, claro, porque isso já aconteceu comigo.
Era uma caixa de texto também.
Acredite, fui tirando todos os controles do formulário, deixando somente a "mardita". Não teve solução.
Não tinha nenhuma "sujeira" de código, nada. Eram só dois controles, um para ser modificado e outro para fazer a modificação via código.
Mesmo assim, não funfou.
Foi muito estranho isso, fiquei frustrado, mas não teve jeito.
Fiz o que sugeri.

Abraços

Noob

Pois é Noob....há momentos durante a programação que temos que ser radicais....começar do zero mesmo.

Se tudo que passamos para o LissandroG não der certo......mata tudo e começa de novo.

Abraços.

Boa Tarde pessoal

Silvio, coloquei o que você sugeriu, mas dá erro: "Erro de compilação: O argumento não é opcional".

Vou seguir dica do Noob e fazer um form novo para testar.

Daqui a pouco posto o que ocorreu.

Obrigado mesmo assim.

Abraço

Fiz um form do zero testando a media que ia incluindo os campos e dava certo.
Porem quando adicionei ele como um subform ao form principal e acionei ele pelo form principal deu o mesmo problema.

Estou fazendo alguma coisa de errado no form que está impactando nele quando ele é acionado como subform.

Vou quebrar a cabeça aqui e ver se encontro o problema.

Valeu

Poste ele pra nós Lissandro

Antes, mostre como está chamando ou referenciando ele no form principal.

Noob

Pessoal, contornei de outra forma essa atualização de campo.
Coloquei um comando no botão salvar para atualizar direto na tabela o campo de acordo com as regras.
Ficou até melhor assim.

Mas obrigado pelo tempo e atenção.

At
Lissandro

Bom dia,
Se ficou resolvido, marque-o no botão apropriado

Bom Dia Alexandre

De fato mesmo não resolvi o problema
Modifiquei a estrutura para atender a demanda de outra forma para não cair no problema.
Coloco mesmo assim como resolvido? fiquei na dúvida

Se resolveu o que pretendia e deixou de dar erro, deve dar por resolvido

Blza

Valeu pela ajuda de todos.

Abraço e ótimo trabalho