Sem retorno na SQL

Boa tarde pessoal,

volto a solicitar ajuda dos colegas para uma situação que parece simples mas, não consegui solução.
Estou fazendo uma consulta em uma tabela onde o campo que faço a busca é do tipo TEXTO, apesar de armazenar números. O problema é que no meu código, uso um IF para verificar se o código existe e ao testar com qualquer valor que NÃO existe, não consigo seguir em frente.
Postei o código abaixo para os colegas avaliarem e se possível me ajudarem.

Código:


Dim rsUsuario As Recordset 'cria um recordsSet para usuários
Dim db As Database 'cria uma variável para o banco de dados
Dim strSql As String
Dim strMsg As String
Dim opcao As VbMsgBoxResult

    If Not IsNull(Me.id_usuario) Or Me.id_usuario <> "" Then
'    MsgBox "Entrei " & CStr(Me.id_usuario) 'teste para ver se entra no IF
'    Exit Sub
        
        strSql = "SELECT id_usuario FROM tb_Usuarios WHERE id_usuario = " & CStr(Me.id_usuario) & "" ' converte para STRING
        Set db = CurrentDb
        Set rsUsuario = db.OpenRecordset(strSql)
    
            If rsUsuario.EOF Then 'Não entra nesse IF (??)
                strMsg = "O número informado da mátrícula não existe! Informe sua matrícula..."
                opcao = MsgBox(strMsg, vbOKOnly + vbCritical, "Matrícula Inválida")
            End If
        Else
            MsgBox "Você deve informar sua matrícula...!"
            Me.data_Nota.SetFocus
            Me.id_usuario.SetFocus
            Exit Sub
    End If
End Sub



Agradeço antecipadamente à todos...

Veja essa Mensagem aqui que lhe ajudará...
https://www.maximoaccess.com/t31723-mensagem-de-sem-dados-apos-clicar-em-botao-de-pesquisa#218548

Obrigado Fábio,

Seu exemplo foi muito bom, mas, não funcionou no meu caso. É muito estranho. Não estava usando DAO, mudei, mas continuo sem conseguir um retorno no meu SQL.

[]S

Então, falta nos dizer o que pretende com esse codigo... Pois da forma como está, somente cairá na condição IF se rsUsuario não contiver dados/Registros...

Que bom ler isso, porque é exatamente o que eu quero;

Se não encontrar o código informado... entra no IF e mostra a mensagem que o número não existe.
O código está no evento, AO PERDER O FOCO e o objetivo é de que quando o usuário informar um código que não existe na tabela usuários impeça que vá para outro campo no formulário.

Então, pela sua resposta, meu código está certo, só não estou encontrando o erro, porque ele não está funcionando. Já conferi o nome dos campos, da tabela, tudo está correto, pelo menos, parece. Eu estou no banco de dados da pesquisa... e por aí vai...

Teria como usar algum outro teste para ver se meu SQL retorna algum valor??

Valeu pela atenção até agora Fábio.

Boa noite,
Pegue nesse SQL e coloque numa consulta para ver o resultado, se serve ou tem que alterar

Siga a Dica do Alexandre, e pode complementar com essa:

Apos abrir o Recordset, coloque uma Mensagbox para exibir o Valor do campo Id_usuario e veja o que retorna:

Msgbox [size=37]rsUsuario!id_usuario[/size]


[size=37]Pode ainda contar os registros e exibir em uma msgbox para saber qntos registros vieram.[/size]