[Resolvido]Alerta CNH

Saudações A todos e um ótimo dia.

Criei uma consulta que filtra as CNH's que estão vencidas ou a vencer.
Nome - Nº. CNH - Validade

no meu controle de programação tenho um campo nome do motorista, com um botão pesquisar que abre uma consulta com todos os mot. cadastrado ao selecionar o motorista caso ele esteja com a cnh vencida ou a vencer exibe uma mensagem informando que a CNH está vencida ou a vencer, abaixo segue um mod. que estou utilizando para essa rotina, o problema é que ele me exibe todas as CNH's que estar vencida ou a vencer, gostaria que fosse somente exibido a CNH do motorista selecionado.

Public Sub AlertaCNH()
Dim rst As DAO.Recordset
Dim strData As Date
Dim strConcaneta As String

strData = Date

Set rst = CurrentDb.OpenRecordset("SELECT * FROM Validade_CNH")
If rst.EOF Then
Exit Sub
Else
strConcaneta = ""
Do Until rst.EOF
strConcaneta = strConcaneta & vbCrLf & rst!Empregado & "" & "" & " - " & "CNH nº." & "" & rst!Registro_CNH_n & "" & "" & " - " & rst!Validade_CNH
rst.MoveNext
Loop
MsgBox "A CNH do Motorista estar para vencer:" & vbCrLf & strConcaneta, bOKOnly + vbExclamation, "Atenção!"
End If
End Sub[code]

Deves para isto filtrar o recordset pelo código do motorista:

Set rst = CurrentDb.OpenRecordset("SELECT * FROM Validade_CNH WHERE Código = " & Me.CaixaTextoCódigo & "")

No repositório tem um form de aviso de vencimento para CNH bem bacana de uma olhada por la.

Cumpimentos.

no meu form programação não tem uma cx de txt cod.

tentei da seguinte forma mais não funciona.

Set rst = CurrentDb.OpenRecordset("SELECT * FROM Validade_CNH WHERE Nome_Motorista = " & Me.Nome_Motorista & "")

já dei uma olhada no form. mencionado mais não é isso que eu quero.
o que eu quero é que quando o programador for programar um mot. para uma viagem ao selecionar o motorista caso Esse esteja com a CNH vencida ou a vencer a mensagem apareça.

A informação do funcionário está em uma caixa de combinação?

Se estiver especifique a coluna da combo

Set rst = CurrentDb.OpenRecordset("SELECT * FROM Validade_CNH WHERE Nome_Motorista = " & Me.SuaCOmbo.Column(0) & "")

Se for utilizar o nome do motorista lembre-se: para campos texto o critério deve estar entre aspas simples e duplas:

Set rst = CurrentDb.OpenRecordset("SELECT * FROM Validade_CNH WHERE Nome_Motorista = '" & Me.Nome_Motorista & "'")

Cumprimentos.

problema solucionado, Obrigado, Tinha me esquecido desse detalhe: campos texto o critério deve estar entre aspas simples e duplas

O Fórum agradece o retorno.