[Resolvido]Aplicar AllowAdditions em SubFormulário

Amigos,

Fiz algumas buscas aqui no Fórum e li alguns exemplos para tentar implementar a função AllowAdditions em um subformulário que tenho aqui.

A instrução abaixo, do amigo JPaulo, foi a que mais se aproximou com facilidade do subform que estou tentando finalizar.

Código:

Private Sub Form_Current()
'By JPaulo :registered: Maximo Access
Dim R As Object
Set R = Me.Recordset
Cancel = (R.RecordCount >= 1)
If Cancel Then
    MsgBox "Não é possível gravar: quantidade de registros atingiu o limite.", vbCritical, "Aviso"
    Me.Form.AllowAdditions = False
    Else
    Me.Form.AllowAdditions = True
Exit Sub
End If
End Sub

Percebi, nos tópicos que tratam dessa função AllowAdditions, que o mesmo pode delimitar uma quantidade x de registros, e o bom, também, é que exibe apenas os registros já cadastrados, não permitindo o cadastro de novos registros que excedam a quantidade x determinada. E ainda, deixa o aspecto do subformulário, com formato de folha de dados, mais "limpo" e apresentável, evitando tentativas acidentais de inclusão de novos registros, depurações etc..

Tentei utilizar essa instrução acima nesse subformulário, o que em parte deu certo, mas ao mesmo tempo não permite que seja cadastrado um novo registro do zero. No caso aqui, gostaria de que ficasse visível apenas um registro, mas também que fosse possível a inserção quando não tiver nenhum cadastrado.. Seria isto possível?

Segue abaixo o teste exemplificativo..

Da forma como queres não é possível.

Tentei chegar perto fazendo algumas adaptações no seu anexo
1. Criei o campo fkTabelaB na tabelaC pois supus que a relação do seu anexo estava incorreta já que relacionava dois campos do tipo autonumeração. Fiz igualmente a relação da tabelaA com a tabelaB.
2. Como usou o código no subformulário C também imagino que era na tabela C que gostaria de ter apenas um registro relacionado com tabela B.
3. No subformulário C desabilitei a propriedade AllowAdditions (Permitir adição)
4. Ocultei a coluna que mostrava a chave estrangeira nos subformulários
5. Na relação das tabelas marquei a opção que propaga a exclusão de campos relacionados
6. Usei macro de dados para inserir automaticamente um registro na tabela C quando um registro na tabela B fosse criado

Veja como ficou

Muito bom Ivan,

Estou tentando ver aqui como e onde conseguiu usar macro para a inserção de novo registro automático. Poderia ser no evento atual do SubformulárioB?
Ainda, ressaltando bem a solução que você trouxe, e se eu compreendi da maneira certa, a macro poderia ser feita mediante uma tabela, seria isto?

Veja no vídeo da mensagem do link abaixo como ter acesso a macros de dados que ficam direto na tabela
https://www.maximoaccess.com/t36173-resolvidoimpedir-gravar-na-tabela-mais-de-5-cinco-registos#247431

eu usei o evento após inserir

Obrigado Ivan,

Iria demorar para achar. Este fórum é uma selva!

Deixo o tópico com status de resolvido.

Porém, já fiz algumas tentativas no anexo com relacionamento de um-para-um e ainda não consegui reproduzir o mesmo resultado que você conseguiu no relacionamento um-para-muitos.
Deve ter algum detalhe ou alguma etapa que tem que ser feita. Talvez demore um pouco para eu saber qual é..

O fórum agradece o retorno. Sucesso.