Consulta de creación de tabla
Publicado por Juanjo (37 intervenciones) el 10/10/2021 12:30:54
Hola a todos y gracias de antemano por la ayuda.
En el siguiente código recorro los registros de una consulta y los pego "n" veces cada uno de ellos en una nueva tabla. Todo va bien porque no tengo errores pero el problema surge porque en el DoCmd.RunSQL "INSERT INTO ... necesito utilizar en el WHERE el criterio numped que es un valor establecido en el código pero no lo reconoce.
Espero haberme explicado bien. ¿Alguien me puede ayudar?. Gracias
En el siguiente código recorro los registros de una consulta y los pego "n" veces cada uno de ellos en una nueva tabla. Todo va bien porque no tengo errores pero el problema surge porque en el DoCmd.RunSQL "INSERT INTO ... necesito utilizar en el WHERE el criterio numped que es un valor establecido en el código pero no lo reconoce.
Espero haberme explicado bien. ¿Alguien me puede ayudar?. Gracias
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
Private Sub Comando199_Click()
Dim db As DAO.Database
Dim rs As DAO.Recordset
Dim bultos As Integer
Dim numped As Integer
Set db = CurrentDb
DoCmd.RunSQL "DELETE * from [ETIQUETAS IMPRIMIR]"
Set rs = db.OpenRecordset("ETIQUETAS CANASTA", dbOpenDynaset)
Do While Not rs.EOF
bultos = rs!cajas
numped = rs!IdPedido
Dim i As Byte
For i = 1 To bultos
DoCmd.RunSQL "INSERT INTO [ETIQUETAS IMPRIMIR] SELECT PEDIDOS.FechaFabrica, [DETALLE PEDIDOS].IdPedido, PRODUCTOS.Producto, [DETALLE PEDIDOS].CantidadP AS Cajas " & _
"FROM PEDIDOS INNER JOIN (PRODUCTOS INNER JOIN ([DETALLE PRODUCTOS] INNER JOIN [DETALLE PEDIDOS] ON [DETALLE PRODUCTOS].IdDetalleProducto = [DETALLE PEDIDOS].IdDetallePro) ON PRODUCTOS.IdProducto = [DETALLE PRODUCTOS].IdProducto) ON PEDIDOS.IdPedido = [DETALLE PEDIDOS].IdPedido " & _
"WHERE (((PEDIDOS.FechaFabrica)=#10/8/2021#) AND (([DETALLE PEDIDOS].IdPedido)=numped))"
Next
rs.MoveNext
DoEvents
Loop
rs.Close
db.Close
Set rs = Nothing
Set db = Nothing
End Sub
Valora esta pregunta
0