Hola, me gustaria crear algunas funciones para mejorar el ingreso de datos y
salidas en mi sistema. Pro lo que me gustaria ayuda con 2 preguntitas...
1) Funcion para que solo ingrese Numero (con decimales), yo tengo uno, pero
me permite ingresar mas de 1 punto decimal.
Private Sub txt_CB_Barco_S_KeyPress(KeyAscii As Integer)
If KeyAscii < Asc("0") Or KeyAscii > Asc("9") Then
If KeyAscii = Asc(".") Then
Else
If KeyAscii = 8 Then
Else
KeyAscii = 0
Beep
End If
End If
End If
End Sub
2) Convertir Mayuscula la Primera palabar y el resto minuscula, yo tengo
una, pero si la palabra es "YAN CANTUARIAS", la convierte en "Yan
cantuarias", la idea es separarla por los espacios en blanco.
UCase(Mid(txt_Nombre_Emple_C.Text, 1, 1)) &
LCase(Mid(txt_Nombre_Emple_C.Text, 2))
Ojala alguien me puede ayudar a solucionar estas dudas
Gracias
YAN
Leer las respuestas