[Resolvido]Adicionar Critério para Combobox Access 2013

Bom dia pessoal!

Sou novo neste forum e tbm iniciante em Access.
Preciso de uma ajuda com duas caixas de combinação, a primeira caixa traz nomes de Solicitantes e a segunda traz o nomes de Solicitados.
Preciso criar um critério onde o um Solicitante não pode escolher o mesmo Solicitado pela segunda vez no mesmo dia e que ele deverá pular para a próxima posição da caixa de combinação Solicitado automaticamente.

Infelizmente não faço ideia de como começar e se alguém puder ajudar ficarei muito grato!  

Se for necessário posso enviar o arquivo.

Obrigado!

Boa tarde, e bem-vindo ao fórum
Não sabe como começar, mas sabe fazer as tabelas e o formulário e não sabe colocar as condições de preenchimento que enuncia?
Disponibilize o que já tem feito

Boa tarde,

Correto, não sei como colocar as condições de preenchimento !

Me desculpe pela demora, tive problemas com a internet.

Obrigado.

Boa noite,
Bd em formato não reconhecido

Boa noite,

Desculpe mas não entendi, o arquivo esta em formato Microsoft Access Database (.accdb) versão 2013.

Salvei uma versão anterior do Access 2002 e 2003.mdb

Segue anexo.

Muito Obrigado!

Boa tarde,
O solicitado pode ser escolhido, no mesmo dia, por solicitante diferente?

Boa tarde!

Ops.. Sim! O solicitado pode ser escolhido, no mesmo dia, por solicitante diferente!

O Solicitante não pode escolher o mesmo Solicitado pela segunda vez no mesmo dia e que ele deverá pular para a próxima posição da caixa de combinação Solicitado automaticamente.

Obrigado!

Nomeie de forma normalizada. Não utilize palavras reservadas do Access, não nomeie com espaços, nomeie controlos com iniciais que indicam o tipo de controlo e não se confundem com o nome do campo, etc.
Nomeie CxcSolocitado, CxcSolicitante, TxtDataComite
Na CxcSolicitado
1 - elimine a origem da linha
2 - No acontecimento AoEntrar coloque
If Len("" & CxcSolicitante) > 0 And Len("" & TxtDataComite) > 0 Then
CxcSolicitado.RowSource = "SELECT Solicitado FROM Solicitado WHERE Solicitado NOT IN(SELECT Solicitado FROM Dados WHERE Solicitante='" & CxcSolicitante & "' and [Data do Comite]=#" & Format(TxtDataComite, "mm-dd-yyyy") & "#)"
Else
CxcSolicitado.RowSource = ""
End If

Boa tarde!

Cliquei no obrigado sem querer..

Vou fazer o teste em casa e depois lhe retorno.

Desculpe!

Muito Obrigado!

Boa noite,

Eu fiz as alterações conforme os criterios informados anteriormente,

Nomeie CxcSolocitado, CxcSolicitante, TxtDataComite

Na CxcSolicitado

1 - elimine a origem da linha

2 - No acontecimento AoEntrar coloque

If Len("" & CxcSolicitante) > 0 And Len("" & TxtDataComite) > 0 Then
CxcSolicitado.RowSource = "SELECT Solicitado FROM Solicitado WHERE Solicitado NOT IN(SELECT Solicitado FROM Dados WHERE Solicitante='" & CxcSolicitante & "' and [Data do Comite]=#" & Format(TxtDataComite, "mm-dd-yyyy") & "#)"
Else
CxcSolicitado.RowSource = ""
End If

-----------------------------------------------------------------------
Não consegui entender direito quando se refere "No acontecimento".
Seria em qual campo do formulario?
Tentei nos 3: CxcSolocitado, CxcSolicitante, TxtDataComite e ele abre 3 janelas com o nome de cada campo.

Estou enviando o anexo novamente pois fica mais facil de visualisar o problema.

Obrigado novamente!

Bom dia,
Não veio o anexo, mas coloque no controlo CxcSolicitado

Boa noite,

Eu fiz as alterações conforme os criterios informados anteriormente,

Nomeie CxcSolocitado, CxcSolicitante, TxtDataComite

Na CxcSolicitado

1 - elimine a origem da linha

2 - No acontecimento AoEntrar coloque

If Len("" & CxcSolicitante) > 0 And Len("" & TxtDataComite) > 0 Then
CxcSolicitado.RowSource = "SELECT Solicitado FROM Solicitado WHERE Solicitado NOT IN(SELECT Solicitado FROM Dados WHERE Solicitante='" & CxcSolicitante & "' and [Data do Comite]=#" & Format(TxtDataComite, "mm-dd-yyyy") & "#)"
Else
CxcSolicitado.RowSource = ""
End If

-----------------------------------------------------------------------

Tentei nos 3: CxcSolocitado, CxcSolicitante, TxtDataComite, ele abre 3 janelas vazias pedindo para informar o nome do Solicitante, Solicitado e Data do Comitê.

Não Consigo enviar o anexo, ele diz que excedi a capacidade.

Não consegui solucionar o problema, me da uma ajudinha por favor.


O Solicitante não pode escolher o mesmo Solicitado pela segunda vez no mesmo dia e ele deverá pular para a próxima posição da CxcSolicitado automaticamente.

O solicitado pode ser escolhido, no mesmo dia, por mais de um solicitante.

Mais uma vez obrigado!

Boa noite,
Veja https://dl.dropboxusercontent.com/u/24017093/MaximoAccess/Comite%20-%20Backup.zip

Alexandre Muito Obrigado!

Ficou Dez!!!!!

Fiquei muito feliz pela ajuda que você me deu!!!!

Espero conseguir retribuir.

Bom dia,
Marque o Resolvido

Bom dia!

Tenho um formulário com 2 caixas de combinação com o seguinte critério:

Private Sub Solicitado_Enter()

If Len("" & CxcSolicitante) > 0 And Len("" & TxtDataComite) > 0 Then

CxcSolicitado.RowSource = "SELECT CxcSolicitado FROM SOLICITADO WHERE CxcSolicitado NOT IN(SELECT CxcSolicitado FROM Dados WHERE CxcSolicitante='" & CxcSolicitante & "' and [Data do Comite]=#" & Format(TxtDataComite, "mm-dd-yyyy") & "#)"

Else
CxcSolicitado.RowSource = ""

End If

End Sub
______________________________________________________________________________________________________________________________

Tive uma grande ajuda do Sr. Alexandre Neves que forneceu este código para que as caixas funcionassem da seguinte maneira:

1) CxcSolicitante não pode escolher o mesmo CxcSolicitado pela segunda vez no mesmo dia, ele deverá pular para a próxima posição da CxcSolicitado automaticamente. (ok)

2) CxcSolicitado pode ser escolhido, no mesmo dia, por mais de um CxcSolicitante. (ok)

3) Agora preciso de uma rotina que esvazie as opções de escolha do CxcSolicitante na CxcSolicitado, exemplo:

CxcSolicitante (A) seleciona o CxcSolicitado (B) em 13/08/2015.
No dia seguinte 14/08/2015 sera o CxcSolicitado (C).
No dia seguinte 15/08/2015 sera o CxcSolicitado (D).
No dia seguinte 16/08/2015 sera o CxcSolicitado (E).
Quando terminar as opções da CxcSolicitado ele poderá permitir que o CxcSolicitante escolha novamente o Cxc Solicitado (B).

Obrigado!

Boa noite,
Fundi os tópicos por se tratar da continuidade da dúvida
Retirei o Resolvido
Vou tentar ajudar

Então,
Quer que ele seleccione apenas o solicitado seguinte ao que seleccionou?
A data é sequencial ou não tem importância?

Alexandre, boa noite!

Agradeço muito pela ajuda.

Bom a intenção é de não permitir que o Solicitante X faça consultas com o mesmo solicitado todos os dias, forçando o Solicitante X a consultar outros analistas (Solicitado) da equipe, então, enquanto não esgotar as opções de escolha da CxcSolicitado, ele continua pulando para a próxima posição até que volte para o primeiro da lista conforme ilustração abaixo:

Quer que ele selecione apenas o solicitado seguinte ao que selecionou?
R: Sim, até que acabe as opções de escolha e volte para primeira posição da fila.

A data é sequencial ou não tem importância?
R: A data é sequencial.

Data          Solicitante    Solicitado
15/ago        X                A
16/ago        X                B
17/ago        X                C
18/ago        X                D
19/ago        X                E
20/ago        X                F
21/ago        X                A


Obrigado mais uma vez!

Bom dia,

Código:

Private Sub CxcSolicitado_Enter()
    Dim strUltimoSolicitado As String, Rst As DAO.Recordset
   
    Set Rst = CurrentDb.OpenRecordset("SELECT Solicitado FROM Solicitado")
    If Len("" & CxcSolicitante) > 0 And Len("" & TxtDataComite) > 0 Then
        strUltimoSolicitado = DLast("Solicitado", "Dados", "Solicitante='" & CxcSolicitante & "'")
        If strUltimoSolicitado = "" Then
            CxcSolicitado = Rst("Solicitado")
        Else
            Do
                If strUltimoSolicitado = Rst("Solicitado") Then
                    If Rst.EOF Then Rst.MoveFirst Else Rst.MoveNext
                    CxcSolicitado = Rst("Solicitado")
                    Exit Do
                End If
                If Rst.EOF Then Rst.MoveFirst Else Rst.MoveNext
            Loop
        End If
    Else
        CxcSolicitado = Rst("Solicitado")
    End If
    Set Rst = Nothing
End Sub

Alexandre, bom dia!

Esta dando um erro na alteração na linha marcada de amarelo abaixo.

E não consigo anexar o arquivo, ele da esta mensagem:

"Não é possível enviar o arquivo : o espaço total de armazenamento foi ultrapassado."


Private Sub CxcSolicitado_Enter()
   Dim strUltimoSolicitado As String, Rst As DAO.Recordset
   
   Set Rst = CurrentDb.OpenRecordset("SELECT Solicitado FROM Solicitado")
   If Len("" & CxcSolicitante) > 0 And Len("" & TxtDataComite) > 0 Then
       strUltimoSolicitado = DLast("Solicitado", "Dados", "Solicitante='" & CxcSolicitante & "'")
       If strUltimoSolicitado = "" Then
           CxcSolicitado = Rst("Solicitado")
       Else
           Do
               If strUltimoSolicitado = Rst("Solicitado") Then
                   If Rst.EOF Then Rst.MoveFirst Else Rst.MoveNext
                   CxcSolicitado = Rst("Solicitado")
                   Exit Do
               End If
               If Rst.EOF Then Rst.MoveFirst Else Rst.MoveNext
           Loop
       End If
   Else
       CxcSolicitado = Rst("Solicitado")
   End If
   Set Rst = Nothing
End Sub

Bom dia,
substitua a linha por
if dcount("*", "Dados", "Solicitante='" & CxcSolicitante & "'")>0 then strUltimoSolicitado = DLast("Solicitado", "Dados", "Solicitante='" & CxcSolicitante & "'")

Alexandre, boa tarde!

Fiz o teste substituindo:

strUltimoSolicitado = DLast("Solicitado", "Dados", "Solicitante='" & CxcSolicitante & "'")

por:

if dcount("*", "Dados", "Solicitante='" & CxcSolicitante & "'")>0 then strUltimoSolicitado = DLast("Solicitado", "Dados", "Solicitante='" & CxcSolicitante & "'")

Quando eu seleciono a caixa de combinação solicitado, ele abre na próxima posição porém não elimina os anteriores que já foram selecionados pelo mesmo solicitante, ele não esta esvaziando a lista da caixa solicitado.

Mais uma vez, obrigado!

Boa tarde,
esqueci-me de lhe dizer, mude a caixa de combinação para "lista de valores"

Alexandre, boa noite!

Ainda não consigo anexar o arquivo pois esta dando espaço total de armazenamento foi ultrapassado, então segue link para download: https://onedrive.live.com/redir?resid=36B1F49F77DA5F6F!324&authkey=!ANPwl6lo-0YLvpI&ithint=file%2czip

Por favor, verifica as alterações pois não consigo identificar o erro!

______________________________________________
Adicionei o NZ para o erro em tempo de execução '94':
Uso de 'Null' inválido.

______________________________________________
Alterei o final:

           Loop
      End If
Else
      CxcSolicitado = Rst("Solicitado")
  End If
  Set Rst = Nothing
______________________________________________
Para:

Loop
       End If
   If CxcSolicitado = Rst("Solicitado") Then
              Set Rst = Nothing
   End If

____________________________________________________________

Segue código completo abaixo:

Dim strUltimoSolicitado As String, Rst As DAO.Recordset
   
   Set Rst = CurrentDb.OpenRecordset("SELECT Solicitado FROM Solicitado")
   If Len("" & CxcSolicitante) > 0 And Len("" & TxtDataComite) > 0 Then
       If DCount("*", "Dados", "Solicitante='" & CxcSolicitante & "'") > 0 Then strUltimoSolicitado = Nz(DLast("Solicitado", "Dados", "Solicitante='" & CxcSolicitante & "'"))
       If strUltimoSolicitado = "" Then CxcSolicitado = Rst("Solicitado")
       Else
           Do
               If strUltimoSolicitado = Rst("Solicitado") Then
                   If Rst.EOF Then Rst.MoveFirst Else Rst.MoveNext
                   CxcSolicitado = Rst("Solicitado")
                   Exit Do
               End If
               If Rst.EOF Then Rst.MoveFirst Else Rst.MoveNext
           Loop
       End If
   If CxcSolicitado = Rst("Solicitado") Then
              Set Rst = Nothing
   End If
________________________________________________________

Ainda não esta funcionando pois quando seleciono a Caixa de Listagem CxcSolicitado ele não traz ninguém da tabela.
Lembrando que na Folha de Propriedades na Aba Dados o Campo Origem da Linha esta Vazio.

Obrigado Mais uma Vez!

Bom dia
Explique todos os pormenores. Que valores introduz, que valores tem na tabela, que valor era esperado, ...

Boa Noite!

1- O Formulario CADASTRO COMITE grava os dados na tabela DADOS.

2- Os campos da tabela são: Comite Numero (tipo numero), Data do Comite (tipo data), Número da PN (tipo numero), Solicitante (tipo texto curto), Solicitado (tipo texto curto), Motivo (tipo texto curto) , Nota - 0 a 5 (tipo numero).

3- Ao abrir o formulario Cadastro ele traz os campos em brancos exceto o campo Comite Numero e a Data do Comite = Data do Sistema(windows).

4- A regra é:

O Solicitante poderá escolher apenas 01 Solicitado de uma lista com 08 pessoas por dia.

Exemplo:

Bom a intenção é de não permitir que o Solicitante X faça consultas com o mesmo Solicitado todos os dias, enquanto não esgotar as opções de escolha da CxcSolicitado, ele continua pulando para a próxima posição até que volte para o primeiro da lista conforme ilustração abaixo:

Quer que ele selecione apenas o solicitado seguinte ao que selecionou?
R: Sim, até que acabe as opções de escolha e volte para primeira posição da fila.

A data é sequencial ou não tem importância?
R: A data é sequencial.

Posição        Data          Solicitante    Solicitado
1                 15/ago        X                (A, B, C, D, E, F, G, H)
2                 16/ago        X                (B, C, D, E, F, G, H)
3                 17/ago        X                (C, D, E, F, G, H)
4                 18/ago        X                (D, E, F, G, H)
5                 19/ago        X                (E, F, G, H)
6                 20/ago        X                (F, G, H)
7                 21/ago        X                (G, H)
8                 22/ago        X                (H
9                 23/ago        X                (A, B, C, D, E, F, G, H)

Boa tarde,
Esclareça a falta de concordância

Quer que ele selecione apenas o solicitado seguinte ao que selecionou?
R: Sim, até que acabe as opções de escolha e volte para primeira posição da fila.

A data é sequencial ou não tem importância?
R: A data é sequencial.

Posição Data Solicitante Solicitado
1 15/ago X (A, B, C, D, E, F, G, H) ---> Porque não é o A? (Quer que ele selecione apenas o solicitado seguinte ao que selecionou)
2 16/ago X (B, C, D, E, F, G, H) ---> Porque não é o B? (Quer que ele selecione apenas o solicitado seguinte ao que selecionou)
3 17/ago X (C, D, E, F, G, H) ---> Porque não é o C? (Quer que ele selecione apenas o solicitado seguinte ao que selecionou)
4 18/ago X (D, E, F, G, H) ---> Porque não é o D? (Quer que ele selecione apenas o solicitado seguinte ao que selecionou)
5 19/ago X (E, F, G, H) ---> Porque não é o E? (Quer que ele selecione apenas o solicitado seguinte ao que selecionou)
6 20/ago X (F, G, H) ---> Porque não é o F? (Quer que ele selecione apenas o solicitado seguinte ao que selecionou)
7 21/ago X (G, H) ---> Porque não é o G? (Quer que ele selecione apenas o solicitado seguinte ao que selecionou)
8 22/ago X (H
9 23/ago X (A, B, C, D, E, F, G, H) ---> Porque não é o A? (Quer que ele selecione apenas o solicitado seguinte ao que selecionou)

Boa tarde!

1 - O Solicitante X seleciona o Solicitado A em 15/ago. Ele pode selecionar qualquer Solicitado dentro da lista, estou pegando o A como exemplo.

2 - O Solicitante X seleciona o Solicitado B em 16/ago. Ele pode selecionar qualquer Solicitado dentro da lista, menos o A, porque o mesmo foi selecionado no dia anterior.

3 - O Solicitante X seleciona o Solicitado C em 17/ago. Ele pode selecionar qualquer Solicitado dentro da lista, menos o A e B, porque foi selecionado nos dias anteriores.

4 - O Solicitante X seleciona o Solicitado D em 18/ago. Ele pode selecionar qualquer Solicitado dentro da lista, menos o A, B e C, porque foi selecionado nos dias anteriores.

5 - O Solicitante X seleciona o Solicitado E em 19/ago. Ele pode selecionar qualquer Solicitado dentro da lista, menos o A, B, C e D, porque foi selecionado nos dias anteriores.

6 - O Solicitante X seleciona o Solicitado F em 20/ago. Ele pode selecionar qualquer Solicitado dentro da lista, menos o A, B, C, D e E, porque foi selecionado nos dias anteriores.

7 - O Solicitante X seleciona o Solicitado G em 21/ago. Ele pode selecionar qualquer Solicitado dentro da lista, menos o A, B, C, D, E, F, porque foi selecionado nos dias anteriores.

8 - O Solicitante X seleciona o Solicitado H em 22/ago. Ele pode selecionar qualquer Solicitado dentro da lista, menos o A, B, C, D, E, F, G, porque foi selecionado nos dias anteriores.

9 - Quando acabam as opções de escolha da lista Solicitado, ele mostra todos para recomeçar a rotina.

Alexandre, peço desculpas pela complicação, não entendo muito de programação, tenho pesquisado mas esta difícil!!

Obrigado novamente!

Boa tarde

Veja se é como eu indico (alterei alguns dados para testar a exigência)
Solicitados: A, B, C, D, E, F e G

1 - O Solicitante X seleciona o Solicitado A em 15/ago. Ele pode selecionar qualquer Solicitado dentro da lista, estou pegando o A como exemplo.

2 - O Solicitante X seleciona o Solicitado C em 16/ago. Ele pode selecionar qualquer Solicitado dentro da lista, menos o A, porque o mesmo foi selecionado no dia anterior.

3 - O Solicitante X seleciona o Solicitado B em 17/ago. Ele pode selecionar qualquer Solicitado dentro da lista, menos o A e C, porque foi selecionado nos dias anteriores.
...

É assim?

Boa tarde!

É isso mesmo

Boa noite,
Veja aqui

Alexandre, boa noite!

Ficou 10!!!!

Deve ter dado um trabalhão para desenvolver, ainda estou tentando entender o código, mas isso é comigo!

Muito obrigado!

Você é 10!!!!