Access - impedir entrada nif/cif errònios

Mi pregunta es la siguiente:
En un cuadro de texto se ingresa el nif o el cif de una persona o empresa, y yo quiero limitar que se entre el correcto,con la siguiente mascara de entrada puedo evitar que me entren texto de más de 10 cifras y asegurar que la primera y última letra son mayúsculas : A0000000A
Pero no impide que se pueda entrar un nif o un cif con la primera y última letra con mayúsculas, por ejemplo:
s1234567o, este nif errònio esquivaría la máscara que he puesto
Alguien sabe como puedo evitar esto, si conviene con código.
Muchas gracias

Usando código en el lost focus de un cuadro de texto puedes limitar la cantidad de caracteres a usar y la restricción de mayusculas.

Si lo que quieres es forzar a que la entrada sea en mayúsculas, tienes que bloquear Caps Lock. POara ello, pasate por el aulario access, en la direccion que te pongo abajo y mira en alguno de los almacenes si está el código y te lo bajas.Si no está, me pones una nota en el foro ATP y lo subiré al almacen.

Lo de las mayúsculas no importa
Lo que quiero es limitar la entrada solo a CIF y NIF como r12345678 o 23456768g o sea que tienen una consonante en el primer o último digito, pero como puedo evitar que me entren una consonante en el primer y también en el último es decir: w1234567o, para evitar errores,
quiza le podia decir por codigo que cuente las consonantes del codigo y si hay más de una que de error, pero no tengo ni idea de como hacerlo
Muchas gracias

Prueba con este codigo...

Private Sub Texto0_KeyPress(KeyAscii As Integer)
If KeyAscii <> 8 Then
If Len(Texto0.Text) > 9 Then
KeyAscii = 0
Else
If Len(Texto0.Text) > 0 Then
If (Asc(Left(Texto0.Text, 1)) > 64 And Asc(Left(Texto0.Text, 1)) < 91) Or (Asc(Left(Texto0.Text, 1)) > 96 And Asc(Left(Texto0.Text, 1)) < 123) Then
If (KeyAscii > 64 And KeyAscii < 91) Or (KeyAscii > 96 And KeyAscii < 123) Then
KeyAscii = 0
End If
Else
If Len(Texto0.Text) < 9 Then
If (KeyAscii > 64 And KeyAscii < 91) Or (KeyAscii > 96 And KeyAscii < 123) Then
KeyAscii = 0
End If
Else
If (Asc(Left(Texto0.Text, 1)) < 65 And Asc(Left(Texto0.Text, 1)) > 90) Or (Asc(Left(Texto0.Text, 1)) < 95 And Asc(Left(Texto0.Text, 1)) > 122) Then
KeyAscii = 0
End If
End If
End If
Else
If KeyAscii > 96 And KeyAscii < 123 Then
KeyAscii = KeyAscii - 32
End If
End If
End If
End If
End Sub

Gracias Israel, el código funciona bien, lo que pasa es que funciona bien mientras tecleas el valor del nif en el control Texto0, si despues de actualizarlo intentas poner otra consonante te la permite entrar, pero muchas gracias ya que controla mucho más de lo que yo hacia con la máscara de entrada
Muy agradecido y utilizando tu solución
perdon por el retardo la estava probando