Comprobas valor campo matrícula

Utiliza alguna función de "limpieza" para realizar la comprobación.

Function LimpiaTexto(strTexto As String) As String     Dim i As Integer     For i = 1 To Len(strTexto)         Select Case Asc(Mid(strTexto, i, 1))             Case 48 To 57, 65 To 90, 97 To 122                 LimpiaTexto = LimpiaTexto & Mid(strTexto, i, 1)             Case Else         End Select     Next End Function

Cuando haces la comprobación, utiliza la función para ambos lados del criterio.

Opción B: Impedir que, a futuro, se metan más matriculas con caracteres que no sean letras y numeros. Sin tocar el histórico

Utilizar en el evento Change del campo matricula para, llamado a esa función, quitar todo lo que no proceda. La comparación deberá seguir haciéndose con la función para los registros antiguos.

Opción C: como la B pero depurando el histórico

Pasar una consulta de actualización sobre la tabla histórica utilizando la función para depurar todos los datos. El evento Change como en la opción B.

Si optas por la C, ya no será necesario utilizar la función para compara cadenas ya que tanto los registros históricos como los nuevos estarán "limpios"

Un saludo

yo utilice durante un tiempo este codigo sacado de la web de Narkive y escrita por Victor Delgadillo

va muy bien (la utilizo sobretodo cuando quiero crear carpetas con datos de un campo, ya sabeis que microsoft es bastante especias con eso de los caracteres raros)

Public Function PuroTexto(cadena As String)
' cadena se elimina todo que no sea letras a-z y A-Z y espacios.
Dim iX As Integer
Dim iC As Integer
Dim iZ As Integer
Dim cS As String

For iX = 1 To Len(cadena)
iC = Asc(Mid(cadena, iX, 1))
If (iC >= (Asc("a")) And iC <= (Asc("z"))) Or iC = 32 _
Or (iC >= (Asc("A")) And iC <= (Asc("Z"))) Then
cS = cS & Chr(iC)
End If
Next
PuroTexto = cS
End Function

--
Victor Delgadillo [MVP Access]
Miami, Florida

Si, eso ya lo pone, pero supongo que no es dificil de modificar en esta zona (Ojo, nunca lo intente, ya que no me hizo falta)

If (iC >= (Asc("a")) And iC <= (Asc("z"))) Or iC = 32 _
Or (iC >= (Asc("A")) And iC <= (Asc("Z"))) Then
cS = cS & Chr(iC)
End If

Pero es cierto que borra incluso numeros

Si analizas mi función verás que simplemente se analiza el código ASCII del carácter extraído. Si está en los rangos 48 a 57 (los números del 0 al 9), 65 a 90 (letras mayúsculas) o 97 a 122 (letras minúsculas), permite el carácter. En caso contrario, no lo concatena.

Se puede hacer de otras formas.

Mediante InStr

Supongo que yo me he "tirado a la piscina" porque yo he trabajado en una empresa dónde las matriculas las ponian como les salía de ____ (póngase lo que se quiera) por lo que unos ponian guiones, otros espacios y otros puntos. 

A/08698107

A/08.698.107

A 08698107

A 08/698107

(y podría seguir...)

¿Cual es el problema? Pues que la vieja escuela no presentaba los impuestos vía telemática. Y las administraciones no admiten caracteres especiales. Solo números y letras: A08698107

Supongo que por ese motivo he utilizado esa función. 

Un saludo

Bueno cogiendo un poco de unos y un poco de otros lo he resuelto con esto.

Posiblemente se podrá simplificar, pero funciona.

Lo único malo es que si hay muchos registros, pues ralentiza un poco el proceso.

Private Sub Matricula_BeforeUpdate(Cancel As Integer)

Dim dbTemporal As DAO.Database
Dim Registros As DAO.Recordset
Dim MatTemporal As String
Set dbTemporal = CurrentDb
Set Registros = dbTemporal.OpenRecordset("Vehiculos", dbOpenDynaset)

Me.MatLimpia = Replace(Me.Matricula, "-", "")   'Le quito todos los "-" al campo Matricula para que una matrícula como R-1234-BBB se guarden temporalmente en el campo oculto MatLimpia como R1234BBB

Registros.MoveLast                                                                 'Voy al último registro de la tabla Vehiculos
Registros.MoveFirst                                                                'Voy al primer registro de la tabla Vehiculos
 
Do While Not Registros.EOF                                                         'Inicio la verificación de cada registro de la tabla Vehiculos

MatTemporal = Replace(Registros!Matricula, "-", "")                                'Le quito los guiones a cada campo Matricula de la tabla Vehiculos y guardo el dato en la variable MatTempral

If Registros!Matricula = Me.Matricula Or Registros!Matricula = Me.MatLimpia Then    'Compruebo que la Matricula introducida en el campo Matricula no esté en la base como Matricula o como MatLimpia
Me.MatDestino = Registros!Matricula                                                 'Guardo la Matricula tal y como está metida en el Campo Matricula de la tabla Veniculos.
DoCmd.OpenForm "MatriculaYaExiste", acNormal, , , , acNormal                        'Abro el formulario de aviso. En la consulta que genera este formulario Matricula = MatDestino 
Registros.Close                                                                     'Como ya se ha encontrado el duplicado, cierro Recordset
dbTemporal.Close                                                                    'Cierro la base
Set Registros = Nothing                                                             'Cierro
Set dbTemporal = Nothing                                                            'Cierro
Exit Sub                                                                            'Salgo.
End If

If MatTemporal = Me.Matricula Then                                                  'Comparo cada registro sin "-" con un posible dato introducido de Matricula sin "-", ejemplo R1234BBB
Me.MatDestino = Registros!Matricula                                                 'Guardo la Matricula tal y como está metida en el Campo Matricula de la tabla Veniculos.
DoCmd.OpenForm "MatriculaYaExiste", acNormal, , , , acNormal                        'Abro el formulario de aviso. En la consulta que genera este formulario Matricula = MatDestino
Registros.Close
dbTemporal.Close
Set Registros = Nothing
Set dbTemporal = Nothing
Exit Sub
End If

Registros.MoveNext                                                                   'siguiente registro

DoEvents
Loop

Registros.Close
dbTemporal.Close

Set Registros = Nothing
Set dbTemporal = Nothing

End Sub

---------------------------------------------------------------

Edito para decir que esto lo he puesto en el eveto Antes de Actualizar del campo Matricula

Por favor si alguien aporta alguna mejora será bien venida.

Muchas gracias.

Hola a todos,

Yo me hago una pregunta y ¿No sería mejor hacer este proceso en la introducción de los registros?

Si cualquiera de las funciones que han puesto Xavi o Vimipas, las colocas en el formulario de introducción de los registros por los usuarios, ya tendrías las matriculas en el formato que necesitas y no tendrias que hacer el proceso de limpia en cada registro de busqueda. No?

Y ya que estamos #YOMEQUEDOENASA, te dejo otra opción.

Function Limpia(cadena As String) As String    With CreateObject("vbscript.regexp")       .Global = True: .Pattern = "-"       Limpia = .Replace(cadena, "")    End With End Function