تغییر caption

[karmand]

تعداد 50 لیبل روی صفحه دارم بنام L1 تا L50
میخواهم در یک _NEXT _ FOR تمام CAPTION های این لیبل ها را عوض کنم
البته captionها را در هر چرخش با رکوردست از یک جدول برمیدارم
متشکرم

[انگوران]

نميشه يه فرم از جدولت داشته باشي و اونو بصورت hidden باز كني و ليبلها رو بصورت زير به فرم بوند كني ؟

forms!formname!fieldname

[M.Javad]

Dim DB As Database
Dim Rst As DAO.Recordset
Set DB = CurrentDb
Set Rst = DB.OpenRecordset("نام جدول")
for i=1 to 50
1-me.L&i.caption=Rst.Fields(i)
nexi i

این کد کپشن لیبلهای موجود در فرم جاری را از 1 تا 50 برابر فیلد 1 تا 50 رکورد از جدول مورد نظر قرار می دهد
اگر در صدد قرار دادن کپشن برابر یک فیلد خاصی از جدول مورد نظر که حاوی 50 رکورد است باشید قسمت دوم کد را به شکل زیر تغییر دهید

for i=1 to 50
me.L&i.caption=Rst.Fields("شماره فیلد مورد نظر")
rst.movenext
nexi i

البته لازم به ذکر است که شماره فیلد در جداول از 0 شروع می شود

[karmand]

با تشکر
تست کرده بودم
اجرا نمیشود
منطقی نیست چون ما بعد از me. باید نام اشیاء را بیاوریم و vb حساب می کند که & نیز جزو نام است

[M.Javad]

ببینید این به دردتون می خوره یا نه؟