MaximoAccess

Caro Usuário, não tire as suas duvidas nas Salas de Repositório, abra sempre um novo tópico relacionado, nas salas destinadas para o efeito, como Sala de Tabelas, Consultas, Formulários, Relatórios, Macros, Módulos e VBA.

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

    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!

    cleverson_manaus
    Super Avançado
    Super Avançado

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 620
    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!!! Tópico resolvido!!!!

    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)

    cleverson_manaus
    Super Avançado
    Super Avançado

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 620
    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!!! Tópico resolvido!!!!

    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

    cleverson_manaus
    Super Avançado
    Super Avançado

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 620
    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 3 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!!! Tópico resolvido!!!!

    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: Sex 09 Dez 2016, 09:39