MaximoAccess

Caro Usuário, antes de postar pela primeira vez, leia as regras do fórum.

Obrigado

Administração do MaximoAccess

Dicas Ms Access, Exemplos Ms Access, Codigos VBA Ms Access, SQL Ms Access

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

    Compartilhe
    avatar
    rcostacaldeira
    Novato
    Novato

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 6
    Registrado : 21/10/2014

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

    Mensagem  rcostacaldeira em Qui 25 Ago 2016, 03:28

    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 [Você precisa estar registrado e conectado para ver este link.]

    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!
    avatar
    cleverson_manaus
    Super Avançado
    Super Avançado

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 723
    Registrado : 23/09/2011

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

    Mensagem  cleverson_manaus em Qui 25 Ago 2016, 14:12



    Bom dia,


    Pode converter para ACCESS 2010.


    Grato


    .................................................................................
    [Você precisa estar registrado e conectado para ver esta imagem.]

    "É fazendo que se aprende a fazer aquilo que se deve aprender a fazer."(Aristóteles)
    - Dúvida resolvida!!! Favor marcar o tópico como resolvido!!!
    avatar
    rcostacaldeira
    Novato
    Novato

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 6
    Registrado : 21/10/2014

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

    Mensagem  rcostacaldeira em Qui 25 Ago 2016, 15:43

    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?
    Anexos
    Captura de tela 2016-08-24 23.00.49.png
    Você não tem permissão para fazer download dos arquivos anexados.
    (7 Kb) Baixado 5 vez(es)
    avatar
    cleverson_manaus
    Super Avançado
    Super Avançado

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 723
    Registrado : 23/09/2011

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

    Mensagem  cleverson_manaus em Sex 26 Ago 2016, 12:54

    Bom dia,

    Vou baixar seu arquivo e dá uma olhada.



    .................................................................................
    [Você precisa estar registrado e conectado para ver esta imagem.]

    "É fazendo que se aprende a fazer aquilo que se deve aprender a fazer."(Aristóteles)
    - Dúvida resolvida!!! Favor marcar o tópico como resolvido!!!
    avatar
    rcostacaldeira
    Novato
    Novato

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 6
    Registrado : 21/10/2014

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

    Mensagem  rcostacaldeira em Sex 26 Ago 2016, 16:26

    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
    avatar
    cleverson_manaus
    Super Avançado
    Super Avançado

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 723
    Registrado : 23/09/2011

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

    Mensagem  cleverson_manaus em Sex 26 Ago 2016, 17:01

    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,
    Anexos
    AjudaCodClinica.zip
    Você não tem permissão para fazer download dos arquivos anexados.
    (171 Kb) Baixado 4 vez(es)


    .................................................................................
    [Você precisa estar registrado e conectado para ver esta imagem.]

    "É fazendo que se aprende a fazer aquilo que se deve aprender a fazer."(Aristóteles)
    - Dúvida resolvida!!! Favor marcar o tópico como resolvido!!!
    avatar
    rcostacaldeira
    Novato
    Novato

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 6
    Registrado : 21/10/2014

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

    Mensagem  rcostacaldeira em Sab 27 Ago 2016, 03:27

    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!

      Data/hora atual: Qui 29 Jun 2017, 03:11