Forums Últimos mensajes - Powered by IBM
 
Tags Palabras claves

Performance en Ingreso de datos

08/07/2003 - 19:10 por Yan Cantuarias | Informe spam
Ayuda Hacer una pregunta
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
email Siga el debateRespuesta 3 respuestasRespuesta Tengo una respuesta
DRAGON AGE™: INQUISITION – Matadragones
 

Leer las respuestas

#1 Sashka
08/07/2003 - 21:07 | Informe spam
A ver.. al ojo... si hey error me perdonarás????

Private Sub txt_CB_Barco_S_KeyPress(KeyAscii As Integer)
If KeyAscii < Asc("0") Or KeyAscii > Asc("9") Then
If KeyAscii = Asc(".") Then
if instr(txt_CB_Barco_S, ".") > 0 then keyascii=0
Else
If KeyAscii = 8 Then
Else
KeyAscii = 0
Beep
End If
End If
End If
End Sub

Para lo de las mayúsculas

Dim arrx() as string, i as long, nombre as string

arrx= split(txt_Nombre_Emple_C, " ")
For i = 0 to Ubound(arrx)
arrx(i) = Ucase(left(arrx(i),1)) & Lcase(mid(txt_Nombre_Emple_C.Text,2))
next i
nombre= join(arrx, " ")
erase arrx

Sashka



"Yan Cantuarias" escribió en el mensaje
news:#
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


Preguntas similares

 

Busqueda sugerida :