[Resolvido]Contar registros em caixa de seleção.

Boa tarde galera.
Tenho um form com subform que contém duas caixas de seleção, uma chamada Selecionado e outra Comprado.
Gostaria de saber como faço para contar somente as caixas Comprado que não foram selecionadas?
Obrigado.

PS: Encontrei este tópico: http://maximoaccess.forumeiros.com/t6278-resolvidocontar-registros-selecionados-de-acordo-com-uma-caixabox-selecionado

Funciona, mas está contando todos os registros da tabela e não somente os seleciondos no subform.

Será que não teria nenhuma alma que pudesse me ajudar a resolver este imbróglio?
Obrigado a todos.

Assim é dificil de advinhar os nomes da tabela, dos campos, do formulario, do subformulario.

Se anexar aqui parte do seu banco, ou nos disser os nomes corretos, torna-se mais simples de o ajudar.

Tá certo Mestre.
Segue exemplo anexo.
Abraços.
Ops! O anexo não entrou.

Access 2010, 90% dos usuários não têm...

Mas você pode inserir uma caixa de texto no rodapé do seu subform e na origem:

=Count([Selecionado]=False)

No formulario é só fazer referencia a essa caixa.

Pois é, gosto muito dele.
Ainda bem que vc têm.
Bom Jpaulo, realmente contou, mas todos os registro do subform, queria que ele contasse somente os registros que ainda não foram comprados, sem marcação.

=Contar([Comprado]=Falso)

Faça o teste assim;

Private Sub Selecionado_AfterUpdate()
DoCmd.RunCommand acCmdSaveRecord
Me.TotalProduto_Novo = DCount("Id_Sub_Orçamentos", "Orçamentos_Sub", "Selecionado = -1 and Id_Sub_Orçamentos=" & Me.Id_Sub_Orçamentos & "")
Me.txtN = DCount("*", "Orçamentos_Sub", "Selecionado = 0 and Id_Sub_Orçamentos=" & Me.Id_Sub_Orçamentos & "")
End Sub

Bom dia JPaulo.
Na verdade a caixa para contar é a Comprado = false.
Modifiquei o código e coloquei no current do form somente a linha abaixo e ficou assim:

Me.TxtN = DCount("*", "Orçamentos_Sub", "Comprado = 0 and Id_Sub_Orçamentos=" & Me.Id_Sub_Orçamentos & "")

Na caixa Selecionado, mantive esta linha:

Me.TotalProduto_Novo = DCount("Id_Sub_Orçamentos", "Orçamentos_Sub", "Selecionado = -1 and Id_Sub_Orçamentos=" & Me.Id_Sub_Orçamentos & "")

Está contando certinho.

Obrigado mais uma vez Mestre JPaulo.
Abraços e Sucesso !

Obrigado pelo retorno o forum agradece.