[Resolvido]Problema em VBA - Não permitir que um Form seja fechado sem antes campos chave sejam preenchidos

Pessoal,

Sempre fui muito de ler mais e pedir menos ajuda, mas não estou entendendo o que está acontecendo com esse código.
Coloquei os forms + tabelas + macros referentes ao processo em http://holterecg.vet.br/arquivos/AjudaCodClinica.rar

O que ele faz: Não permite que o form saia do CADPROP para o VISPROP salvando o registro sem antes os campos CPFPROP, NOMEPROP e CODCLINICA sejam preenchidos. O código está funcionando para os dois primeiros, porém ele está permitindo que o form feche mesmo com o CODCLINICA em branco. o nome do botão é ADICPAC

Segue código como está:

Código:

Private Sub AdicPac_Click()
If IsNull(Me.CPFProp) = True Then

'Caso o CPF do proprietário não esteja preenchido emite a mensagem abaixo
MsgBox "CPF do proprietário é de preenchimento obrigatório", vbInformation, "Atenção"

ElseIf IsNull(Me.NomeProp) = True Then

'Caso o nome do proprietário não esteja preenchido emite a mensagem abaixo
MsgBox "O nome do proprietário é de preenchimento obrigatório", vbInformation, "Atenção"

ElseIf Me![CodClinica] = "" Then

'Caso a clínica não esteja selecionada emite a mensagem abaixo
MsgBox "A clínica de origem é de preenchimento obrigatório", vbInformation, "Atenção"

Else

'Se lá acima tudo foi verificado e tudo está conforme o programado, então salva o registro
Dim stDocName As String
Dim stLinkCreiteria As String

stDocName = "VisProp"
stLinkCriteria = "[CodProp]=" & Me![CodProp]
    
DoCmd.DoMenuItem acFormBar, acRecordsMenu, acSaveRecord, , acMenuVer70
DoCmd.OpenForm stDocName, , , stLinkCriteria
    
End If
End Sub

O pessoal pode me dar uma ajuda? Estou usando o Access 2013.
Tenho o mesmo código no form CADCONS (cadastro de consulta) com 3 campos e funciona perfeitamente!

Bom dia,


Pode converter para ACCESS 2010.


Grato

cleverson_manaus,

Desculpe não entendi... o BD já se encontra em formato access 2007-2010.
Existe alguma outra ferramenta da conversão que eu desconheça? Até cliquei em "Salvar Como" para procurar outros formatos...
O que seria essa conversão orientada?

Bom dia,

Vou baixar seu arquivo e dá uma olhada.

Eu também tentei, de inicio usar essa parte

Código:

ElseIf IsNull(Me.CodClinica) = True Then

No lugar do que está atualmente:

Código:

ElseIf Me![CodClinica] = "" Then

Boa tarde Rafael,

Alterei o arquivo, problema corrigido, a questão reside nas referências aos controles , ordem de tabulação e campo obrigatórios, no caso o campo Profissão que acrescentei no código para preenchimento.

O form tem cx de combinações, vc deve informa a coluna (0) e cx de texto evitar nomes com acentos, alias evitar acentos sempre.

Outra situação seria a de abrir um form referenciando um campo de outro form, sendo que após uma inclusão o codigo do proprietário estará em branco, ou seja, valor nulo, o form será aberto sem os dados do proprietário.

Não sei como funciona sua aplicação, não dá para avaliar somente com essas tabelas e forms, e assim dar uma sugestão.

Abraços,

Cleverson,

Caiu como uma luva!!! Perfeito!
Engraçado que uso esse mesmo código que postei em outro FORM com caixa de seleção e não aconteceu isso!
Mas a gente vive e aprende mais!

Muuuuuuuuito obrigado!