Ajuda - Filtrar dados e exibi-los em Data Report

[Bellebs]

Olá, boa noite.

Estou com um problema em uma linha de código no meu projeto em vb; esse código fica em um item do menu.

o código é esse:

Private Sub mnulistindalu_Click()
Dim aluno As String
aluno = InputBox("Informe o Nome:", "Impressão Individual de Alunos.", "")
If aluno <> "" Then
  de.rsalunos.Filter = "nome =" & "aluno"
  drlistaluind.Show vbModal  
  de.rsalunos.Filter = "aluno <> -1"
End If
End Sub

A linha que dá o erro é essa:

de.rsalunos.Filter = "nome =" & "aluno"

O erro é esse:

Run-time error '3001'

Os argumentos são incorretos, estão fora do intervalo aceitável ou estão em conflito.

O banco de dados ligado ao projeto é feito em Access 2002 (XP) e o Visual Basic é versão 6.

Obs.: Esse código chama uma caixa de diálogo para buscas por nome (a caixa de diálogo da busca funciona), onde irá abrir um Data Report com os dados do nome buscado; esse código funciona quando é busca por número (com Numeração automática em um banco de dados em Access), porém não funciona nesse caso de busca por nome.

Desde já agradeço ^^

[Danleonhart]

Seja bem vinda Bellebs ! ;)

Bem, supondo que o nome do campo no banco de dados está configurado com Tipo "Texto", faça assim na linha que dá o erro:

de.rsalunos.Filter = "nome='" & aluno & "'"

Estou usando a lógica viu :D, pois prefiro fazer filtros utilizando script SQL (SELECT WHERE, AND, BETWEEN e outros...)

Se der erro, avisa novamente !

[Bellebs]

Olá Danleonhart; muito obrigada *--* funcionou certinho, obrigada mesmo *--*

Só uma coisa, é que agora tá dando erro quando fecha o Data Report;

O erro é na linha:

de.rsalunos.Filter = "aluno <> -1"

E a mensagem de erro é essa:

Run-time error '3265'

O item não pode ser encontrado na coleção correspondente ao nome ou ao ordinal solicitado.

Obrigada ^^

[Danleonhart]

Bellebs...

Seu código está estranho...

o que é "aluno" ??? é um campo da tabela ???

o que você deseja fazer ???

de.rsalunos.Filter = aluno <> -1

esta linha apenas fica complicado de dizer algo mais concreto :(

Edited November 13, 2011 by Danleonhart

[Bellebs]

hum... entendi; obrigada mais uma vez ^^

mas ai deu erro na mesma linha, porém o erro é: "Type mismatch" :s então tirei a linha e funcionou ^^

ahh, e "aluno" é a variável para busca por "nome" (que é o campo da tabela)

Muito obrigada pela ajuda ^_^

Edited November 13, 2011 by Bellebs

[Danleonhart]

o erro "Type mismatch" dá quando os tipos de dados comparados não são compatíveis...ou seja, são diferentes...

talves você estivesse comparando um Tipo String com um Tipo Integer ou outro...

Valeu !

[Bellebs]

ahhhh, sim, entendi ^^

Muito obrigada pela ajuda e explicação ^^

abraços.