[Resolvido]Problema com Instrução SQL com valor do Listbox

Boa tarde, preciso de ajuda.
Sou novo no forum e venho aprendendo a programar em Access meu conhecimento não é grande.
É o seguinte.
Possuo um Formulário que contém 2 Listbox
1 - Bimestre - Setado a tabela (DIARIO) valores de seleção 1,2,3,4.
2 - Alunos - Setado a tabela (ALUNOS) valores de seleção nones dos alunos

Criei um SQL que é executado quando seleciono o nome do aluno na Listbox "2".

Estou tentando nesta consulta sql, buscar a nota do bimestre do aluno cujo nome for igual ao selecionado na Listbox "2".
Estou tendo erro de Sintaxe.

SQL que estou utilizando:

Dim db As Database
Dim tb As Recordset
Dim strSQL As String
Set db = OpenDatabase("C:\GET_COL\GET_COL.accdb"
strSQL = "SELECT DIARIO.NOTBIM_DIARIO, DIARIO.NOMEALUNO_DIARIO FROM DIARIO WHERE (((DIARIO.BIMESTRE_DIARIO) = '2')) AND ((DIARIO.NOMEALUNO_DIARIO) = " '&[Form]![Diário_Escolar]![Alunos].Text"'")));"
Set tb = db.OpenRecordset(strSQL, dbOpenDynaset)
Me.ACU_NOTA.SetFocus
Me.ACU_NOTA.Text = tb!NOTBIM_DIARIO
tb.Close
Set db = Nothing
End Sub

Se deixo desta forma funciona normal a caixa de texto recebe o valor.
Dim db As Database
Dim tb As Recordset
Dim strSQL As String
Set db = OpenDatabase("C:\GET_COL\GET_COL.accdb"
strSQL = "SELECT DIARIO.NOTBIM_DIARIO, DIARIO.NOMEALUNO_DIARIO FROM DIARIO WHERE (((DIARIO.BIMESTRE_DIARIO) = '2'))

Porém ao buscar o nome do aluno selecionado na Listbox 2 da o erro.
Por favor estou atrasado para entrega este projeto.
E obrigado.

Boa noite, cosmedaniel, e bem-vindo ao fórum
Antes de mais, leia as regras do fórum, neste caso leia duas vezes o ponto 8
http://maximoaccess.forumeiros.com/t48-regras-do-forum

Não entendi o que tem nem o que precisa

Boa noite, me desculpe estarei atento as regras.
Estou precisando que ao selecionar um nome na List box, seja executa a consulta sql
que retorne o valor da nota do bimestre do aluno selecionado na list box.
Porém a consulta que criei usando o que aprendi aqui no fórum esta dando erro de sintaxe quando comparo
o nome do aluno selecionado na list box com os alunos cadastrados na tabela.

Amigo, como um de nosso moderadores ja o adivertiu, recomendo-lhe a editar sua primeira mensagem para proceguirmos com este tópico. Retire o urgente... Depois é interessante que nos informe como é feita essa iltragem, ou até melhor, poste o banco ai para analise.

Uso um list box para buscar os nomes dos alunos e nele quero executar a consulta ao alterar porém minha consulta sql está retornando erro de sintaxe, não consigo determinar o valor selecionado na list box alunos como parâmetro para a consulta.
Não estou conseguindo mandar o arquivo
o que estou precisando mesmo e ajuda para saber onde está o erro de sintaxe nesta minha consulta sql

Me.Ano.Value = Me.Alunos.Column(1)
Me.Turma.Value = Me.Alunos.Column(2)
Dim db As Database
Dim tb As Recordset
Dim strSQL As String
Set db = OpenDatabase("C:\GET_COL\GET_COL.accdb")
strSQL = "SELECT DIARIO.NOTBIM_DIARIO, DIARIO.NOMEALUNO_DIARIO FROM DIARIO WHERE (((DIARIO.BIMESTRE_DIARIO) = '2')) AND ((DIARIO.NOMEALUNO_DIARIO) = " '& [Me.Texto420].Text & "'")));" 'Seu eu retiro esta parte a consulta não da erro.
Set tb = db.OpenRecordset(strSQL, dbOpenDynaset)
Me.ACU_NOTA.SetFocus
Me.ACU_NOTA.Text = tb!NOTBIM_DIARIO
tb.Close
Set db = Nothing

Teste:

strSQL = "SELECT DIARIO.NOTBIM_DIARIO, DIARIO.NOMEALUNO_DIARIO FROM DIARIO WHERE (((DIARIO.BIMESTRE_DIARIO) = '2')) AND ((DIARIO.NOMEALUNO_DIARIO) = " '& Me.Texto420.Text & "'")));"

Marcelo continua dando o mesmo erro.

Amigo, poste seu aplicativo, informe os controles e objetos envolvidos, assim, veremos exatamente do que estamos falando.

Obrigado segue o arquivo.
Controles envolvidos.
List Box: Bimestre - Seleciona o bimestre que está sendo cadastrado.
List Box: Alunos - Seleciona o nome do alunos para cadastro.

A consulta sql deve ser executada no evento ao alterar da list box alunos, tendo como parâmetro o bimestre selecionado
e o nome do alunos nas list box.

O arquivo não veio. Compacte-o em zip e anexe novamente.

Esta em formato .rar
Obrigado.

Amigo, o que você cha de de list box é a combo box? Pois não há nenhuma listbox nos formulários. Além de não haver nenhum controle com nome Bimestre...
Poderia explicar melhor, pois agora fiquei muito confuso com seu projeto...

Marcelo me desculpe pela confuzão.
Equeci de mencionar que o nome do rótulo está como Bimestre mas a cobo box de controle que
esta com o nome de Combinação134 eu esqueci de renomear.

Não está faltando uma tabela alunos?
Ou você está armazenando tudo na mesma tabela?
Seu aplicativo está com mais 30 mb, compact e repare ele.

Voce quer filtrar a lista do diário? Qual o objetivo final desse formulário?

Marcelo, está faltando sim, retirei para pode conseguir mandar.
Olha o objetivo deste formulário e cadastrar um diario dos alunos.
Neste diário será controlado, faltas e notas referente ao 1, 2, 3 e 4 Bimestre.

Minha dificuldade está sendo:
Após selecionar o Bimestre 1,2,3 ou 4 - Combo box - Combinação134.
No evento Ao Alterar do Combo box Alunos será executado a minha consulta SQL que enviei e está apresentando erro de sintaxe.

Estou tentando buscar a nota do bimestre anterior ao bimestre cadastrao.

Repare que na minha consulta sql existe duas condições 1- valor que e fixo 1,2,3 ou 4 referente ao bimestre, 2- seria o nome selecionado no combo box ALUNOS, que está dando erro de sintaxe.
Obrigado.

Amigos, estudando maus um pouco consegui resolver parte do problema com a ajuda de vocês.
Agora minha instrução sql busca o nome na combo box certinho, porém ainda dá erro de sintaxe.
Onde estou errando agora?
Segue código.

Dim db As Database
Dim tb As Recordset
Dim strSQL As String
Set db = OpenDatabase("C:\GET_COL\GET_COL.accdb")
strSQL = "SELECT DIARIO.NOTBIM_DIARIO, DIARIO.NOMEALUNO_DIARIO, DIARIO.BIMESTRE_DIARIO FROM (DIARIO)" _
& "WHERE (((DIARIO.BIMESTRE_DIARIO) = '2' )" _
& " AND ((DIARIO.NOMEALUNO_DIARIO) = " & [Forms]![Diário_Escolar]![Alunos] & ");"
Set tb = db.OpenRecordset(strSQL, dbOpenDynaset)
Me.ACU_NOTA.SetFocus
Me.ACU_NOTA.Text = tb!NOTBIM_DIARIO
tb.Close
Set db = Nothing

Use o compactar e reparar do Access, e mande o aplicativo com todas os objetos envolvidos, inclusive a tabela alunos.

Marcelo antes de tudo obrigado por estar me ajudando e tendo tanta paciência.

faltam as aspas simples no = '" & [Forms]![Diário_Escolar]![Alunos] & "') é texto e tambem retifiquei a instrução.



Private Sub Alunos_Change()
Me.Ano.Value = Me.Alunos.Column(1)
Me.Turma.Value = Me.Alunos.Column(2)
Dim db As Database
Dim tb As Recordset
Dim strSQL As String
Set db = OpenDatabase("C:\GET_COL\GET_COL.accdb")
strSQL = "SELECT DIARIO.NOTBIM_DIARIO, DIARIO.NOMEALUNO_DIARIO, DIARIO.BIMESTRE_DIARIO FROM (DIARIO)" _
& " WHERE (((DIARIO.BIMESTRE_DIARIO) = '2' )" _
& " AND ((DIARIO.NOMEALUNO_DIARIO) = '" & [Forms]![Diário_Escolar]![Alunos] & "'))"
Set tb = db.OpenRecordset(strSQL, dbOpenDynaset)
Me.ACU_NOTA.SetFocus
On Error Resume Next
Me.ACU_NOTA.Text = tb!NOTBIM_DIARIO
tb.Close
Set db = Nothing
End Sub

Muito Obrigado Ricardo. Deu certinho agora, Marcelo obrigado por ter me ajudo também.
Bom saber que podemos contar com pessoas tão prestativas e de grande conhecimento.
Obrigado a Todos que de qualquer forma tentaram me ajudar.