[Resolvido]Ajuda com Subformulário

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.

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"

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


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

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

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

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

Alexandre,

Só tenho a lhe agradecer.

Abç,

Nazareno