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]Criticar preenchimento subformulário

    Finformática
    Finformática
    VIP
    VIP


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 1078
    Registrado : 23/03/2010

    [Resolvido]Criticar preenchimento subformulário Empty Criticar preenchimento subformulário

    Mensagem  Finformática 17/6/2010, 23:08

    Grandes Mestres

    Tenho um formulário com seu devido subformulário e quero que se formulário for preenchido o subformulário se torne obrigatório. Se coloco os campos da tabela do subformulário como obrigatório e preencho só o formulário e saio ele aceita (sem preencher campos do subformulário).
    Queria que ao preencher o formulário e tentasse sair sem preencher o subformulário ele desse uma mensagem lembrando que o preenchimento do subformulário é obrigatório e se o usuário realmente desejar sair (sem preencher o sub) não salvasse os dados do formulário.
    Como posso fazer isso??

    Muito grato
    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]Criticar preenchimento subformulário Empty Re: [Resolvido]Criticar preenchimento subformulário

    Mensagem  criquio 17/6/2010, 23:48

    Como os registros são salvos? Ao clicar de um botão ou automático através do form acoplado?


    .................................................................................
    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.

    Finformática
    Finformática
    VIP
    VIP


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 1078
    Registrado : 23/03/2010

    [Resolvido]Criticar preenchimento subformulário Empty Preenchimento de subformulário

    Mensagem  Finformática 18/6/2010, 01:56

    Mestre Criquio

    Desde já muito obrigado por querer me ajudar.

    Respondendo sua pergunta, a gravação é automática.

    Tentei com código abaixo e quando clico para fechar formulário, ele fecha sem mensagem e grava formulário principal sem ter subformulário.

    Private Sub Form_Close()
    If (Eval("DLookUp(""[Nº Processo]"",""[TbAndamento]"",""[Nº Processo] = Form.[Nº Processo] "") Is Null")) Then

    If MsgBox("É necessário o preenchimento da movimentação do processo. Se não o fizer este processo não será salvo!" & vbCrLf & vbCrLf & "Deseja Preenchê-lo?", vbYesNo + vbInformation, "Atenção") = vbYes Then
    Forms![JU - Cadastra Processos]![JU - Cadastra Andamento].SetFocus NÃO FICA NO SUBFORMULÁRIO
    Else
    DoCmd.SetWarnings False
    DoCmd.RunCommand acCmdDeleteRecord
    DoCmd.SetWarnings True
    DoCmd.Close acForm, "JU - Cadastra Processos"
    End If

    End If

    End Sub


    Os formulários, subformulários, consultas e tabelas em questão estão descritas abaixo:

    Formulário Principal: JU - CADASTRA PROCESSOS (nome do formulário)
    Origem do Formulário: JU - CADASTRA PROCESSOS (nome da consulta)
    Origem da Consulta: TbProcessos (nome da tabela)

    Formulário Principal: JU - CADASTRA ANDAMENTO (nome do formulário)
    Origem do Formulário: JU - CADASTRA ANDAMENTO (nome da consulta)
    Origem da Consulta: TbAndamento (nome da tabela)

    Campos vinculados do formulário principal com subformulário:

    Colaborador;Responsável;Homônimo;Nº Processo

    Isto é uma perninha (entre outras) de um sistema bem antigo de gabinete político que, entre outras coisas, faz atendimentos jurídicos e temos o acompanhamento de todos os processos, desde primeiro contato com o advogado, suas petições, audiências, etc. e em determinados casos o operador do sistema cadastra os dados do processo e não coloca nada no andamento do processo e quando tiramos um relatório da situação dos processos, quem não tiver pelo menos um lançamento no andamento não aparece (são tabelas relacionadas).

    Espero que tenha entendido minha bronca.

    E, desde já, muito grato por me ajudar
    Finformática
    Finformática
    VIP
    VIP


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 1078
    Registrado : 23/03/2010

    [Resolvido]Criticar preenchimento subformulário Empty Re: [Resolvido]Criticar preenchimento subformulário

    Mensagem  Finformática 18/6/2010, 16:57

    Caro Mestre

    Consegui resolver o problema. Tudo estava relacionado com o evento. Coloquei o código (com algumas adaptações e implementações) em um botão de comando que faz as crítica, se tudo ok, fecha, caso contrário, não deixa sair ou sai sem salvar nada.

    Com tudo, MUITO GRATO POR TUDO.

    Abraço
    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]Criticar preenchimento subformulário Empty Re: [Resolvido]Criticar preenchimento subformulário

    Mensagem  criquio 19/6/2010, 00:01

    Muito bem, companheiro. Parabens por não desistir e conseguir solucionar o problema. Precisando, dê um grito.


    .................................................................................
    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.

    Finformática
    Finformática
    VIP
    VIP


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 1078
    Registrado : 23/03/2010

    [Resolvido]Criticar preenchimento subformulário Empty Re: [Resolvido]Criticar preenchimento subformulário

    Mensagem  Finformática 24/10/2010, 13:43

    Tudo perfeito, muito grato

    Conteúdo patrocinado


    [Resolvido]Criticar preenchimento subformulário Empty Re: [Resolvido]Criticar preenchimento subformulário

    Mensagem  Conteúdo patrocinado


      Data/hora atual: 19/5/2024, 22:23