Access - Poner en mayucula cada palabra en una tabla

Hola quisiera saber de que manera puedo hacer que se ponga la primera letra de cada palabra en mayuscula automaticamente en la tabla

para datos que introduzCAS DE UN CUADRO DE TEXTO

EN EL EVENTO DESPUES DE ACTUALIZAR UN CUADRO DE TEXTO LLAMADO NOMBRE_CAMPOTEXTO

Sub NOMBRE_CAMPOTEXTO_AfterUpdate()

Dim CadenA as String

Dim ANSI as Variant

Dim Numero as Integer

CadenA = Lcase ([NOMBRE_CAMPOTEXTO] )

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_CAMPOTEXTO] = Cadena

End Sub

me sale este error y al borrar esta linea me funciona solo con la primera palabra

Mid(CadenA, Numero + 1, 1) = UCase(Mid(CadenA, Numero + 1, 1))

perfecto ya me funciona a la perfercion

Jose y para hacer que en vez de hacer que la primera letras de cada palabra se mayuscula sea solo la de la primera palabra?/
Ejemplo: "hola como estas" a "Hola como estas"

Hola Alejandro
en el evento despues de actualizar de CampoDETEXTO pones
--------------------------------
Sub CampoDETEXTO_AfterUpdate()

Dim Cadena as String

Cadena = Lcase ([Campo] ): rem lo convierte todo a minusculas

Mid (Cadena, 1, 1 ) = Ucase (Left (Cadena, 1 ) ) : rem pone la primera letra en mayusculas

[CampoDETEXTO] = Cadena

End Sub

Muchas gracias hermano Juan nuevamente ahora tengo mi proyecto listo al 100% el unico problema es que no se como guardar para que parezca un software de verdad sin que se puedan editar los furmularios y todos los demas... es que soy principiate en acces...
lo guardo con la Opcion---> Crear ACCDE
pero al abrirlo me sale el documento editable.. tengo office 2010

contraseña para entrar
para proteger la base de datos puedes usar la aplicacion de Jefferson Jimenez pero ojo haz una copia y recueerda la contraseña, sino no podrás volver a entrar


https://sites.google.com/site/jjjt1973/Home/proteger-desproteger-bd-access

contraseña para modificar
Para proteger el codigo y que nadie te lo altere puedes ponerle una contraseña
en la parte deonde se introduce el codigo de vb hERRAMIENTAS --->Propiedades de.... --->Proteccion y es aqui donde tecleas la contrasela


saludos desde El Astillero en fiestas

Muy bien jose probare dame tu email para agregarte al fb

StrConv ("TECH ON THE NET", 3) would return "Tech On The Net"



mira ésta página
http://www.techonthenet.com/access/functions/string/strconv.php

porque tambien te dice como hacer una consulta de actalización para cambiar los datos que ya tengas en una tabla

Buenos días,
El tema que comentais lto de la siguiente forma:
Primero creo un módulo con la función para poder llamarlo desde cualquier parte, en la que también considero las partículas de combre, de, da, del etc.:

Function PrimLetraMay(Texto As String) As String
Dim X As Long
Dim AnteriorEsEspacio As Boolean
Dim Particulas(8) As String
Dim Y As Long
Dim Z As Long

Particulas(1) = " De "
Particulas(2) = " Del "
Particulas(3) = " La "
Particulas(4) = " Y "
Particulas(5) = " Los "
Particulas(6) = " Dels "
Particulas(7) = "Da "
Particulas(8) = "De "

AnteriorEsEspacio = True
For X = 1 To Len(Texto)
If Mid(Texto, X, 1) <> " " And AnteriorEsEspacio = True Then
PrimLetraMay = PrimLetraMay & UCase(Mid(Texto, X, 1))
Else
If Mid(Texto, X, 1) = " " And AnteriorEsEspacio = True Then
Else
PrimLetraMay = PrimLetraMay & LCase(Mid(Texto, X, 1))
End If
End If

If Mid(Texto, X, 1) = " " Then
AnteriorEsEspacio = True
Else
AnteriorEsEspacio = False
End If
Next X

For X = 1 To 8 'Número de partículas.
Z = 1
Y = InStr(Z, PrimLetraMay, Particulas(X))
Do While Y > 0
PrimLetraMay = Left(PrimLetraMay, Y - 1) & LCase(Particulas(X)) & Right(PrimLetraMay, 1 + Len(PrimLetraMay) - Y - Len(Particulas(X)))
Z = Y + 1
Y = InStr(Z, PrimLetraMay, Particulas(X))
Loop
Next X
End Function

Seguidamente en la entrada de datos que siempre hago mediante formulario en el punto de después de actualizar inscribo el siguiente código:

Private Sub CAMPO_AfterUpdate()
Me.CAMPO = PrimLetraMay(Me.CAMPO)
End Sub

Saludos,