[Resolvido]Subformulário com erro: "Você não pode ir para o registro especificado"

** Uso Access 2003

Caros colegas, estou com o seguinte problema e peço a ajuda de vocês após fazer buscas aqui neste Fórum e haver testado as opções abaixo dadas pelo nosso colega Vieira em outro tópico similar:

1- Que o formulário tem a propriedade "Introdução de dados"=Não
2- Que a chave primária existe e é sequencial (duplicação não autorizada)
3- Que as tabelas estão linkadas
4- Que a permissão para utilização das BD's estão definidas como Partilhado

Todas as observações acima foram checadas por mim e estão todas ok.

Também tentei criar um novo BD e importar todos os dados, mas continuou com o mesmo erro, refazendo toda a vinculação ou revinculação das Tabelas.

Antes disso, tudo estava funcionando normalmente, inclusive após vários testes de inclusão, quando eu fui fazer mais um lançamento de um novo registro, clicando no Botão “NovoRegistro” aparece do nada (?) esta mensagem: "Você não pode ir para o registro especificado". Abaixo segue as condições da BD:

1) É dividido em Back-End e Front-End;
2) As 02 Tabelas envolvidas estão com Relacionamento: 1 x Vários;
3) Formulário principal (Origem: Tabela T16_Autuacoes) usando uma Guia de Controle como Subformulário (Origem: Consulta baseada na Tabela: T16b_Tramitacoes). Campo MESTRE: CodAutuacao – Campo FILHO: IDCodAutuacao;
4) Objetivo: No formulário principal onde são inseridos vários tipos de Autuações, que por sua vez tem o subformulário onde são feitos vários lançamentos das Tramitações da Autuação;
5) Uso a seguinte rotina no botão “NovoRegistro”:

Private Sub NovoRegistro_Click()
Dim ntram
ntram = MsgBox("Você está incluindo uma Nova Tramitação !!" & vbCr & "Confirma INCLUSÃO ?", vbQuestion + vbYesNo, "Sistema")

If ntram = 6 Then 'SE RESPOSTA FOR "SIM"
On Error GoTo Err_NovoRegistro_Click
Me!BaixaRegistro = 1 'SIM
DoCmd.GoToRecord , , acNewRec 'INCLUI NOVO REGISTRO
Me.NomeOrigemSetor.SetFocus
Exit_NovoRegistro_Click:
Exit Sub
Err_NovoRegistro_Click:
MsgBox Err.Description
Resume Exit_NovoRegistro_Click
End If
End Sub

A finalidade da rotina acima é ao incluir 1 novo registro é dado Baixa automaticamente no Registro anterior no Campo “BaixaRegistro” da Tabela T16b_Tramitacoes, para isso este campo é atualizado como o código: 1 (Campo tipo texto – tamanho: 1), que significa SIM, ou seja, é dado a Baixa no Registro. O valor padrão desse Campo é: 2 (correspondente a NÃO), ou seja, ele sempre com um novo registro como Não-Baixa; em resumo: toda vez que incluir um novo registro é dado Baixa automaticamente no registro anterior, caso contrário fica aguardando a Baixa com o código 2 (NÃO).

Caso possa ser feito de outra forma, também serve como solução.

olá, boa noite...

Tu disestes...."1- Que o formulário tem a propriedade "Introdução de dados"=Não ", porem mais abaixo "...4) Objetivo: No formulário principal onde são inseridos vários tipos de Autuações, que por sua vez tem o subformulário onde são feitos vários lançamentos das Tramitações da Autuação;".

Não está havendo um contra senso ??

Boa noite, Silvio,

A observação refere-se a propriedade do Formulário em "Entrada de Dados" que provavelmente como foi feito por Vieira que usa o sistema em Português de Portugal, ficou como "Introdução de dados", que significa a mesma coisa, mas, até hoje sempre usei essa propriedade "Entrada de dados" como "Não" que, aliás, é padrão do Access, faço a inclusão através de outros comandos e sempre funcionou bem, como disse no início do texto, ou seja, já estava dessa forma, apenas verifiquei e confirmei pelas sugestões do amigo Vieira, ou seja, inclusive o formulário principal em questão uso dessa forma e funciona corretamente, e também já fiz outros formulários com subformulário dessa forma e funciona perfeitamente, o caso aqui acredito que seja por algum outro motivo.

Boas....

Sugestão: de uma olhada em como está os relacionamentos das tabelas( um para muitos) ....e chaves secundarias ( estrangeiras ).

Caro Silvio, verifiquei novamente os Relacionamentos entre as 2 tabelas e chaves primárias e secundárias e estão da forma adequada:

Tabela1: T16_Autuacoes
Campo: CodAutuacao - Autonumeração - Chave primária - Duplicação não-autorizada

Tabela2: T16_Tramitacoes
Campo: IDCodAutuacao - Número - Inteiro longo (Chave estrangeira)

Relacionamento: 1 para muitos da Tabela1 para Tabela2 do Campo: CodAutuacao para Campo: IDCodAutuacao

Bom dia Vile man.

Por gentileza, anexe a parte que esta com problema e manda para cá. Vou dar uma olhada nele.

Grato.

Boa noite, Silvio, vou preparar o arquivo e coloco aqui para você, favor aguarde.

Prezado Silvio, aconteceu o seguinte ao preparar o arquivo para enviar:

Após retirar todos os objetos do BD que não interessavam na questão deste tópico, e ao fazer o último teste para lhe enviar, ele passou a funcionar normalmente sem a mensagem aqui citada, ou seja, como disse no início deste tópico que do nada (?) ele havia deixado de funcionar, quando já anteriormente estava incluindo os registros normalmente, então, tentei ver o que foi que eu havia retirado do BD completo para tentar achar o erro, e acredite (não me pergunte como e nem porque), quando retirei uma rotina que estava no Formulário do Menu Principal que mostrava um letreiro com texto em movimento, sempre na abertuda do sistema, foi que passou a funcionar a rotina de inclusão no Subformulário, e para confirmar, quando coloquei a rotina de volta, ele apresentou a mensagem de erro novamente, dá para entender isso? Coisas da Microsoft ? Como já disse não pergunte que nem tenho idéia do porquê disso, mas, o que interessa é que está funcionando.

Diante do exposto, de qualquer forma agradeço sua atenção e interesse, muito obrigado.

Abraços e muita Paz.

Bom dia...

São coisas que inexplicáveis mesmo, o importante é que achou o erro.


Abraços.

Silvio.