Pergunta : Subform de filtração do combobox múltiplo na opinião da folha de dados

Eu wrestling com este para alguns dias onde now.

I têm um formulário principal com uma origem de dados de um tbl que contem o número de cliente da informação do cliente…, nome do gerente, etc.  Neste formulário eu tenho um subform na opinião da folha de dados, que indica todos os recursos atribuídos ao cliente.  Haverá eventualmente 200 ou assim que grava no tbl dos recursos, e eu quis ter a informação rapidamente sortable através dos comboboxes no formulário principal acima dos campos respetivos dos subforms.  Eu estou indicando somente quatro campos que eu gostaria de filtrar perto neste formulário principal.  São (Asset_Type, rede, quarto e Primary_User). o objetivo do

The aqui é ter na carga que principal do formulário todos os registros indicaram no subform.  Quando um dos comboboxes é atualizado, eu gostaria d de filtrar os registros no subform para combinar.  Eu estou tendo edições começ apenas que para trabalhar neste momento. o

To adicionar à complexidade, mim gostaria dos comboboxes restantes de adicionar filtros de continuação porque são updated.

Example: Quando o usuário atualiza o cmbType = portátil, simplesmente os portáteis estariam indicados, a seguir se o cmbPrimary_User é atualização à corça de John, eu gostaria de ver somente os portáteis que pertencem à corça de John e assim que on.

I têm procurarado sobre aqui por alguns dias e vários exemplos diferentes de tentativa da codificação.  Eu não sou muito versed com cordas do SQL, e não tenho trabalhado com acesso por alguns anos agora.  Meu VBA é áspero no melhor dos casos e eu sei que a EE é o melhor lugar a girar para o bom conselho contínuo e o

If que da amostra code.

Thanks adiantado. você gostaria de ver que o que eu me tenho até agora seria mais do que feliz emitir info.
class= do

Resposta : Subform de filtração do combobox múltiplo na opinião da folha de dados

A maneira que a mais simples eu sei é construir uma função que possa construir sua corda do filtro, e chama então essa função quando um de seus controles dos critérios de busca é atualizado. Por exemplo:

Função BuildSearch ()

sFilter não ofuscante como a corda

Se "" de Nz (Me.cboDeviceType, "" <> ) então
  sFilter = “DeviceType=” & Me.cboDeviceType
Terminar se

Se "" de Nz (Me.cboUserName, "" <> ) então
  Se Len (sFilter) > 0 então sFilter = sFilter & “E”
  sFilter = sFilter & “UserName='" & Me.cboUserName & “'”
Terminar se

Me.YourSubformControl.Form.filter = sFilter
Me.YourSubformControl.Form.FilterOn = retificam

Função do fim

Agora apenas chamar essa função de seus controles:

Sub o cboDeviceType_AfterUpdate ()
  BuildSearch
Submarino da extremidade

Algumas pontas:

As cordas do filtro não são nada SQL mais do que válido ONDE cláusulas sem a palavra “ONDE”, assim que você deve seguir as mesmas réguas:

Encerrar valores do texto em únicas ou citações dobro: o “UserName='" & Me.cboUserName & “'” são cercados por únicas citações

Encerrar valores da data nas insígnias: “DateLoaned=#” & Me.txDateLoaned & “#”

Certificar-se de que você refere corretamente seu controle de Subform. Este é o CONTROLE em seu formulário principal que hospeda o formulário que você se está usando como um subform. Pode ou não pode ser nomeado o mesmos como o formulário você está usando como um subform (isto é da “o objeto fonte”), seja assim cuidadoso ao referir esse controle.