[Resolvido]Contar Dados Tabela

Boas. Sou novato nestas progrmações de Access - VBA, mas tou precisar de fazer programa aqui emprego.
Estava aqui a querer fazer um simples teste no Access VBA e estou com um problema que não consigo ver a solução ... alguém que perceba sabe a solução:

O problema é apenas um problema de teste .. mas mesmo simples esta-me a dar um erro qualquer parvo.

então é assim

Tenho Tabela de nome ALUNOS em que tem colunas de Nome e Idade de pessoas.

Queria que me fornecesse o numero de pessoas de X idade que estão na tabela.


O código que coloquei foi:


###############################

Option Compare Database
Dim db As DAO.Database
Dim rs As DAO.Recordset
Dim numreg As Integer


Private Sub Comando0_Click()
x = 4 ' Tou partir principio que quero as com 4 anos

Set db = CurrentDb()
Set rs = db.OpenRecordset("SELECT * From Alunos Where Idade = '" & x & "'")

numreg = rs.RecordCount
MsgBox "NÚMERO DE REGISTROS DA TABELA PEDIDOS: " & numreg

End Sub

###################
O que é que está aqui mal ? O erro que dá é Run-time error 3464 / Tipo dados incorrecto na expressão de critérios.


Obrigado vossa ajuda

Tente assim:

MsgBox DCount("*", "NomeDaTabela", "Idade=" & Me!txtIdade)

No caso acima, Idade seria o campo da tabela aonde a idade está armazenada e txtIdade seria o campo do formulário aonde você digita a idade que quer saber. Se quiser que a quantidade seja retornada em um campo ao invés de uma message box, troque por:

Me.NomeCampo = DCount("*", "NomeDaTabela", "Idade=" & Me!txtIdade)

Obrigado pela ajuda ... a segunda opção funcionou na perfeição.

No caso de querer efectuar mais filtros ... ou seja, p.e.:

Se quiseres saber quantas pessoas por exemplo com nome 'Paulo' com idade maior ou igual 10 anos existem na tabela como posso fazer?

Me.NomeCampo = DCount("*", "NomeDaTabela", "Idade>=" & Me!txtIdade , "Nome=" & Me!txtNome )

Obrigado ajuda.

PS: e desculpem se calhar tar a fazer perguntas pouco basicas!!

Podes tentar assim:

Me.NomeCampo = DCount("*", "NomeDaTabela", "Idade=" & Me!txtIdade & " And "Nome='" & Me!txtNome & "'")

Observe que campos tipo número são delimitados por aspas duplas e campos tipo texto são delimitados por aspas simples e duplas.

Obrigado ... funcionou, apenas tive que fazer modificação para não dar erro:


Em vez de:

Me.NomeCampo = DCount("*", "NomeDaTabela", "Idade=" & Me!txtIdade & " And "Nome='" & Me!txtNome & "'")

passou a ficar assim:

Me.NomeCampo = DCount("*", "NomeDaTabela", "Idade=" & Me!txtIdade & " And Nome='" & Me!txtNome & "'")

(a unica diferença é as aspas entre o And e Nome. De resto 5 estrelas

Obrigado

É isso amigo. O importante é que você encontrou aonde estava o erro e não ficou esperando que disséssemos. Muito bem.
De resto, só faltou clicar no botão Resolvido.
Abraço.

... eu também pensava que estava resolvido ...

Toda a implementação no programa original foi 5 estrela, tirando uma pequena particularidade.

Um dos filtros que tenho executar é a uma data. Com filtros de string e numero funciona bem. Se um dos filtros for Data deixa de funcionar .

Para campos Data/Hora, tente assim:

... "Data=#" & Me!txtData & "#"

Resolvido ...Obrigadão