Access - LLEVAR DATOS A OTRO SITIO

   
Vista:

LLEVAR DATOS A OTRO SITIO

Publicado por maite (35 intervenciones) el 15/04/2013 01:25:50
Hola,

Tengo un formulario que es para facturar productos:: Tengo una consulta que me trae el precio de los productos para mostrarlos y que sean calculados con el iva etc..... pero tengo que llevarme la cifra original del precio del producto ACTUAL a una tabla para que se me quede como "historico" por posibles modificaciones del precio en el futuro::
En definitiva lo que necesito es (teniendo una consulta en mi formulario que me muestra los precios) ... necesito que la caja de texto que muestra el precio me guarde en OTRO REGISTRO DE OTRA TABLA el mismo precio.... como puedo hacer eso??

Os lo agradecería mucho porque estoy bloqueada en este punto.

Gracias
Valora esta pregunta
Me gusta: Está pregunta es útil y esta claraNo me gusta: Está pregunta no esta clara o no es útil
0
Responder
Imágen de perfil de Norberto

LLEVAR DATOS A OTRO SITIO

Publicado por Norberto (432 intervenciones) el 17/04/2013 13:19:18
Hola.

Puedes pasar el valor a otra tabla de la siguiente manera:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
Option Compare Database
Option Explicit
Dim antPrecio As Currency
 
Public Sub Form_BeforeUpdate(Cancel As Integer)
    Dim miSQL As String
 
    If Me.Precio <> antPrecio Then
        miSQL = "INSERT INTO [Historial de Precios] (IdArtículo, Fecha, Precio)" _
             & " VALUES (" & Me.IdArtículo & ", Now() , " & antPrecio & ")"
        DoCmd.SetWarnings False
        DoCmd.RunSQL miSQL
        DoCmd.SetWarnings True
    End If
End Sub
 
Private Sub Form_Current()
    antPrecio = Me.Precio
 
End Sub


En este caso la tabla [Historial de precios] tiene los camplos IdArtículo, Fecha y Precio, siendo la unión de los dos primeros la clave principal.


Un saludo.
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar