[Resolvido]SubFormulário não pode ter campos com informações repetidas

Boa tarde,

Estou quebrando a cabeça há algum tempo com uma coisa aqui no sistema que fiz.
Dentro do Formulário de cadastro de clientes, criei um subformulário para os contatos, para colocar quantos telefones, emails e contatos quiser por cliente.
Porém na hora de imprimir o pedido quero mostrar apenas o contato "Principal", por isso fiz uma consulta que pega só os contatos do Depto "principal".
Porém, tenho problemas quando acontece duas situações:
1 - Cadastro de 2 contatos como "principal" - Não sei como fazer para não deixar o usuário repetir este campo
2 - Quando o cliente não cadastra nenhum contato

Em ambos os casos meu relatório de venda fica em branco.

Alguem sabe como resolver?

Em anexo uma imagem do formulario de Clientes.



Eu compartilhei ontem este sistema no depósito de exemplos, porém estou querendo aprimorar algumas coisas.

Agradeço quem puder ajudar!

Minha sugestão:

Problema 1 e 2:
No formulario de cadastro crie um consistencia para que ao menos um contato seja informado e que somente um do(s) contato(s) seja setado como principal.

Desculpe a ignorancia, mas como eu faço isso?

Eduardo,

através do código VBA.
Como você confeccionou o sistema, basta criar uma validação do momento que o botão de salvar e Atualizar for clicado.

Exemplo

Se ISNULL(Depto ) entao
Mensagem: "Favor informar ao menos um contato como principal."

Senao se Dcount("depto", "tabela1", "depto='Principal' AND usuario= cod_usuario") > 1 entao
Mensagem: "Favor informar somente um contato como principal."

Senao
Salvar()

Fim Se

Deu certo amigo, perfeito!

O código utilizado foi:

Código:

If IsNull(Txt_Contatossub!Depto) Then
MsgBox ("Favor informar ao menos um contato como principal.")
End
End If

If DCount("Depto", "Tbl_Contatos", "depto=1 AND CodCli=TxtCodigo") > 1 Then
MsgBox ("Apenas um dos contatos pode ser o Principal")
End
End If


Que bom eduardo!

Por favor, finalize o post, clicando em resolvido.