[Resolvido]Verificar registro na tabela.

Boa tarde!

No botão do meu form desacoplado estou passando o script abaixo, sendo que não está funcionando, preciso que ao clicar no botão ele me informe se o texto digitado no campo txtnome existe ou não na tabela, se verdadeiro exibir a mensagem (x) se não a mensagem (y).

Código:



Dim rst As Recordset
Set rst = CurrentDb.OpenRecordset("SELECT * FROM TBL_NOME")

 With rst
        If rst![NOME] <> Me.TXTNOME Then
           MsgBox "O registro não existe!", vbExclamation, "Atenção!!!"
        else
           MsgBox "O registro já existe!", vbExclamation, "Atenção!!!"
        end if
 End With



não sei onde posso está errando, já que ele só está exibindo uma mensagem dependendo do parâmetro que utilizo ( = ou <>) é como se ele não tivesse fazendo a verificação na tabela ou faz e não encontra.

Olá Victor,

A instrução que vc mostrou faz com que o recordset carregue todos os registros da tabela, e pra fazer a verificação se existe o nome, teria que fazer o Do...While (laço) para verificar linha a linha do recordset, o que é trabalhoso e pode ficar lento demais.

Fiz a instrução abaixo onde o sistema irá localizar o registro, usando WHERE (condição). Copie e cole:

Código:



Dim rst As DAO.Recordset
Set rst = CurrentDb.OpenRecordset("SELECT COUNT(*) AS cnt FROM TBL_NOME WHERE NOME = '" & Trim(Me.TXTNOME) & "'")
 
If rst("cnt") > 0 Then
  MsgBox "O registro já existe!", vbExclamation, "Atenção!!!"
Else
  MsgBox "O registro não existe!", vbExclamation, "Atenção!!!"
End If

rs.Close
Set rs = Nothing




É isso

Att,
FIM

Obrigado Alexandre, funcionou, eu até tinha testado com uma condição mais o (COUNT(*) AS cnt) e o início do if foi o que fez a diferença.

Vlw

Valeu Victor,
O fórum agradece.
Sucesso.