[Resolvido]A operação deve usar uma consulta atualizável - Erro 3073

Bom dia galera, estava utilizando um pequeno sistema de cadastro de funcionários que estava OK, inclusive pela rede. Agora começou exibir uma msg de erro quando vou alterar dados pela rede: "A operação deve usar uma consulta atualizável - Erro 3073". Pelo que dei uma olhada por ai fala em permissões, verifiquei a pasta onde esta o bd, o próprio bd, na pasta do outro pc e tá tudo marcado Controle Total, mesmo assim o erro persiste. Alguém já passou por isso para dar uma ajuda ai???

ALAN

Alan

É provável que quando atualiza os dados pela rede, está usando uma instrução SQL, no VBA.

Se esse for o caso, verifique essas SQL's

{ }'s

Balem

Olá Noobezinho, o teste que fiz por enquanto foi de Atualização de dados. Dá o erro 3073 e destaca a linha que tem o UPDATE:

CurrentDb.Execute "UPDATE tbContrato SET CodPessoa=" & Me.txtCodPessoa & ",CodCargo=" & Me.txtCodCargo & ",CodSetor=" & Me.txtCodSetor & ",CodVinculo=" & Me.txtCodVinculo & ",CodCargaHoraria=" & txtCodCargaHoraria & ",DtAdmissao='" & Nz(Me.txtDtAdmissao, 0) & "',DtRescisao='" & Nz(Me.txtDtRescisao, 0) & "',CodSituacao=" & txtCodSituacao & " where MatriculaFunc=" & Me.txtMatricula

ALAN

Galera, outra coisa que percebi foi que não dá pra alterar dados direto nas tabelas pela rede. No pc onde está o banco (SysSemtds.accdb e SysSemtds_be.accdb) funciona tudo ok, o problema é pela rede. Se não permite alterar, então esta em Modo Somente Leitura, correto? Como permitir Alterações???

ALAN

Alan

Creio que precise estudar um pouco mais sobre  banco de dados na WEB (SQL).

Então, sugiro que vá até o site do nosso amigo Avelino , usando access, e leia (estude)

os 3 artigos que tem no site dele, um deles é esse:

www.usandoaccess.com.br/tutoriais/configurar-access-com-mysql-parte-1.asp?id=1#inicio

Quanto ao erro,  sem o projeto é um tanto difícil descobrir onde é o erro.
A única coisa que posso ajudar é que não está separando os campos adequadamente.
Veja que onde tem o sinal de igual, não deixa espaço entre ele e a aspa (DtAdmissao='").
Dê uma geral em toda sentença SQL, conserte isso e veja se não é isso.
Aqui> DtRescisao='" & Nz(Me.txtDtRescisao, 0), como o nome já diz, é um campo data, e como tal
teria que estar entre cerquilhas no VBA, assim:
DtRescisao=#" & Me.txtDtRescisao & #"
É um campo data, Nz() retorna 0 (zero) se o campo não tiver valor, e então dará erro.

Balem

Noobezinho, vou dar uma lida nesse material, e em outros que descobri, e fazer as modificações no código como você orientou. Após as modificações vou seguir fazendo os testes de rede, blza...!!!

ALAN

Ótimo Alan

Se isso resolve por gora, deixe o tópico resolvido.
Caso venha a ter dúvidas sobre isso, abra um novo tópico.

Boa sorte!

Balem

Noobezinho, nem vai acreditar, consegui resolver, erro básico!!!Na hora de compartilhar a pasta onde esta o bd eu estava esquecendo de alterar para Leitura e Gravação. Desculpe a perda de tempo ai. Mas resolvido!!!!

ALAN

Que bom que resolveu!!

Até a próxima!

Balem