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.DatabaseDim rs As DAO.RecordsetDim bultos As Integer
Dim numped As Integer
Set db = CurrentDbDoCmd.RunSQL "DELETE * from [ETIQUETAS IMPRIMIR]"
Set rs = db.OpenRecordset("ETIQUETAS CANASTA", dbOpenDynaset)
Do While Not rs.EOFbultos = rs!cajas
numped = rs!IdPedido
Dim i As Byte
For i = 1 To bultosDoCmd.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.MoveNextDoEvents
Loop
rs.Closedb.CloseSet rs = NothingSet db = NothingEnd Sub
Valora esta pregunta
0