Consultar tabela com marcação de checkbox

Ao cumprimentar os colegas deste fórum, passo a tratar sobre consultas em tabelas e inserção de dados.

Peço ajuda sobre com separar em três tabelas e inserir os dados correspondentes ao formulário.

Tabelas: Numerador (cadastro), Entrada e Saída
Formulários: FormMenu - contém o botão numerador (ok) e o botão protocolo (abre um formPesquisa para consultar entrada e saída), no FormPesquisa seleciono por meio de checkbox quais registros vou dar entrada ou saída.
No formPesquisa tem o botão protocolo que abre guias (entrada e saída), na entrada escolho na combobox qual ato deve ser colocado e ao pressionar o botão salvar ele salva o número do registro marcado pela checkbox e nas colunas referentes ao escolhido na combobox.

O problema está quando é o cadastro de entrada ou saída do registro, por addnew ele até salva, mas quando vou colocar outros dados no mesmo número dá erro.

Veja se resolve

Troco de lugar o código que esta no evento antes de inserir para o antes de atualizar o campo data

Private Sub txtCadDataNum_BeforeUpdate(Cancel As Integer)
If DCount("*", "TabCadNum") < 1 Then
Me.txtCadCodNum = 1
Else
Me.txtCadCodNum = DMax("NUMPLAN", "TabCadNum") + 1
End If
End Sub

Amigo scandinavo, obrigado por ajudar!
Nem é um dos meus maiores problemas a numeração.

Precisava fazer 3 tabelas (cadastro, entrada e saída)

Ao fazer o cadastro, fiz uma consulta no formulário de pesquisa para aparecer todos os dados referentes às tabelas.

Tenho um botão de opção que seleciona os cadastros, para que sejam inseridos na tabela de entrada ou saída.

Exemplo: escolhi 15 cadastros aleatórios. Todos eles estão com o botão de opção marcados (coluna ESCOLHA - tabela cadastro = -1). Pois bem, preciso preencher a tabela entrada com o codigo numero e uma das escolhas de datas do formulário protocolo.

Projeto em anexo.

Agradeço a compreensão.

Só vi agora. Já resolveu o problema ?

Olá scandinavo!
Ainda não resolvi, ultimamente não consegui um tempo para resolver isso.

Atenciosamente.