mascaras de entrada

otamendi
18 de Noviembre del 2004
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?

roymx
18 de Noviembre del 2004
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