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]Proteger subformulario de registro antes de abrir um novo cadastro

    avatar
    controls
    Novato
    Novato


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 38
    Registrado : 22/09/2012

    [Resolvido]Proteger subformulario de registro antes de abrir um novo cadastro Empty [Resolvido]Proteger subformulario de registro antes de abrir um novo cadastro

    Mensagem  controls 18/1/2013, 12:33

    bom dia a todos.

    recentemente desenvolvi um cadastro de clientes e relacionei ele com outras tabelas existentes do bd.

    Ao criar os formulários eu criei o do cadastro e coloquei um subformulário que já tinha dentro dele outro subformulário.

    Coloquei o relação de campo pai e filho e tudo certinho.

    Agora eu queria proteger o subformulário de cadastro órfãos, ou seja, só cadastrar qualquer informação somente depois de preencher o cadastro principal.

    Alguem pode me ajudar?

    o office que uso é de 2010.


    Última edição por controls em 23/2/2014, 15:18, editado 1 vez(es)
    criquio
    criquio
    Moderador Global
    Moderador Global


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 11229
    Registrado : 30/12/2009

    [Resolvido]Proteger subformulario de registro antes de abrir um novo cadastro Empty Re: [Resolvido]Proteger subformulario de registro antes de abrir um novo cadastro

    Mensagem  criquio 18/1/2013, 12:52

    Talvez algo assim no evento "No atual" do formulário:

    Código:
    If (IsNull(Me.NomeCampo1) Or Me.NomeCampo1.Value = "") Or (IsNull(Me.NomeCampo2) Or Me.NomeCampo2.Value = "") Or (IsNull(Me.NomeCampo3) Or Me.NomeCampo3.Value = "") Then
        Me.NomeSubFormulário.Enable = False
    Else
        Me.NomeSubFormulário.Enabled = True
    End If
    É só um modelo. Veja se consegue adaptar.


    .................................................................................
    Meu novo site: www.vcssistemas.com.br

    Clique aqui e veja um vídeo que explica como fazer pesquisas no forum.


    DICA: Quando precisar inserir um exemplo do seu aplicativo, siga os procedimentos abaixo:
    1 - faça uma cópia do aplicativo
    2 - retire tudo que não for necessário à solução do problema, exceto o que o aplicativo precisar para funcionar
    3 - use o Compactar/Reparar
    4 - compacte o aplicativo em zip ou rar (zip para postagem como anexo na mensagem)


    Agradeça a quem lhe ajudou, clicando no joinha de uma das mensagens do usuário.
    Positive as mensagens que achar útil, no canto superior direito delas.

    avatar
    controls
    Novato
    Novato


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 38
    Registrado : 22/09/2012

    [Resolvido]Proteger subformulario de registro antes de abrir um novo cadastro Empty Tentando resolver

    Mensagem  controls 19/1/2013, 11:25

    Bom dia.

    Private Sub Form_BeforeInsert(Cancel As Integer)

    On Error Resume Next
    Dim Cancelado As Integer

    If IsNull(Me!sc_c_id) Or Me!sc_c_id = "" Then
    MsgBox "Nenhum Serviço em Aberto! Por Favor Digite Primeiro o Nome do Cliente", vbCritical, "Aviso"
    Cancel = True 'Cancela o evento
    Forms!frm_assessoria_consular_abertura.assessoria_nome.SetFocus

    End If

    End Sub


    Até aqui tudo bem! só que quando vou adicionar dados no subformulario ele avisa que deve preencher primeiro o nome do cliente já digitado!

    qual condição colocar para liberar o preenchimento caso já tenha preenchido o nome?
    criquio
    criquio
    Moderador Global
    Moderador Global


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 11229
    Registrado : 30/12/2009

    [Resolvido]Proteger subformulario de registro antes de abrir um novo cadastro Empty Re: [Resolvido]Proteger subformulario de registro antes de abrir um novo cadastro

    Mensagem  criquio 19/1/2013, 14:44

    Passe a dica acima para uma Sub e chame essa Sub nos eventos "Ao carregar" do formulário e "Após atualizar" dos campos ou em um botão, o que for mais eficiente para o caso.

    A sub:

    Código:
    Sub Bloq()
        If (IsNull(Me.NomeCampo1) Or Me.NomeCampo1.Value = "") Or (IsNull(Me.NomeCampo2) Or Me.NomeCampo2.Value = "") Or (IsNull(Me.NomeCampo3) Or Me.NomeCampo3.Value = "") Then
            Me.NomeSubFormulário.Enable = False
        Else
            Me.NomeSubFormulário.Enabled = True
        End If
    End Sub
    Nos eventos:

    Código:
    Call Bloq


    .................................................................................
    Meu novo site: www.vcssistemas.com.br

    Clique aqui e veja um vídeo que explica como fazer pesquisas no forum.


    DICA: Quando precisar inserir um exemplo do seu aplicativo, siga os procedimentos abaixo:
    1 - faça uma cópia do aplicativo
    2 - retire tudo que não for necessário à solução do problema, exceto o que o aplicativo precisar para funcionar
    3 - use o Compactar/Reparar
    4 - compacte o aplicativo em zip ou rar (zip para postagem como anexo na mensagem)


    Agradeça a quem lhe ajudou, clicando no joinha de uma das mensagens do usuário.
    Positive as mensagens que achar útil, no canto superior direito delas.

    avatar
    controls
    Novato
    Novato


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 38
    Registrado : 22/09/2012

    [Resolvido]Proteger subformulario de registro antes de abrir um novo cadastro Empty Não entendi

    Mensagem  controls 19/1/2013, 17:42

    Boa tarde.

    Por favor explique o passo a passo pois não entendi o que deve ser feito!

    Conteúdo patrocinado


    [Resolvido]Proteger subformulario de registro antes de abrir um novo cadastro Empty Re: [Resolvido]Proteger subformulario de registro antes de abrir um novo cadastro

    Mensagem  Conteúdo patrocinado


      Data/hora atual: 21/11/2024, 14:00