hola,
tengo el siguiente problema y espero que ayudeis a solucionarlo...
tengo una bd en access en la cual he creado una serie de tablas y de una de ellas he creado una consulta. luego he creado un informe en el cual tengo un cuadro de texto que quiero que me saque un resultado teniendo en cuenta diferentes campos, el procedimiento que he escrito es el siguiente:
tipoenvio; tipopago;peso;medidas1;medidas2;medidas3 son campos de la consulta(tampoco se si se debe poner así o no)
Sub Precio()
Dim Precio
Select Case TipoEnvio:
Case 1:
If TipoPago = CD Then
If Peso <= 15 And (Medidas1 * Mdidas2 * Medidas3 * 3 / 10000) <= 15 Then
Precio = 1.8
Else
Exceso1 = Abs(Peso - (Medidas1 * Mdidas2 * Medidas3 * 3 / 10000))
Precio = 3.01 + 0.03 * Exceso1
End
End
Select Case TipoEnvio:
Case 30:
If TipoPago = CD Then
If Peso <= 15 And (Medidas1 * Mdidas2 * Medidas3 * 3 / 10000) <= 15 Then
Precio = 1.8
Else
Exceso1 = Abs(Peso - (Medidas1 * Mdidas2 * Medidas3 * 3 / 10000))
Precio = 3.01 + 0.03 * Exceso1
End
End
Select Case TipoEnvio:
Case 32:
If TipoPago = CD Then
If Peso <= 15 And (Medidas1 * Mdidas2 * Medidas3 * 3 / 10000) <= 15 Then
Precio = 1.8
Else
Exceso1 = Abs(Peso - (Medidas1 * Mdidas2 * Medidas3 * 3 / 10000))
Precio = 3.01 + 0.03 * Exceso1
End
End
Select Case TipoEnvio:
Case 31:
If TipoPago = CD Then
If Peso <= 15 And (Medidas1 * Mdidas2 * Medidas3 * 2 / 10000) <= 15 Then
Precio = 1.8
Else
Exceso1 = Abs(Peso - (Medidas1 * Mdidas2 * Medidas3 * 2 / 10000))
Precio = 3.01 + 0.03 * Exceso1
End
End
Return
End Sub
cuando ejecuto toda esta maraña el cuadro de texto (que he puesto en el =Precio()no se si se pone así en el cuadro de texto)me responde #¿Nombre?
espero que me podais solucionar este para mí un gran problema, gracias de antemano,
un saludo,
z_g_sabina
