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


3 participantes

    [Resolvido]Salvar na condição de ter registro no subformulário

    avatar
    emacsabino
    Intermediário
    Intermediário


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 190
    Registrado : 29/08/2011

    [Resolvido]Salvar na condição de ter registro no subformulário Empty Salvar na condição de ter registro no subformulário

    Mensagem  emacsabino 6/3/2012, 23:24

    Boa noite a todos! Bom é o seguinte amigos do forum, eu tenho um formulário de uma tabela, e nesse formulário tenho um subformulário de uma outra tabela, as tabelas estão relacionadas de um para muitos, o que eu quero é que quando eu clicar no botão salvar,se tiver registro na tabela do formulário e na tabela do subformulário não tiver registro ou estiver em branco não salve informando que para salvar é preciso que haja algum dado preenchido no subformulário. Não sei se fui claro na dúvida, mas podem perguntar que eu tento esclarecer melhor
    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]Salvar na condição de ter registro no subformulário Empty Re: [Resolvido]Salvar na condição de ter registro no subformulário

    Mensagem  criquio 6/3/2012, 23:28

    Talvez algo assim:

    If IsNull(Forms!NomeDoForm!NomeDoSubForm.Form!Campo1DoSubform) Or IsNull(Forms!NomeDoForm!NomeDoSubForm.Form!Campo2DoSubform) Then
    MsgBox "Mensagem"
    Else
    Salva
    End If


    .................................................................................
    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
    emacsabino
    Intermediário
    Intermediário


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 190
    Registrado : 29/08/2011

    [Resolvido]Salvar na condição de ter registro no subformulário Empty Re: [Resolvido]Salvar na condição de ter registro no subformulário

    Mensagem  emacsabino 6/3/2012, 23:42

    Grande Críquio, vou só reformular a minha dúvida para ficar melhor, eu quero que na tabela pai só seja salva o registro se na tabela filho tiver pelo menos 1 registro ligado ao registro que tá na tabela pai. Sendo que de Pai para filho é de um para muitos.
    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]Salvar na condição de ter registro no subformulário Empty Re: [Resolvido]Salvar na condição de ter registro no subformulário

    Mensagem  criquio 6/3/2012, 23:49

    Código:
    If DCount("*", "NomeDaSubTabela", "Código=" & Me.Código) < 1 Then
        MsgBox "Sua Mensagem", vbCritical, "Atenção"
    Else
        Salva o esquema
    End If


    .................................................................................
    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
    emacsabino
    Intermediário
    Intermediário


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 190
    Registrado : 29/08/2011

    [Resolvido]Salvar na condição de ter registro no subformulário Empty Re: [Resolvido]Salvar na condição de ter registro no subformulário

    Mensagem  emacsabino 7/3/2012, 01:01

    Valeu críquio deu certo aqui
    avatar
    emacsabino
    Intermediário
    Intermediário


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 190
    Registrado : 29/08/2011

    [Resolvido]Salvar na condição de ter registro no subformulário Empty Re: [Resolvido]Salvar na condição de ter registro no subformulário

    Mensagem  emacsabino 7/3/2012, 01:02

    um 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]Salvar na condição de ter registro no subformulário Empty Re: [Resolvido]Salvar na condição de ter registro no subformulário

    Mensagem  criquio 7/3/2012, 12:26

    Grato pelo retorno. O forum agradece.


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

    Assis
    Assis
    Maximo VIP
    Maximo VIP


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 4772
    Registrado : 06/11/2009

    [Resolvido]Salvar na condição de ter registro no subformulário Empty Re: [Resolvido]Salvar na condição de ter registro no subformulário

    Mensagem  Assis 7/3/2012, 12:34

    Bom dia Criquio

    Pergunto:

    Isto será para aplicar num comando de gravar do formulário pai ?

    If DCount("*", "TabelaFilho", "Código=" & Me.Código) < 1 Then
    MsgBox "Sua Mensagem", vbCritical, "Atenção"
    Else
    Salva o esquema
    End If


    .................................................................................
    *** Só sei que nada sei ***
    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]Salvar na condição de ter registro no subformulário Empty Re: [Resolvido]Salvar na condição de ter registro no subformulário

    Mensagem  criquio 7/3/2012, 12:56

    Olá Assis! Pelo que entendi da dúvida do amigo criador do tópico, minha ideia foi nesse sentido Very Happy


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

    Assis
    Assis
    Maximo VIP
    Maximo VIP


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 4772
    Registrado : 06/11/2009

    [Resolvido]Salvar na condição de ter registro no subformulário Empty Re: [Resolvido]Salvar na condição de ter registro no subformulário

    Mensagem  Assis 7/3/2012, 23:14

    Obrigado Criquio


    .................................................................................
    *** Só sei que nada sei ***

    Conteúdo patrocinado


    [Resolvido]Salvar na condição de ter registro no subformulário Empty Re: [Resolvido]Salvar na condição de ter registro no subformulário

    Mensagem  Conteúdo patrocinado


      Data/hora atual: 29/4/2024, 06:20