modulo vba

[Eduardo]

buenos dias a todos... tengo una pequeña duda... tengo esta consulta que
llama a un modulo VBA... una ves me funciono. y despues ya no... no se en que
me estoy equibocando

UPDATE Tabla2 SET [comision real] = AsignarValor
([Porcentaje],[Granacia],[costo total]);

dode AsignarValor es mi Scrip de VBA... es una funcion publica.... alguien
sabe porque no me esta funcionando?

[Patxi Sanz]

Hola Eduardo:

Es mejor que continues en el hilo original.

Si una vez funcionó y después no, ¿no es posible que no haya registros a los
que modificar el campo?

Y si te da algún mensaje de error, ¿cuál es?

--
Un saludo,

Patxi Sanz
patxisanz[ARROBA]yahoo[PUNTO]es
Tudela (NA)

[Chea]

Prueba a ponerlo así:

... = AsignarValor()...

--
Saludos

José Bengoechea Ibaceta [MS-MVP Access]
http://jbengoechea.com/
http://jbchea.net

"Eduardo" <Edu...@discussions.microsoft.com> escribió en el mensaje de
noticias news:20690830-D42C-451F...@microsoft.com...

[Ju@nk]

Como lo tienes exactamente, ¿asi?

...= "UPDATE Tabla2 SET [comision real] =" & AsignarValor &

"([Porcentaje],[Granacia],[costo total]);"

y ¿que recibe AsignarValor? pues la consulta queda un poco rara

--
--
**
Colabora con el grupo, contesta a este mensaje y dinos si te sirvió o no la
respuesta dada.
Muchas gracias.

Salu2
Ju@nK [MVP Access]
http://juank.mvps.org
Correos personales o preguntas particulares en mi grupo
http://groups.google.es/group/juank
http://juankc.spaces.live.com/
http://juank.mvps.org/
www.juank.tk
www.mvp-access.com
¿Que es un MVP?, entérate en http://mvp.support.microsoft.com

Nota: El contenido de este mensaje, así como el código
fuente que pueda ir incluido en el mismo, se proporciona
«COMO ESTÁ», sin garantías de ninguna clase, y no otorga
derecho alguno. Usted asume cualquier riesgo al poner en
práctica, utilizar o ejecutar la sugerencia del presente mensaje.
**

"Eduardo" <Edu...@discussions.microsoft.com> escribió en el mensaje

news:20690830-D42C-451F...@microsoft.com...

[Eduardo]

trae el resultado de un modulo de VBA, que calcula la comicion de cada
vendedor segun el porcentaje de ganancia...

"Ju@nk" escribió:

> Como lo tienes exactamente, ¿asi?
>

> ....= "UPDATE Tabla2 SET [comision real] =" & AsignarValor &

[Eduardo]

el script que estoy utilizado es algo asi...

Public Function AsignarValor(Porcentaje As Double, ganancia As Double, Cal
As Double) As Double
Dim c_real As Double
Dim resul As Double
If Porcentaje >= 10 Then
c_real = (Cal * 100) / ganancia
If c_real >= 80 Then
result = Cal * 0.048
Else
If c_real >= 75 Then
result = Cal * 0.045
...

y la consulta de actualizacion esta hecha con access 2007 con esta linea

UPDATE Tabla2 SET [comision real]

=AsignarValor([Porcentaje],[Granacia],[Costo Total]);

"Eduardo" escribió:

[Ju@nk]

Es de suponer que los campos [Porcentaje],[Granacia] y [Costo Total] de la
Tabla2 existen y tienen datos (ninguno es nulo), en la función no se ve que
tengas un control de errores, ¿está depurado el código? ¿utilizas Option
Explicit?

--
--
**
Colabora con el grupo, contesta a este mensaje y dinos si te sirvió o no la
respuesta dada.
Muchas gracias.

Salu2
Ju@nK [MVP Access]
http://juank.mvps.org
Correos personales o preguntas particulares en mi grupo
http://groups.google.es/group/juank
http://juankc.spaces.live.com/
http://juank.mvps.org/
www.juank.tk
www.mvp-access.com
¿Que es un MVP?, entérate en http://mvp.support.microsoft.com

Nota: El contenido de este mensaje, así como el código
fuente que pueda ir incluido en el mismo, se proporciona
«COMO ESTÁ», sin garantías de ninguna clase, y no otorga
derecho alguno. Usted asume cualquier riesgo al poner en
práctica, utilizar o ejecutar la sugerencia del presente mensaje.
**
"Eduardo" <Edu...@discussions.microsoft.com> escribió en el mensaje

news:3D761440-2F7D-4D2C...@microsoft.com...