mascaras de entrada
Me gustaria saber como se puede poner este mascara de entrada bien...
tengo puesto esto:
rsclientes!telefono = Format$(txttelefono, "#(#00)000000")
pero el problema es que aqui los telefonos son
(945)345434 o (94)4789834
para el primero ya cumpliria esta mascara pero para el segundo no.. sabe alguien como podria ponerlo bien?
tengo puesto esto:
rsclientes!telefono = Format$(txttelefono, "#(#00)000000")
pero el problema es que aqui los telefonos son
(945)345434 o (94)4789834
para el primero ya cumpliria esta mascara pero para el segundo no.. sabe alguien como podria ponerlo bien?
este codigo es de Jayan Mavelikara
en una forma coloca dos cuadros de texto y un boton de comando, en el evento click de boton coloca este codigo.
'el formato sera (800)262-2823
Text1.Text = "8002622823"
Dim temp1 As String
temp1 = "("
temp1 = temp1 & Left(Text1.Text, 3)
temp1 = temp1 & ")"
temp1 = temp1 & Mid(Text1.Text, 4, 3)
temp1 = temp1 & "-"
temp1 = temp1 & Right(Text1.Text, 4)
Text2.Text = temp1 'muestra el resultado
espero te ayude
en una forma coloca dos cuadros de texto y un boton de comando, en el evento click de boton coloca este codigo.
'el formato sera (800)262-2823
Text1.Text = "8002622823"
Dim temp1 As String
temp1 = "("
temp1 = temp1 & Left(Text1.Text, 3)
temp1 = temp1 & ")"
temp1 = temp1 & Mid(Text1.Text, 4, 3)
temp1 = temp1 & "-"
temp1 = temp1 & Right(Text1.Text, 4)
Text2.Text = temp1 'muestra el resultado
espero te ayude