Puntos y comas ¿Como arreglar?

¿Pero no estabas descansando? ;-)

El codigo lo tengo así:

Private Sub PrecioLibre_Click()
Dim PL As String
PL = InputBox("¿ PRECIO DE " & Me.frmProductosMesa!Nombre & " ?")
If Len(PL) = 0 Then
MsgBox "No ha introducido nada", vbCritical, "AVISO"
Exit Sub
End If
Me.frmProductosMesa!Precio = PL
End Sub

Con la modificacion, quedaría así la penultima linea :

Me.frmProductosMesa!Precio = Replace(PL, "." , "," )

¿Que hago mal? (Aunque ya controlo mas que hace dos meses, je, je )
Hasta luego
JK










"Búho" escribió en el mensaje
news:
Hola JK
Como ando medio apijotao todavía y no me he centrado...¿Has pegado aqui el
codigo que utilizas para pasar el valor del InputBox al cuadro de texto?
Es que hay tantos mensajes que no he leido aún, que seguro que se me ha
pasado.
Yo es que he hecho una mini-prueba, me he creado unInputbox, he metido 12.32
he pasado el valor de esta variable al cuadro de texto y me ha respetado el
punto decimal. Idem con la 'coma'.
Asi quea mi me funciona.


Saludos desde Valladolid
Francisco Javier García Aguado
http://www.clikear.com/webs/accessbhuo/
http://groups.msn.com/Access2000VisualBasic/



"JK" escribió en el mensaje
news:bdubiv$88t$

Estoy utilizando Access 2000
He probado el Replace y sigue sin funcionar :-(
(Será alguna referencia??? )
Pues yo, cabezon, a seguir.
Hasta luego
JK

Outgoing mail is certified Virus Free.
Checked by AVG anti-virus system (http://www.grisoft.com).
Version: 6.0.495 / Virus Database: 294 - Release Date: 30/06/2003

Hola, viejo amigo de batallas de Access.
Estaba, tu bien lo dices, estaba (Pasado) de vacaciones.
Lo de 'descansando' es otro tema...¿Tu crees que se puede descansar con tres fieras rodeandote todo el día? :-S
Quea mi me funciona prefectamente. He creado un form, luego un subform con el cuadro de texto y me respeta perfectamente los separadores decimales.
¿Has mirado en las propiedades del cuadro de texto como lo tienes?
¿Formato?
¿Lugares decimales automatico? etc etc
Yo creo que es un problema de las propiedades del cuadro de texto.
Y ya sabes...si no lo solucionas, pegame el form y subform en un adjunto y me le envías a mi correo.


Saludos desde Valladolid
Francisco Javier García Aguado
http://www.clikear.com/webs/accessbhuo/
http://groups.msn.com/Access2000VisualBasic/



"JK" escribió en el mensaje news:bdupp1$ol3$

¿Pero no estabas descansando? ;-)

El codigo lo tengo así:

Private Sub PrecioLibre_Click()
Dim PL As String
PL = InputBox("¿ PRECIO DE " & Me.frmProductosMesa!Nombre & " ?")
If Len(PL) = 0 Then
MsgBox "No ha introducido nada", vbCritical, "AVISO"
Exit Sub
End If
Me.frmProductosMesa!Precio = PL
End Sub

Con la modificacion, quedaría así la penultima linea :

Me.frmProductosMesa!Precio = Replace(PL, "." , "," )

¿Que hago mal? (Aunque ya controlo mas que hace dos meses, je, je )
Hasta luego
JK

Outgoing mail is certified Virus Free.
Checked by AVG anti-virus system (http://www.grisoft.com).
Version: 6.0.495 / Virus Database: 294 - Release Date: 30/06/2003

Eres la ostia
(no hay más palabras)








"Búho" escribió en el mensaje
news:
Hola, viejo amigo de batallas de Access.
Estaba, tu bien lo dices, estaba (Pasado) de vacaciones.
Lo de 'descansando' es otro tema...¿Tu crees que se puede descansar con tres
fieras rodeandote todo el día? :-S
Quea mi me funciona prefectamente. He creado un form, luego un subform
con el cuadro de texto y me respeta perfectamente los separadores decimales.
¿Has mirado en las propiedades del cuadro de texto como lo tienes?
¿Formato?
¿Lugares decimales automatico? etc etc
Yo creo que es un problema de las propiedades del cuadro de texto.
Y ya sabes...si no lo solucionas, pegame el form y subform en un adjunto y
me le envías a mi correo.


Saludos desde Valladolid
Francisco Javier García Aguado
http://www.clikear.com/webs/accessbhuo/
http://groups.msn.com/Access2000VisualBasic/



"JK" escribió en el mensaje
news:bdupp1$ol3$

¿Pero no estabas descansando? ;-)

El codigo lo tengo así:

Private Sub PrecioLibre_Click()
Dim PL As String
PL = InputBox("¿ PRECIO DE " & Me.frmProductosMesa!Nombre & " ?")
If Len(PL) = 0 Then
MsgBox "No ha introducido nada", vbCritical, "AVISO"
Exit Sub
End If
Me.frmProductosMesa!Precio = PL
End Sub

Con la modificacion, quedaría así la penultima linea :

Me.frmProductosMesa!Precio = Replace(PL, "." , "," )

¿Que hago mal? (Aunque ya controlo mas que hace dos meses, je, je )
Hasta luego
JK

Outgoing mail is certified Virus Free.
Checked by AVG anti-virus system (http://www.grisoft.com).
Version: 6.0.495 / Virus Database: 294 - Release Date: 30/06/2003