MaximoAccess

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

https://www.maximoaccess.com/t48-regras-do-forum

Obrigado

Administração


Participe do fórum, é rápido e fácil

MaximoAccess

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

https://www.maximoaccess.com/t48-regras-do-forum

Obrigado

Administração

MaximoAccess

Gostaria de reagir a esta mensagem? Crie uma conta em poucos cliques ou inicie sessão para continuar.

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


2 participantes

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

    rcostacaldeira
    rcostacaldeira
    Novato
    Novato


    Respeito às regras : 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 Empty [Resolvido]Problema em VBA - Não permitir que um Form seja fechado sem antes campos chave sejam preenchidos

    Mensagem  rcostacaldeira 25/8/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 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!
    cleverson_manaus
    cleverson_manaus
    VIP
    VIP


    Respeito às regras : Respeito às Regras 100%

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

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

    Mensagem  cleverson_manaus 25/8/2016, 14:12



    Bom dia,


    Pode converter para ACCESS 2010.


    Grato


    .................................................................................
    afro

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


    Respeito às regras : 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 Empty Re: [Resolvido]Problema em VBA - Não permitir que um Form seja fechado sem antes campos chave sejam preenchidos

    Mensagem  rcostacaldeira 25/8/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?
    cleverson_manaus
    cleverson_manaus
    VIP
    VIP


    Respeito às regras : Respeito às Regras 100%

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

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

    Mensagem  cleverson_manaus 26/8/2016, 12:54

    Bom dia,

    Vou baixar seu arquivo e dá uma olhada.



    .................................................................................
    afro

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


    Respeito às regras : 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 Empty Re: [Resolvido]Problema em VBA - Não permitir que um Form seja fechado sem antes campos chave sejam preenchidos

    Mensagem  rcostacaldeira 26/8/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
    cleverson_manaus
    VIP
    VIP


    Respeito às regras : Respeito às Regras 100%

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

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

    Mensagem  cleverson_manaus 26/8/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
    [Resolvido]Problema em VBA - Não permitir que um Form seja fechado sem antes campos chave sejam preenchidos AttachmentAjudaCodClinica.zip
    Você não tem permissão para fazer download dos arquivos anexados.
    (171 Kb) Baixado 6 vez(es)


    .................................................................................
    afro

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


    Respeito às regras : 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 Empty Re: [Resolvido]Problema em VBA - Não permitir que um Form seja fechado sem antes campos chave sejam preenchidos

    Mensagem  rcostacaldeira 27/8/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!

    Conteúdo patrocinado


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

    Mensagem  Conteúdo patrocinado


      Data/hora atual: 28/3/2024, 13:46