Manipular cadenas de texto en access
Tengo un cuadro de texto donde pongo el nombre de un monitor, en el evento al perder el enfoque tengo lo siguiente:
Private Sub Nome_LostFocus()
Dim CadenA As String
Dim ANSI As Variant
Dim Numero As Integer
CadenA = LCase([Nome])
Mid(CadenA, 1, 1) = UCase(Left(CadenA, 1))
For Numero = 2 To Len(CadenA) - 1
ANSI = Asc(Mid(CadenA, Numero, 1))
If ANSI < 65 Or ANSI > 122 Or (ANSI > 90 And ANSI < 97) Then
Mid(CadenA, Numero + 1, 1) = UCase(Mid(CadenA, Numero + 1, 1))
End If
Next Numero
[Nome] = CadenA
End Sub
El problema es que si el nombre tiene la letra "Ñ" la siguiente letra me la pone en mayúscula ( Ejemplo; Perez YañEz Julio ) a ver si es posible solucionarlo.
1 Respuesta
Respuesta de Sveinbjorn El Rojo
1