[Resolvido] Ignorar acentos, espaço e vírgulas em registos duplicados

Olá.
Tenho este código numa BD que vi num tópico:
https://www.maximoaccess.com/t26343-representacao-do-campo-em-vba

Private Sub EMPRESA_BeforeUpdate(Cancel As Integer)
On Error GoTo Err_EMPRESA_BeforeUpdate

Dim Mess As String
'set a variavel recordset
Dim Tabela As Recordset
Set Tabela = Me.RecordsetClone

With Tabela
'verifica se o cliente já está Inserido
.FindFirst "EMPRESA= '" & Me.EMPRESA & "'"
'se encontrou então
If Not .NoMatch Then
Cancel = True
'Desfaz registro, não é novo

Mess = MsgBox("Esta EMPRESA já existe, quer alterar os dados?", vbQuestion + vbYesNo, "Aviso")

If Mess = vbYes Then
Me.Undo 'desfaz a digitação.
' MsgBox "EMPRESA selecionada !", vbInformation, "Aviso"
Me.Bookmark = .Bookmark
'exibe o registro já Registado

ElseIf Mess = vbNo Then
Ok = MsgBox("Adicionar nova empresa " & EMPRESA & " ?", vbQuestion + vbYesNo, "")
If Ok = vbYes Then
Cancel = False ' registo mantem-se
ElseIf Ok = vbNo Then
DoCmd.Close acForm, "CONTACTOS"
End If

'Sai da SUB
Exit Sub
End If

End If
End With

Set Tabela = Nothing
Err_EMPRESA_BeforeUpdate:
Exit Sub
End Sub

e então verifica se há nome Empresa duplicado e queria que ignorasse acentos, espaço e vírgulas , através de:

Replace(Replace(Replace(Replace(Replace(Replace(Replace(Tabela!EMPRESA, "á", "a"), "é", "e"), "í", "i"), "ó", "o"), "ú", "u"), " ", ""), ",", "") = Replace(Replace(Replace(Replace(Replace(Replace(Replace(Me.EMPRESA, "á", "a"), "é", "e"), "í", "i"), "ó", "o"), "ú", "u"), " ", ""), ",", "")

como no tópico: https://www.maximoaccess.com/t6443-resolvidonao-aceitar-dados-iguais-ignorando-espaco-e-acentos
como faço?

Não consegui melhor....

tentei com esta função que funciona bem para uma só palavra, com empresa com 2 ou mais palavras não deu:

'Tira acentos e espaços de uma string, transformado-a em minúscula
Function Ascentos(StrTrata)
r = ""
V_A = "áÁãÃäÄàÀâÂ"
V_E = "éÉèÈëËÊê"
V_I = "íÍìÌïÏîÎ"
V_O = "óÓòÒõÕÖöôÔ"
V_U = "úÚùÙüÜûÛ"
StrTrata = CStr(StrTrata)
For aux = 1 To Len(StrTrata)
L = Mid(StrTrata, aux, 1)
If (InStr(V_A, L) <> 0) Then L = "a"
If (InStr(V_E, L) <> 0) Then L = "e"
If (InStr(V_I, L) <> 0) Then L = "i"
If (InStr(V_O, L) <> 0) Then L = "o"
If (InStr(V_U, L) <> 0) Then L = "u"
If (L = " ") Then L = ""
r = r + LCase(L)
Next
Ascentos = r
End Function

.FindFirst "EMPRESA= '" & StrConv(Me!EMPRESA, 2, 1049) & "'"

e como resolver os espaços e vírgulas?

Veja este tópico, pode te ajudar.

https://www.maximoaccess.com/t22804-resolvidocapturar-posicao-da-string

Olá.
Está ok. Pus também o ponto , ".", "")
Obrigado a ajuda e ensinamento

Olá. Reabri o tópico porque na minha BD se clicar adicionar um contacto é avisado se aquela empresa já existe de acordo com o código acima.
Mas se for ao form FILTRAR e pedir para abrir o contacto da empresa que esteja a ver e depois pedir para (botão) ADICIONAR nova empresa no form CONTACTOS, o código acima não tem efeito, ou seja, adiciono uma empresa já existente e não há aviso algum de que já existe.

Tenho no subformulário subformA do form FILTRAR, o seguinte código para abrir o contacto da empresa que esteja a ver :
Private Sub EMPRESA_Click()
If EMPRESA > 0 Then
DoCmd.OpenForm "CONTACTOS", , , "[CÓDIGO]=" & Me.CÓDIGO
Else
MsgBox ("selecione uma EMPRESA"), vbInformation
End If
End Sub

Tem influência?

Ao clicar numa EMPRESA no form FILTRAR, abre o form CONTACTOS no contacto da empresa que esteja a ver e se clicar botão ADICIONAR o código EMPRESA_BeforeUpdate não tem efeito.
Como corrigir?

Obrigado.

Fiz assim:

Private Sub botão_adicionar_Click()

If [CÓDIGO] = Me.CÓDIGO And Not [CÓDIGO] = 0 Then
DoCmd.Close
DoCmd.OpenForm "CONTACTOS"

Else

Form.Requery
DoCmd.GoToRecord , , acNewRec
....