[Resolvido]Restringir valores em consulta

Amigos estou com um problema em uma consulta e resolvi postar o BD com um formulário explicativo do problema.

Grato pela atenção de todos.

   Consulte aqui     

Minha Microsoft Cristal Ball não está funcionando hoje...    

Qual seria a dúvida Amigão?
hehehe


Cumprimentos.

Piloto, assim que fica difícil né!!!       

Segue abaixo:

A consulta qryContarUniforme tem que originar um relatório onde será impresso o nome da peça, a medida e qtos alunos irão usá-la.
Mas ao organizar os dados, todos os alunos para os quais havia registrado o uniforme, a consulta apresentou todas as peças e todas as medidas para estes alunos.
Por exemplo o Jionatan, marquei as peças dele mas a consulta mostrou todas as peças do banco de dados com suas medidas e não apenas as que eu indiquei.

Creio que este problema está na forma como as peças foram cadastradas nas tabelas peças e medidas.

Na primeira mensagem tem o banco de dados.

Dá uma luz aí.

O Link apresenta erro.

Cumpriementos.

Meu DropBox está com "pobrema"!

Posto à noite corrigido

Até +

Fala amigão!

Pega no link do post abaixo, na mensagem número 7.

O arquivo é o mesmo, mas as dúvidas são diferentes.

http://maximoaccess.forumeiros.com/t18047-sincronizar-combo#134487

Olá amigos.       
Problema resolvido com o link

Grato!!

       

Amigos, novidades!!!

           

Vamos la João..
Recapitule para mim.. em qual mensagem baixo o exemplo..
O que deseja que se faça?

Cumprimentos.

 Fala Piloto!!   

Segue novo link.
A mensagem está no formulário que se abre junto com o BD, neste também tem o acesso à consulta.

Grato pelo retorno

Baixe aqui

Boas João, para o primeiro problema:
Basta adicionar o requery na combo ao final do Código

'By JPaulo ® Maximo Access
Dim I As Long
Dim rs As DAO.Recordset
Dim rsf As Recordset, frm As Form
Set frm = Me
Set rsf = Me.RecordsetClone

'Este evita ter mais de um produto para o mesmo aluno.
If Me.CodPeca <> 0 Then
   rsf.FindFirst "[CodPeca]= " & Me!CodPeca
   If Not rsf.NoMatch Then
      frm.Undo
      
      MsgBox "Você já adicionou esse peça, tente outra", vbCritical, "Sistema Educacional"
      Exit Sub
   End If
End If
'----------

'----Verifica o Sexo do individuo

If Me.Parent.ListaNomeAluno.Column(3) = "M" And Me.CodPeca = 15 Then ' Maiõ"

   MsgBox "Menino não veste roupa de menina, a não ser se for boiola, mas isso aqui não está previsto", vbCritical, "Cuidado"
   frm.Undo
   Exit Sub
End If


Set rs = CurrentDb.OpenRecordset("SELECT * FROM tblDistribuicaoDoUniforme WHERE RGM=" & Me!RGM.Value, dbOpenDynaset)
Do While Not rs.EOF
    For I = 0 To rs.Fields.Count - 1
            If rs("CodPeca").Value = Me!CodPeca.Value Then
               MsgBox "A peça que você está tentando inserir já se encontra registrada para este aluno. Indique outra!", vbCritical, "Sistema Educacional"
               Exit Sub
           Else
               'requery para atualizar a combo
               Me.CombMedida.Requery
               Me.CombMedida.SetFocus
               
            End If
    Next
    rs.MoveNext
Loop
Me.CombMedida.Requery
Me.CombMedida.SetFocus
Me.CombMedida.Dropdown
rs.Close
Set rs = Nothing

Veja se resolve e passamos ao segundo

Para o segundo tente assim na consulta:

SELECT tblAlunos.RGM, tblAlunos.NomeAluno, tblAlunos.Sexo, tblAlunos.AnoAtual, tblAlunos.Transferido, tblPecaDoUniforme.NomePeca, Count(tblPecaDoUniforme.CodPeca) AS ContarDeCodPeca
FROM (tblPecaDoUniforme INNER JOIN (tblAlunos INNER JOIN tblDistribuicaoDoUniforme ON tblAlunos.RGM = tblDistribuicaoDoUniforme.RGM) ON tblPecaDoUniforme.CodPeca = tblDistribuicaoDoUniforme.CodPeca) INNER JOIN tblMedidaDoUniforme ON tblPecaDoUniforme.CodPeca = tblMedidaDoUniforme.CodPeca
GROUP BY tblAlunos.RGM, tblAlunos.NomeAluno, tblAlunos.Sexo, tblAlunos.AnoAtual, tblAlunos.Transferido, tblPecaDoUniforme.NomePeca
HAVING (((tblAlunos.AnoAtual)<>"egresso") AND ((tblAlunos.Transferido)="N"));

Cumprimentos.

Grande Piloto, grato pelo seu retorno.   

Os dois recursos funcionaram bem!

Na questão da consulta, tem um detalhe:
Qdo atribuída uma peça de uniforme para um aluno a consulta tem que contar somente esta peça, mas está contando todas as peças.

No exemplo que enviou o aluno Itacir tem registrado apenas um boné, uma calça jeans e um par de chinelos, entre outras peças.
No resultado da consulta aparecem 1 boné (porque ele é tamanho único), 13 calças jeans (porque são 13 medidas diferentes para as calças jeans) e 11 chinelos (porque são 11 medidas diferentes para o chinelo).

O que preciso é que a consulta conte apenas a peça e seu respectivo número para os alunos aos quais elas foram atribuídas, no caso do Itacir ficaria da seguinte forma:

Peça ------------------ Medida ------------ Qde

Boné ------------------Único ----------------01
Calça Jeans -------- Número 14 -------- 01
Chinelo -------------- Número 43/44 ---- 01

Dessa forma o sistema irá contar qtos alunos usam determinada peça e sua respectiva medida

Ao final, preciso de um relatório que indique, por exemplo:

Peça ----------------- Medida ------------ Nº de alunos
Calça Jeans
---------------------------- 14 ----------------------35
---------------------------- 34 ----------------------45
-----------------------------36 ----------------------28
---------------------------- 38 ----------------------55
Chinelo
---------------------------- 35/36 ------------------35
---------------------------- 37/38 ------------------45
-----------------------------39/40 ------------------28
---------------------------- 41/42 ------------------55

Seguem os Smileys da minha filha
                      

Vamos la...
Tive que modificar nome dos campos de Chaves estrangeiras.

Quando se trabalha com consulta baseadas em mais de uma tabela...Se em duas ou mais tabelas tiver campos com o mesmo nome, a consulta abrirá o bico... não conseguirá distiguir de que tabela é aquele campo...
E quanto utiliza-se uma expressão com uma das funções D... emitira a mensagem que o campo ha que se refere é ambíguo.. ou seja, inerente a mais de uma tabela..

Veja o relacionamento da consulta

https://dl.dropboxusercontent.com/u/26441349/Jo%C3%A3oRicardo.rar

Cumprimentos.

Amigão o link tá dando erro (404)

Não consegui abrir. Vou tentar amanhã.

Agora deu certo. Em breve retorno pra ti.
Obrigado

Pode baixar..

Cumprimentos.

As tabelas do relacionamento, além daquelas do banco de dados, são tabelas do sistema?
Vou ter que inseri-las no bd?

No frmDistribuicaoDoUnfiorme, ao selecionar um aluno, o subform carrega todos os RGM daqueles alunos para os quais eu registrei peças do uniforme. Parece que houve uma inversão, antes todas as peças do banco de dados apareciam para todos os alunos na consulta. Agora aparecem todos os alunos para as peças do uniforme no subformulário.

Tá ficando sinistro !!!

Ta não... E porque alterei o nome dos campos de relacionamento.. estes não podem ser iguais...

Abra o seu relacionamento e em seguida abra o meu e compare.

Agora, você terá que rever todos os relacionamentos entre forms e sub forms... Sinto muito amigão.. más isso é porque eles não estavam da maneira correta.

Cumpriementos

Acho que tô frito!!!!         

Eu relaciono as tabelas e transformo o lado 1 em formulário e o lado muitos em subformulário.

Noutra dúvida neste BD um amigo mencionou a mesma coisa - relacionamento entre form e subform. Sempre pensei em campos pais (chave primária) e campos filho (chave estrangeira), mas nunca em relacionamento entre form e subform.

Vc pode me esclarecer algo mais sobre relacionamento entre formulários e subformulários?


Até +

Quando você cria um sub formulário e o arrasta para dentro de um formulário ele já assume o relacionamento entre as tabelas existentes..

Como eu alterei os campos esta relação se perdeu.
Para alterar o relacionamento do formulário com o sub formulário abra o formulário em modo design, clique no sub formulário, vá nas propriedades do sub formulário, aba dados, Vincular campos mestres e Vincular campos filhos, coloque ali o mesmo relacionamento existente nas tabelas que os compõe.

Pois é amigão, os relacionamentos são a parte primordial de um sistema, é impossível prosseguir com um sistema quando teus relacionamentos estão com algum tipo de erro.
Corrija assim como fiz e também aos relacionamentos entre forms e sub forms.


Cumprimentos.

Ok!
Agora deu certo.
Obrigado meu amigo por me ajudar também nessa empreitada!

Até +

O Fórum agradece o Retorno.