Alguna manera de omitir un error
Publicado por Alejandro (110 intervenciones) el 22/02/2021 21:51:57
Saludos, tengo un problemita el cual tengo un código que me pone la primera letra de cada palabra en mayúscula tipo nombre en un texbox, me funciona bien dicho código pero resulta que cuando en dicho texbox escribo algo y luego lo borro y lo dejo vacío al deshacer me da el siguiente error
se ha producido el error 94 en tiempo de ejecución
Habrá algo para omitir dicho error??
el código que tengo que me funciona bien es este
se ha producido el error 94 en tiempo de ejecución
Habrá algo para omitir dicho error??
el código que tengo que me funciona bien es este
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
Private Sub Nombre_cliente_AfterUpdate()
Dim Cadena As String
Dim ANSI As Variant
Dim Numero As Integer
Cadena = LCase([Nombre_cliente])
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
[Nombre_cliente] = Cadena
End Sub
Valora esta pregunta
0