[Resolvido]DoCmd.GoToRecord , , acNewRec

Salve Galera.

Pessoal preciso da ajuda vocês! Tenho um form para gerar numero de protocolo de correspondências que precisa ficar em rede para acesso de todos. Quando alguém abrir o form ele vai para um número de registro novo. Criei o form do jeito que preciso. Na minha máquina funciona perfeito, só que quando coloco na rede dá erro na função:

Private Sub Form_Load()
DoCmd.GoToRecord , , acNewRec
End Sub

alguém pode me ajudar?

Faltou só nos dizer qual é o erro ne amigo... Pois como vc falou em uma maquina funciona!

Fábio

Creio que o erro ocorre quando dois usuário em rede estão cadastrando novo registro.

Então dá esse erro, que ele tratou no código:

Case 2105
MsgBox "Este é um novo número de ofício. O número anterior é o último número registrado.", _
vbInformation, "Atenção!"

Marco

Se for isso, retorne que explico como sanar o erro.

[ ]'s

Obrigado aos amigos dispostos a ajudar.

Desculpem não ter sido claro!

Erro em tempo de execução '2105':
Você não pode ir para o registro especificado.

Como eu disse o erro dá na função:

Private Sub Form_Load()
DoCmd.GoToRecord , , acNewRec
End Sub

Creio que o erro se dá, por esta no evento Ao carregar do formulário.

Ou seja, o formulário ainda está carregando, então  o comando ainda não está disponível.

Experimente colocar o comando no evento Ao Abrir do formulário.

Ou ainda, se quer deixar esse formulário somente para adição de registros, na folha

de propriedades, na propriedade Entrada de Dados = sim

Daí não precisa desse comando.


[ ]'s

Amigos Noobezinho e Fábio,

Não funcionou nem, Ao abrir o formulário, nem mudando para Entrada de dados = Sim

Será que tem alguma coisa a ver com o que disse o Fábio? "Creio que o erro ocorre quando dois usuário em rede estão cadastrando novo registro."

Melhor separar a tabela, consulta se houver e formulário em questão, e anexar aqui

para a gente poder analisar.

Aguardamos...

Noobezinho,

Desculpe se não entendi o que pediu, mas o que tenho é o que já foi enviado, é uma tabela simples uma consulta e o formulario.

Fiz um teste aqui, pedindo para ao invés de ir para um novo registro ao carregar, ir para o último registro (DoCmd.GoToRecord , , acLast), funcionou sem erro. Só que quando clico no botão novo (DoCmd.GoToRecord , , acNewRec), dá o mesmo erro.

Confesso que ja testei de todas as formas... inclusive colocando em uma maquina da rede e nunca Obtive o erro...

Somente ocorrendo o erro quando estou no Ultimo registro e clico para ir para Próximo registro, então emite a mensagem do tratamento de erro...

Marco

Fiz umas modificações no teu aplicativo.

Veja se é isso que pretende.

Um detalhe:

Como a tabela terá códigos de vários anos, esses botões anterior e próximo, não funcionará

a contento, já que irá exibir registros misturados, não importando o ano.

Sugiro que crie uma combobox  onde poderá classificar esses registro por ano, ficando

um layout mais enxuto para o usuário visualizar e escolher.

[ ]'s

Boa tarde a todos, quando coloco um sistema access em rede eu costumo usar  Código em NumeraçãoAutomática. de outra forma ele dá sempre esse erro quando duas ou mais usuário utiliza ao mesmo tempo na rede.

Veja se dá pra adaptar esse exemplo ao seu sistema.
Eu utilizo esse exemplo em rede e 5 a 6 usuário ao mesmo tempo gerando números sequenciais.

Pessoal quero agradecer ao empenho de todos que ajudaram. Noobezinho, Fábio e João Afonso.

Descobri aqui porque dava erro de execução quando colocava em rede.

Talvez por falta de experiência minha, que estou aprendendo cada dia mais com vocês grandes mestres, é que o banco estava abrindo como somente leitura em rede, visto que as permissões de controle e acesso para usuários em rede estavam negados.

E Noobezinho, gostei das modificações feitas por você e da dica sobre os registros misturados, vou aproveitar. Sobre a combobox vou ver como adaptar aqui.

Obrigado a todos!

Marco

Sobre a combo, ela é desacoplada, ok?

Valeu o retorno!

Boa sorte !

... é que o banco estava abrindo como somente leitura em rede

Olha só onde estava o problema... Por isso não consegui simular aqui... pois qnd coloquei em rede dei permissão de escrita a todos os usuários...

Grato pelo retorno! e Até a próxima se Deus quiser!