제품 1, 제품 2 ... 등에서 값을 가져옵니다. VBA에서 루프가 있습니다.

Question

저는 VBA를 처음 사용하지만 잘하고 싶습니다.

나는 다른 클라이언트와 테이블을 가지고 있으며 모든 클라이언트는 자신의 ID를 가지고 있습니다.

표에서 모든 클라이언트는 다른 수의 제품을 구입합니다. 예를 들어 ID가 3 인 클라이언트는 3 개의 제품을 구입합니다. 표에서 product1, product2, product3으로 이름을 짓습니다.

Dim intTotal, totalCompra As Double 
Dim wApp As Word.Application 
Dim wDoc As Word.Document 
Dim rs As DAO.Recordset 
Dim cantidad As Integer 
Dim intCantidad As Integer 
Dim intPrecio As Double 

Set wApp = New Word.Application 
Set wDoc = wApp.Documents.Open("C:\...\factura_alcazaba.docx") 
Set rs = CurrentDb.OpenRecordset("Select * FROM Ventas_Alcazaba WHERE ID =" & idInt & ";") 

wDoc.Bookmarks("Name").Range.Text = Nz(rs!Nombre_cliente, "") 
wDoc.Bookmarks("NIF").Range.Text = Nz(rs!NIF, "") 
wDoc.Bookmarks("Fecha").Range.Text = Nz(rs!Fecha, "") 
cantidad = Nz(rs!Numero_productos, "") 

If Not IsEmpty(rs!Cantidad_prod1) Then 
    intCantidad = rs!Cantidad_prod1 
    wDoc.Bookmarks("cantidad1").Range.Text = Nz(rs!Cantidad_prod1, "") 
    wDoc.Bookmarks("descripcion1").Range.Text = Nz(rs!Descripcion_prod1, "") 
    intPrecio = rs!Precio_prod1 
    intTotal = intPrecio * intCantidad 
    totalCompra = totalCompra + intTotal 
    wDoc.Bookmarks("precio1").Range.Text = Nz(intPrecio, "") 
    wDoc.Bookmarks("prod1_total").Range.Text = Nz(intTotal, "") 
End If 

'For i = 1 To cantidad 
    'intCantidad = rs!Cantidad_prod + i 
    'wDoc.Bookmarks("cantidad" + i).Range.Text = Nz(rs!["Cantidad_prod" & i], "") 
    ' wDoc.Bookmarks("descripcion" & i).Range.Text = Nz(rs!["Descripcion_prod" + i], "") 
    ' intPrecio = Nz(rs!["Precio_prod" & i], "") 
    'intTotal = intPrecio * intCantidad 
    ' totalCompra = totalCompra + intTotal 
    ' wDoc.Bookmarks("precio1").Range.Text = Nz(intPrecio, "") 
    ' wDoc.Bookmarks("prod1_total").Range.Text = Nz(intTotal, "") 
'Next i 
wDoc.SaveAs2 "C:\Factura_" & rs!ID & ".docx" 

wDoc.Close False 
wApp.Quit 

만약 내가 테이블에 모든 값을 얻을 수 있다면. 그러나 이것은 매우 비효율적이며 루프로 처리하고 싶습니다. 하지만 다른 제품을 호출하는 방법을 모르겠지만 최종 번호 만 변경합니다.

Answer 1

이 같은 문자열 연결로 작업을 수행 할 수 있습니다

intCantidad = rs("Cantidad_prod" & i) 

을 여기처럼 :

wDoc.Bookmarks("descripcion" & i) 

그러나은이 나쁜 테이블 디자인처럼 보인다 주목해야한다. 고객이 5 개 제품을 구매하면 어떻게 될까요? 아니면 10?

제품 (또는 판매)은 고객에게 외래 키가있는 별도의 테이블이어야합니다.