استفاده از حلقه تکرار

[Masoud.eh]

سلام خدمت دوستان و استید گرامی
فرم دیتاشیتی دارم که با sql ارتباط داده شده با جدول، چون تعداد فیلدها زیاده میخوام با حلقه تکرار و کمتر کردن کدنویسی ControlSource فیلدها رو با sql ارتباط بدم.(نمیدونم منظورمو رسوندم)
البته توی تصویر توضیح دادم.
ممنون میشم راهنمایی بفرمائید.

156280

[eb_1345]

سلام
کدها رو بصورت زیر تغییر بده ببین جواب میده !


Dim fld
For Each fld In Form_frmper.Recordset.Fields
Form_frmper.Controls(fld.Name) = fld.Value
Next

[Masoud.eh]

سلام
ممنونم بابت پاسختون
ولی این کد فقط رکورد اول رو برمیگردونه و برای Single Form جواب میده، در Datasheet Form کل لیست میشه رکورد اول (رکورد اول تا پایین لیست تکرار میشه)

[eb_1345]

سلام
ممنونم بابت پاسختون
ولی این کد فقط رکورد اول رو برمیگردونه و برای Single Form جواب میده، در Datasheet Form کل لیست میشه رکورد اول (رکورد اول تا پایین لیست تکرار میشه)

فکر کنم کد زیر جواب بده:


Dim fld
For Each fld In Form_frmper.Recordset.Fields
Form_frmper.Controls(fld.Name).ControlSource = fld.Name
Next

[Masoud.eh]

ممنونم دوست عزیز
جواب داد

[mazoolagh]

سلام و روز خوش
البته به مورد سئوال ربطی نداره،
ولی اون کد sql که در تصویر دیده میشه جدای از این که ریسک sql injection داره،
بیش از اندازه پیچیده است!

[Masoud.eh]

سلام و روز خوش
البته به مورد سئوال ربطی نداره،
ولی اون کد sql که در تصویر دیده میشه جدای از این که ریسک sql injection داره،
بیش از اندازه پیچیده است!

سلام
راهی برای ساده تر کردن کدهای Sql هست؟

[mazoolagh]

سلام دوباره
آره - حتما هست.
دیتا نمونه و خروجی مورد نظر رو پیوست کنین.
دیتا لازم نیست واقعی باشه - ولی ساختارش همینی باشه که دارین،
خروجی مورد نظر رو هم بصورت جدول بگذارین و نه اسکرین شات.
اگر فرم هم لازم هست در پیوست باشه - کلا مینیمم چیزی که داستان رو بیان کنه.