Problema de numeros

[belnels]

Buenas forero, vuelvo a ser yo... poco a poco he ido solucionando los problemas... Tengo 10 textbox * 3

cantidad * precio = total

para que se generara la multiplicacion cree un boton y todo bien.
para el iva necesitaba que se cargara automatico pero igual con un boton, bien.
total, cree un boton, bien.

Mi problema es el siguien: los 10 textbox solo me aceptan numero sin coma ni letra ni punto.

Como hago para que el precio, subtotal, total, iva, monto a pagar me acepten . y ,
Ejemplo: 4.119,05

El codigo que use fue:

Private Sub txtSubtotal_KeyPress(KeyAscii As Integer)
'Hace que la caja de texto solo acepte números.
If Not (KeyAscii >= 48 And KeyAscii <= 57 Or KeyAscii = 8) Then
KeyAscii = 0
End If
End Sub

AGRADEZCO SU AYUDA.

[Heimish2000]

En las propiedades de los TextBox, si no me equivoco, puedes definir que tipo de dato acepta, le habras puesto entero.

[pkj]

Solo tienes que incluir el Ascii del punto y la coma:

If Not (KeyAscii >= 48 And KeyAscii <= 57 Or KeyAscii = 8 Or KeyAscii = 44 Or KeyAscii = 46) Then

[belnels]

Que va pkj he intentado y nada, pase 2 horas pegado y como verais nose mucho de vb6.

[pkj]

Pues no sé donde tendrás el problema, porque yo he probado así y admite numeros, puntos y comas (y retroceso).

Código vb:

Private Sub Text1_KeyPress(KeyAscii As Integer)
  If Not (KeyAscii >= 48 And KeyAscii <= 57 Or KeyAscii = 8 Or KeyAscii = 44 Or KeyAscii = 46) Then KeyAscii = 0
End Sub
 

[belnels]

Buenas man, aqui te muestro el problema que tengo en cada textbox ya que solo me muestra la coma en el iva y los demas no me toma unidades de mil ni decimales ej. 10.000,99

Aqui tengo la imagen:

[franko1809]

La imagen ya volo subela a otro host de images.
Yo lo hago de esta manera, no se si sera lo que necesitas exactamente pero seguro te sirve de algo.

Código:

Private Sub Text1_KeyPress(KeyAscii As Integer)

'Solo permite estos caracteres
If (Chr(KeyAscii) < "0" Or Chr(KeyAscii) > "9") And _
   Chr(KeyAscii) <> vbBack And _
   Chr(KeyAscii) <> "," And _
   Chr(KeyAscii) <> "." Then
   KeyAscii = 0
End If

'##Solo permite que se ingrese un solo punto y una sola coma##
'1 si coloca (.) y si encuentra que ya esta el(.) then no hace nada
If Chr(KeyAscii) = "." And InStr(1, Text1, ".") > 0 Then KeyAscii = 0
'2 si coloca (,) y si encuentra que ya esta la(,) then no hace nada
If Chr(KeyAscii) = "," And InStr(1, Text1, ",") > 0 Then KeyAscii = 0
  
End Sub

Saludos

[belnels]

PKJ, he colocado la formula que me dijistes y aun sigo sin obtener el resultado que deseo.

Franko1809, gracias por el codigo el cual me acepta el . y , colocandoselo uno mismo pero no me lo toma cuando hago la multiplicacion y la sumatoria de todos los textbox para obtener el monto total.

Probe cambiandole los datos en DataFormat : Number y nada.

[belnels]

Ejemplo delo que deseo:

Text1.txt - Text2.txt - Text3.txt
monto precio total
20 * 425 = 8.500

Agradezco su ayuda

[franko1809]

No se si entendi bien pero creo que necesitas poner formato al hacer tus operaciones p.e

txtTotal = Format(txtPrecio*txtCantidad, "Fixed") ó

txtTotal = Format(txtPrecio*txtCantidad, "###.###,00")

Al utilizar fixed toma el formato de la configuracion regional del sistema osea si tiene la configuracion Español(Peru) sera ###,###.00 nose si se entiende lo que digo?

Para tu ejemplo te devolveria 20 * 425 = 8.500,00 ó 8,500.00 dependiendo de la configuracion regional.

Te doy otro dato que es importante y quizas te interese saber:
La funcion Val siempre toma un punto como decimal osea siempre sera 50850.25 en cambio la funcion CDbl toma el formato de la configuracion regional del sistema.