PDA

View Full Version : سوال: فال روزانه



laia56
دوشنبه 07 فروردین 1391, 16:30 عصر
با سلام خدمت دوستان
سئوالی دارم در مورد نمایش فال روزانه یا مثل آن در فرم اکسس
چندی قبل برنامه در اکسس دیدم که بصورت روزانه بیتی از دیوان حافظ را بعنوان فال روزانه در تکست باکسی نمایش میداد راستش خیلی مشتاقم بدانم چگونه این کار انجام میشود

RESMAILY
دوشنبه 07 فروردین 1391, 18:12 عصر
به نام خدا
با سلام نمونه زيررا بادستكاري مي توانيد بصورت دلخواه استفاده نماييد.

laia56
سه شنبه 08 فروردین 1391, 17:36 عصر
با تشکر از زحمت شما
البته بنده میخواهم روزانه بصورت تصادفی بیتی در تکست باکس در روی فرم نمایش داده شود

RESMAILY
سه شنبه 08 فروردین 1391, 18:24 عصر
به نام خدا
با سلام از همين نمونه مي توانيد استفاده كنيد. هم غزل ها شماره شناسايي دارد و هم ابيات. غزل ها تعدادشان مشخص است. مي شود پس از انتخاب غزل تعداد بيت ها پيدا كرد و سپس يك بيت تصادفي به روشي كه موجود است انتخاب نمود.

laia56
سه شنبه 08 فروردین 1391, 18:43 عصر
امکان دارد یک نمونه بگذارید

Abbas Amiri
سه شنبه 08 فروردین 1391, 18:50 عصر
با توجه به توصیه دوست عزیز RESMAILY (http://barnamenevis.org/member.php?12210-RESMAILY)
می توانید یک باتن ایجاد ودر رویداد کلیک آن بنویسید


Dim k As Integer
k = Int((Rnd * DMax("ghazalno", "Divan")) + 1)
DoCmd.ApplyFilter , "ghazalno = " & k

HASANDDD
چهارشنبه 11 شهریور 1394, 19:49 عصر
مشکل منو با فال روز (http://www.hoosheparsi.ir/tabid/245/Default.aspx) حل کردید واقعا ممنون

saeed1234n
چهارشنبه 11 شهریور 1394, 21:35 عصر
سلام

با تشکر از جناب امیری و دیگر دوستان

جالب بود

134857