[Resolvido]projeto criado no access 2003 (sistema 32 bits) rodando em rede com computadores de 32 e outros 64 bits

ola ! denovo.

criei um programa em access 2003 com ajuda e dicas da galera do forum, e ficou bem legal, vai atender ao que eu preciso e economizar tempo.
Só que no meu setor tem maquinas antigas com windows xp e access 2003 e outras novas, com windows 7 64 bits e access 2010.
Coloquei o back end no servidor da rede e instalei o front end em todas as maquinas.
O que acontece é que no 1 dia tudo funcionou bem em todos os pcs. Mas agora esta funcionado bem nas maquinas antigas, só que no windows 7 e access 2010 o formulario trava quando clico para fechar o mesmo.
Lembrando que tem masia maquinas novas do que antigas entao preciso que funcione nas mais novas.


O que sera que ta acontecendo? to anexando o bd para quem quiser da uma olhada. ( senha para entrar no bd: protocolo )

Em um formulario no evento ao fechar falta um End sub

mas o formulario que esta dando erro e somente o formulario ( Peticoes Forumlario ) e verifiquei que nao esta falatando end sub nele.

o problema é que quando to digitando so dados nele e resolvo apagar o que tinha digitado e clico no botao fechar. ai ele trava.

deve ser alguma coisa relacionado com a gravacao do registro .( as tabelas estao vinculadas e estao na rede)

Wesley

Verifiquei teu aplicativo e não apresentou problemas que mencionou no petições_Formulário. Uso Access2007 no Win7-Ultimate.

O que percebi é que como você está já salvando ele para evitar erros no salvamento quando dois usuários estão cadastrando, se der ESC, irá apagar os campos, mas o registro está gravado na tabela com dados incompleto.
Acredito que você deva desabilitar a tecla ESC e quando for fechar o formulario, colocar uma mensagem perguntando se o usuário quer "salvar" o registro ou não, se o usuário quiser desistir do cadastramento, esse registro deve ser apagado da tabela.

Seria assim:

Código:


Na propriedade Ao Fechar do Formulário:
if msgbox("Salvar registro?",vbquestion+vbYesNo,"Salvar Registro")=vbNo then
 
 docmd.RunCommand acCmdDeleteRecord 'aqui ele apaga o registro da tabela.
endif


Abraços

Atenção com a versão do SO. Pode haver a necessidade de mudar algumas coisas para funcionar na versão de 64 bits. Veja no site www.usandoaccess.com.br que tem um artigo sobre.

balem e criquio. obrigado pela ajuda.
experimenta abrir o formulario ( peticoes formulario), ai no campo numero voce digita qualquer coisa( ex: 035 , 024) e da enter, como se tivesse digitando normalmente. ai voce volta e apaga o que voce tinha digitado e tenta fechar o formulario pra ver o que acontece.

não sei o que possa ser.

esse codigo ai esta dando erro. ta indo pra depurar

Wesley

Agora, experimente você tirar o comando que força o Access a salvar o registro, colocando uma aspa simples antes do Docmd, a linha ficará verde e faça esse teste que você mencionou
No aguardo

amigo balem

explica isso ai

tirar o codigo que força a gravar o registro?
colocar aspa antes do codigo que voce passou ou no meu que grava o registro mesmo?

nao entendi.


obrigado!


o que voce acha de eu refazer todo o sistema mas em access 2010, sera que é melhor ?

Assim:

Vai la no teu código onde está escrito

Docmd.accmd...SaveRecord e coloque a aspa simples na frente, vai fica assim:

'Docmd.accmd...SaveRecord e essa linha vai ficar verde quando vc sair dela

Então faça os testes

qual a explicacao desta aspa.
so para eu saber.

Aspas simples no inicio da linha, transforma a linha em simples comentário, não sendo executada pelo access.
Você pode verificar em códigos que deve ter copiado de outro exemplos, que todas linha de cor verde tem uma aspas simples na frente.

mas o codigo e pra gravar o registro e nao permitir que outra pessoa edite salve ele antes de eu terminar a edicao.

se colocar a aspa como vai continuar salvando o registro.

o codigo no formulario evento antes de inserir.se eu trocasse para ao receber o foco seria melhor ou o que voce me sugere.

e este codigo que voce me passou nao ta funcionando:
Na propriedade Ao Fechar do Formulário:if msgbox("Salvar registro?",vbquestion+vbYesNo,"Salvar Registro")=vbNo then docmd.RunCommand acCmdDeleteRecord 'aqui ele apaga o registro da tabela.endif



obrigado.

Primeiro: pedi pra você fazer isso para você testar e verificar que o erro está justamente no fato de ter salvo o registro na tabela e quando você desiste de salvar o registro simplesmente apagando os dados da tela, o mesmo irá causar erro.
E disse também que para solucionar isso, usar o código passado por mim, para deletar o dito registro da tabela.

Segundo: A aspas simples era para colocar somente para fazer o teste, depois dele feito, retirar a aspa.

e este codigo que voce me passou nao ta funcionando:
Na propriedade Ao Fechar do Formulário:if msgbox("Salvar registro?",vbquestion+vbYesNo,"Salvar Registro")=vbNo then docmd.RunCommand acCmdDeleteRecord 'aqui ele apaga o registro da tabela.endif

Colocou tudo junto como está ai?
Dai não vai funfar mesmo.

nao corrigi antes, mas nao funcionou c



if msgbox("Salvar registro?",vbquestion+vbYesNo,"Salvar Registro")=vbNo then docmd.RunCommand acCmdDeleteRecord 'aqui ele apaga o registro da tabela.
Enf If
ve ai pra mim agradeço.

Volto a perguntar

No Access está escrito assim como você escreveu agora??

sim desta forma mesmo,
quando vai executa o comando vai pra depurar e fica vermelho a parte

if msgbox("Salvar registro?",vbquestion+vbYesNo,"Salvar Registro")=vbNo then
docmd.RunCommand acCmdDeleteRecord 'aqui ele apaga o registro da tabela.
Enf If


aparte docmd.RunCommand acCmdDeleteRecord fica vermelha

Wesley

Creio que descobri.

Tire o código do Evento Ao fechar do formulário e coloque o código no evento AoDescarregar.


if msgbox("Salvar registro?",vbquestion+vbYesNo,"Salvar Registro")=vbNo then
docmd SetWarnings false ' desativa os avisos do access
docmd.RunCommand acCmdDeleteRecord 'aqui ele apaga o registro da tabela.
domcd.Setwarnings True ' reativa os avisos no access
endif
Aguardo

no codigo que voce passou fica em vermelho esta parte

docmd SetWarnings false ' desativa os avisos do access

O erro é bem simples

Deixo pra você resolver (é só olhar o debaixo e descobrir, se ainda não descobrir coloque o cursor encima do comando e aperte F1.

Aproveite e corrija o título do teu formulário.

Abraços

obrigado Balem !

consegui , valeu mesmo.

ficou show!
mas como de costume veio outra duvida, como inibir a mensagem se o valor for nulo ( tipo entrei no formulario sem querer e sai rapido)
porque quando clico em nao salvar o comando da erro [2046] e nao fecha o formulario.
pequenas coisas chatas.. desculpe ta incomodando com duvidas que pra voces sao facil , mas pra mim e dificil ainda to aprendendo
tem dias que fico ate madrugada vendo codigo pra ver se aprendo e estudando os exemplos do forum.

Bom, agora vamos melhorar um pouco mais isso ai.

Substitua o código por esse abaixo:

Código:


If Not IsNull(Me.REG) Then
  If MsgBox("Salvar registro?", vbQuestion + vbYesNo, "Salvar Registro") = vbNo Then
      DoCmd.SetWarnings False
      DoCmd.RunCommand acCmdDeleteRecord 'aqui ele apaga o registro da tabela.
      DoCmd.SetWarnings True
  End If
End If


Agora, mova o comando que salva o registro, tire-o de onde está e coloque
no Evento Ao Entrar da caixa de texto destino.

Dai faça os testes.

voce e sinistro.
nao so me ajudou a resolver esse problema como abriu minha mente para entender um poucoi esses codigos.

fiz o seguite e deu certo :
coloquei pra gravar o registro no evento ao sair do campo numero, ai peguei o codigo que voce me deu e ao inves de (If Not IsNull(Me.REG) Then ) , coloquei ( If Not IsNull(Me.NUMERO) Then ) e deu certo .
o que voce acha.

mas valeu mesmo! de coracao !!

É isso ai mano

A gente tenta mostrar o caminho na esperança que consigam seguir por ele.

Creio que agora você esteja entendendo o que quis dizer na minha assinatura ali embaixo.

Grande abraço

Boa sorte !!