Código não permite alguns nomes indígenas

Bom dia,

Obrigado a todos que respondem às perguntas

Obtive neste fórum o seguinte código para impedir duplicidade de cadastro

Private Sub Nome_BeforeUpdate(cancel As Integer)
If Me!Nome = Me!Nome.OldValue Then Exit Sub
If Not IsNull(DLookup("[nome]", "cadastro_beneficio", "[nome] ='" & Me!Nome & "'")) Then
cancel = True
Nome.Undo
MsgBox "Segurado já cadastrado"
End If
End Sub


Todavia esse código não aceita nomes de indígenas que tenha apóstrofo (') na escrita. Por exemplo, Pedro Ka'apor.


Mensagem de erro exibida é a seguinte:


"Erro em tempo de execução '3075'
Erro de sintaxe (operador faltando) na expressão de consulta '[nome] ='Pedro Ka'apor".

Botões: Continuar, Fim, Depurar, Ajuda


Como corrigir isso?

Helivando,

O apostrofo é utilizado para separar campos texto (strings), e por esse motivo não deve ser armazenado em tabelas no banco de dados, e justamente na hora de gerar cosultas utilizando este tipo de dados, qualquer banco de dados vai gerar erro, pois o Access entende que o texto a ser pesquisado é 'Pedro Ka' e que o restante do nome está fora da sintaxe.
Também não é o mais correto consultar por nome, pois , com o tempo, podem haver homonimos na sua base.
Sempre que possível utilize o CPF ou qualquer outro campo que seja obrigatório e chave primária na tabela.

Minha sugestão é: alterar todos os registros que possuem qualquer caracter especial (principalmente o apóstrofo) cadastrados em tabela, substituindo-os por ESPAÇO.


É isso

Att,

Alexandre Fim