فرض کنین اسم جدول اولیه شما POSITION باشه،
اول یک جدول برای لیبل ها بسازین به اسم LABELS (فیلدها کاملا مشخصه).
در گزارش ساخت لیبل ها دیتا سورس رو جدول LABELS بگذارین.
حالا کد زیر رو در REPORT_OPEN گزارش (یا هر روتین دیگه که قبل از باز کردن گزارش اجرا میشه) بگذارین:
DOCMD.RUNSQL "DELETE FROM LABELS"
DIM RS1,RS2 AS RECORDSET
SET RS1=CURRENTDB.OPENRECORDSET("POSITION")
SET RS2=CURRENTDB.OPENRECORDSET("LABELS")
DIM i AS INTEGER
DO WHILE NOT RS1.EOF
FOR i=1 TO RS1!BooksCount
RS2.ADDNEW
RS2!Subject=RS1!Subject
RS2!Shelf=RS1!Shelf
RS2!Row=RS1!Row
RS2!BookNumber=i
RS2.Update
NEXT
RS1.MOVENEXT
LOOP
RS1.CLOSE
RS2.CLOSE
SET RS1=NOTHING
SET RS2=NOTHING
پاسخ با نقل قول
نوشته شده توسط alibadri313
