MaximoAccess

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

Obrigado

Administração do MaximoAccess

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


    [Resolvido]Ajuda com Subformulário

    avatar
    NGCosta
    Novato
    Novato

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 18
    Registrado : 18/06/2018

    [Resolvido]Ajuda com Subformulário Empty [Resolvido]Ajuda com Subformulário

    Mensagem  NGCosta em 19/3/2019, 00:42

    Boa noite.

    Novamente precisando de ajuda.

    No meu projeto tenho um dos formulários (FrmEvento) para cadastrar os clientes que iram participar do evento em uma determinada data, salvando-os na TbEvento, porém nunca a mesma data poderá ser cadastrada para o mesmo cliente.
    Nesse formulário incluí um subformulário (SubFrmTbCadCliente) mostrando todos os clientes cadastrados na (TbCadCliente). Seleciono um cliente e escolho a data. É verificado se o cliente já está cadastrado naquela data e caso negativo será salvo na TbEvento. Até aqui tudo funcionando, porém pensei em fazer de outra forma, mas não estou conseguindo.

    Gostaria que o subformulário, antes de exibir os dados, verificasse se já existe cliente com data na escolhida na (TbEvento), exibindo assim, só os que ainda não estão cadastrados com data. Visualmente ficará melhor e mais prático para se cadastrar.

    Estou anexando o arquivo para ficar mais fácil de entenderem e quem sabe modificá-lo.

    Obs.: Os eventos só ocorrem aos domingos durante todo o ano.

    Desde de já agradeço a ajuda.
    Anexos
    [Resolvido]Ajuda com Subformulário AttachmentCadastroTesteNovo2.zip
    Você não tem permissão para fazer download dos arquivos anexados.
    (106 Kb) Baixado 5 vez(es)
    Silvio
    Silvio
    Developer
    Developer

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 4352
    Registrado : 20/04/2011

    [Resolvido]Ajuda com Subformulário Empty Re: [Resolvido]Ajuda com Subformulário

    Mensagem  Silvio em 19/3/2019, 19:58

    Boa tarde..

    Troque o Dlookup pelo DFirst.

    If (Not IsNull(DFirst("[Nome]", "TbEvento", "[Nome] & [Data] LIKE'" & Forms!FrmEvento!SubFrmTbCadCliente!TextNome & Forms!FrmEvento!TextData & "'"))) Then
    MsgBox "Escolha outra data! Esse cliente já foi cadastrado para o evento!", vbInformation, "Evento"


    .................................................................................
    Caso tenha resolvido a tua duvida, coloque o tópico como resolvido.
    www.maximoaccess.com/t860-resolucao-de-topicos

    "Quase tudo é possível quando se tem determinação e força de vontade. Não desista tão rápido."
    Alexandre Neves
    Alexandre Neves
    Moderador Global
    Moderador Global

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 7249
    Registrado : 05/11/2009

    [Resolvido]Ajuda com Subformulário Empty Re: [Resolvido]Ajuda com Subformulário

    Mensagem  Alexandre Neves em 19/3/2019, 20:14

    Boa noite,
    Coloque
    Código:
    Private Sub TextData_Change()
        ''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
        '  código criado por Alexandre Neves, do Fórum MaximoAccess  '
        '    utilize o código livremente mas mantenha os créditos    '
        ''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
        Dim strFilter As String
           
        If IsDate(TextData.Text) = False Then Exit Sub
        Me.Refresh
       
        strFilter = "Nome NOT IN(SELECT Nome FROM TbEvento WHERE Data=#" & Format(TextData, "mm-dd-yyyy") & "#)"
        Me!SubFrmTbCadCliente.Form.Filter = strFilter
        Me!SubFrmTbCadCliente.Form.FilterOn = True
    End Sub


    .................................................................................
    Access 2010. Mande bd que dê para testar (indique a versão). Não peça para fazer o que já tem feito. Dê todos os detalhes.
    Não coloquem entraves como senhas, esconder controlos, etc. Disponibilizem o mais limpo possível
    Só respondo a mensagens privadas, se forem de assunto privado; às outras não respondo.
    Quem trabalha e mata a fome não come o pão de ninguém; mas quem não trabalha e come, come sempre o pão de alguém. António Aleixo
    avatar
    NGCosta
    Novato
    Novato

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 18
    Registrado : 18/06/2018

    [Resolvido]Ajuda com Subformulário Empty Re: [Resolvido]Ajuda com Subformulário

    Mensagem  NGCosta em 19/3/2019, 22:49

    Alexandre Neves, boa noite.

    Muito obrigado pela ajuda.

    Seu código funcionou muitíssimo bem, porém para ficar perfeito só precisaria limpar do subformulário o cliente que acabou de ser cadastrado. Da forma que está funcionando, preciso alterar a data e voltar à mesma data para que isso ocorra e então, continuar cadastrando os clientes naquele evento.

    No aguardo,

    Nazareno Costa


    Aproveito também para agradecer ao Silvio, porém a substituição sugerida manteria o projeto da forma que já estava. Abçs
    Alexandre Neves
    Alexandre Neves
    Moderador Global
    Moderador Global

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 7249
    Registrado : 05/11/2009

    [Resolvido]Ajuda com Subformulário Empty Re: [Resolvido]Ajuda com Subformulário

    Mensagem  Alexandre Neves em 20/3/2019, 13:32

    Boa tarde
    Não entendi o que pretende. Dê todos os detalhes


    .................................................................................
    Access 2010. Mande bd que dê para testar (indique a versão). Não peça para fazer o que já tem feito. Dê todos os detalhes.
    Não coloquem entraves como senhas, esconder controlos, etc. Disponibilizem o mais limpo possível
    Só respondo a mensagens privadas, se forem de assunto privado; às outras não respondo.
    Quem trabalha e mata a fome não come o pão de ninguém; mas quem não trabalha e come, come sempre o pão de alguém. António Aleixo
    avatar
    NGCosta
    Novato
    Novato

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 18
    Registrado : 18/06/2018

    [Resolvido]Ajuda com Subformulário Empty Re: [Resolvido]Ajuda com Subformulário

    Mensagem  NGCosta em 20/3/2019, 15:46

    Boa tarde,

    Como havia comentado, o código funcionou e os clientes já cadastrados em uma determinada data não são mais mostrados no subformulário.

    Exemplificando a nova solicitação:
    Ao abrir formulário para cadastrar clientes no evento do dia 24/03/2019, o subformulário mostra todos os clientes, pois até então não existe nenhum cliente cadastrado para essa data.
    Gostaria que ao selecionar o cliente e clicar no botão Salvar Evento, o subformulário fosse atualizado e o cliente que acabou de ser salvo não ficasse mais visível e assim, continuar cadastrando os demais clientes.

    No aguardo,

    Nazareno Costa


    Alexandre, editei a msg para informar que acabei de conseguir resolver a questão acima, simplesmente colocando um "requery" para atualizar o subformulário após salvar os dados do cliente. Ficou exatamente como eu queria.

    Mas uma vez quero lhe agradecer pela atenção e ajuda. Sem o seu código ainda estaria queimando neurônios, kkkk

    Um abraço,

    Nazareno Costa
    Alexandre Neves
    Alexandre Neves
    Moderador Global
    Moderador Global

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 7249
    Registrado : 05/11/2009

    [Resolvido]Ajuda com Subformulário Empty Re: [Resolvido]Ajuda com Subformulário

    Mensagem  Alexandre Neves em 23/3/2019, 20:19

    Boa noite
    Se tem a dúvida resolvida, marque o botão "Resolvido"


    .................................................................................
    Access 2010. Mande bd que dê para testar (indique a versão). Não peça para fazer o que já tem feito. Dê todos os detalhes.
    Não coloquem entraves como senhas, esconder controlos, etc. Disponibilizem o mais limpo possível
    Só respondo a mensagens privadas, se forem de assunto privado; às outras não respondo.
    Quem trabalha e mata a fome não come o pão de ninguém; mas quem não trabalha e come, come sempre o pão de alguém. António Aleixo
    avatar
    NGCosta
    Novato
    Novato

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 18
    Registrado : 18/06/2018

    [Resolvido]Ajuda com Subformulário Empty Re: [Resolvido]Ajuda com Subformulário

    Mensagem  NGCosta em 25/3/2019, 15:13

    Alexandre,

    Só tenho a lhe agradecer.

    Abç,

    Nazareno

    Conteúdo patrocinado

    [Resolvido]Ajuda com Subformulário Empty Re: [Resolvido]Ajuda com Subformulário

    Mensagem  Conteúdo patrocinado


      Data/hora atual: 22/5/2019, 02:15