Como verificar se texto longo já está cadastrado e não deixar salvar duplicado

Prezados, estou com uma dificuldade, estou tentando fazer uma verificação no banco passando uma String com texto longo antes de salvar o registro.

Se já existir uma descrição igual impedir que seja salvo. Veja o código:

Código:



    Sql = "SELECT codMaterial, descricaoLonga FROM Material WHERE descricaoLonga = """ & Me.descricaoLonga & """"
    Set RS = CurrentDb.OpenRecordset(Sql)

    If Not RS.EOF Then
          MsgBox "Atenção: Descrição já cadastrada para o material '" & RS!codMaterial & "', duplicidade não permitida!", vbCritical, "Aviso"
    End If
 


Desde já agradeço!

Olá Nelson,

A instrução estava com erro de sintaxe.
Tem aspas demais, e campo texto tem que usar aspas simples também, conforme abaixo:

Código:



SQL = "SELECT codMaterial, descricaoLonga FROM Material WHERE descricaoLonga = '" & Trim(Me.descricaoLonga) & "'"



A função TRIM serve para eliminar espaços em branco no inicio e no final do valor do campo informado.

É isso

[]'s

FIM

Alexandre, obrigado pelo pronto apoio, mas agora apareceu este erro: Error #: 3146 ODBC--call failed



Eu uso banco de dados MySql na Web. Não teria uma forma de converter o texto em algum outro tipo de dado?

Sds/Nelson

Nelson,

Este erro não está relacionado à instrução SQL, mas à falha na conexão de rede e etc.
Tenho quase certeza que você utiliza um bd MySQL em algum provedor (Hostgator, Uol Host, GoDAddy e etc.) com servidor compartilhado.
Reinicie a operação, execute o Compactar/Reparar e atualize os links com as tabelas.

Boa sorte

[]'s

FIM

Alexandre, é isso mesmo, utilizo com o UOL, mas esse erro está dando porque a String que comparo tem mais de 300 caracteres, se for até 255 caracteres não dá o erro.

Será que tem como resolver?

Desde já sou grato pelo seu tempo e atenção.


Sds/Nelson

Se na tabela o tamanho é 255 e o campo for 300, então faça isso:

Código:



SQL = "SELECT codMaterial, descricaoLonga FROM Material WHERE descricaoLonga = '" & Trim(Mid(Me.descricaoLonga, 1, 255)) & "'"




Acredito que irá funcionar.

[]'s

FIM

Se alguém do forum puder me ajudar com uma solução agradeceria muito.

Sds/Nelson