نمایش اطلاعات یک جدول در یک بازه زمانی مشخص به صورت تیزر وار [بایگانی]

reza_1199

شنبه 28 بهمن 1402, 02:24 صبح

سلام و عرض ادب خدمت دوستان و اساتید برجسته
دوستان در نمونه پیوستی می خواستم اطلاعات یک جدول رو که یکی از فیلدهاش تاریخ است به صورت تیزر وار درون یک تکست باکس بروی فرم نمایش بده البته فیلدهایی که برابر با تاریخ جاری سیستم هست یه مقدار کدهایی براش نوشتم ولی متاسفانه ایراد گرفت ممنون میشم اساتید یه نگاهی بندازن . سپاس

eb_1345

شنبه 28 بهمن 1402, 04:46 صبح

سلام و عرض ادب خدمت دوستان و اساتید برجسته
دوستان در نمونه پیوستی می خواستم اطلاعات یک جدول رو که یکی از فیلدهاش تاریخ است به صورت تیزر وار درون یک تکست باکس بروی فرم نمایش بده البته فیلدهایی که برابر با تاریخ جاری سیستم هست یه مقدار کدهایی براش نوشتم ولی متاسفانه ایراد گرفت ممنون میشم اساتید یه نگاهی بندازن . سپاس

سلام
خطا بخاطر استفاده از تک کوتیشن در فیلد عددی تاریخ و نوشتن Text2 بصورت Text2.Text میباشد .

Set db = CurrentDb
Set rst = db.OpenRecordset("SELECT * from personal WHERE (d=" & Text0 & ")")
Do While Not rst.EOF
Text2 = Text2 & rst!eb & vbNewLine
rst.MoveNext
Loop
rst.Close
db.Close

eb_1345

شنبه 28 بهمن 1402, 05:52 صبح

..........................

reza_1199

شنبه 28 بهمن 1402, 11:50 صبح

ممنون استاد بخاطر وقتی که گذاشتین. دستتون درد نکنه
استاد با چه کدی میتونم حالا اون رکوردها رو به صورت تک به تک نمایش بدم بطوریکه به فرض رکورد اول تو اون تاریخ مدت ۱۰ ثانیه نمایش داده بشه و بعد رکوردهای بعدی تا زمانی که به آخر برسه و بعد از اتمام دوباره از اول شروع به نمایش کنه .
ممنون از حسن توجهتون

eb_1345

شنبه 28 بهمن 1402, 16:04 عصر

ممنون استاد بخاطر وقتی که گذاشتین. دستتون درد نکنه
استاد با چه کدی میتونم حالا اون رکوردها رو به صورت تک به تک نمایش بدم بطوریکه به فرض رکورد اول تو اون تاریخ مدت ۱۰ ثانیه نمایش داده بشه و بعد رکوردهای بعدی تا زمانی که به آخر برسه و بعد از اتمام دوباره از اول شروع به نمایش کنه .
ممنون از حسن توجهتون
سلام
نمونه ضمیمه رو بررسی کن!
فقط برای اینکه نتیجه رو زودتر ببینی TimerInterval بر روی 1000 تنظیم کرده ام برای 10 ثانیه اون رو به 10000 تغییر بده

reza_1199

شنبه 28 بهمن 1402, 17:17 عصر

ممنون استاد بابت اصلاح فایل تقریبا همون چیزی بود که مد نظرم بود فقط آقای بهرامی بزرگوار همه موارد رو داخل تکست باکس ردیف میکنه و من میخواستم مورد اول رو نشون بده و بعد از به فرض 10 ثانیه مورد اول مدتش که تموم شد از تکست باکس به نوعی حذف بشه و مورد دوم رو نشون بده و این روال ادامه پیدا کنه تا آخر و در آخر باز بیاد سر وقت رکورد اول و الی ...
باز به خاطر وقتیکه صرف کردین تشکر میکنم . یاشااااااااااااااااااا:خج� �لت::خجالت::خجالت:

eb_1345

شنبه 28 بهمن 1402, 17:35 عصر

من میخواستم مورد اول رو نشون بده و بعد از به فرض 10 ثانیه مورد اول مدتش که تموم شد از تکست باکس به نوعی حذف بشه و مورد دوم رو نشون بده و این روال ادامه پیدا کنه تا آخر و در آخر باز بیاد سر وقت رکورد اول و الی ...

دقیقاً متوجه منظورتون نمیشم
یعنی میخواهی تکست باکس در هر 10 ثانیه یک رکورد نمایش بده ؟ در اینصورت دیگه نیازی به vbNewLine جهت ایجاد خط بعدی نمیباشه

reza_1199

شنبه 28 بهمن 1402, 17:43 عصر

دقیقا آقای بهرامی عزیر . وقتی دستور vbNewLine رو بر میدارم رکوردها به صورت زیر ردیف میشن
هوای تردهوای ساید و ....

reza_1199

شنبه 28 بهمن 1402, 17:56 عصر

آقای بهرامی عزیز و بزرگوار .مثل همیشه از توجهتون و پاسختون واقعا ممنونم با اضافه کردن me.text2="" به دستورات نوشته شده توسط شما حل شد . ممنون و سپاس
TxtTimer = IntTimer
If IntTimer = IntCount Then IntTimer = -1
If TxtTimer = 0 Then Text2 = ""
IntTimer = IntTimer + 1
If IntTimer = 1 Then
Text2 = DLookup("eb", "personal", "id = " & TxtTimer & " and d=" & Text0 & "")
Else
Me.Text2 = ""
Text2 = Text2 & DLookup("eb", "personal", "id = " & TxtTimer & " and d=" & Text0 & "")
End If

reza_1199

شنبه 28 بهمن 1402, 19:22 عصر

استاد بهرامی یه موردی : وقتی رکوردی رو که پشت سر رکوردهای دیگه و با همان تاریخ قرار داره عوض میکنی (به فرض 14021128 ) اون رو نشون میده و درست عمل میکنه ولی اگر از وسط رکوردها یا آخرش مقدار تاریخ رکوردی رو عوض کنی دیگه اون رو نمایش نمیده . دلیلش چی میتونه باش (به نظرم شماره ردیف ID تاثیر میزاره ) ممنون

eb_1345

یک شنبه 29 بهمن 1402, 00:36 صبح

نمونه اصلاح شده جدید رو بررسی کن !

eb_1345

یک شنبه 29 بهمن 1402, 07:03 صبح

براش پروگراس بار هم بکار برده بشه جذابتر میشه . بطوریکه درصد پیشرفت پرورگراس بار با افزایش رکورد اضافه و پس از رسیدن به 100 درصد از اول شروع بشه

reza_1199

یک شنبه 29 بهمن 1402, 10:07 صبح

سلام و عرض ادب خدمت استاد بهرامی . واقعا در یک کلام بخوام بگم کاااااارتون عالیه استاد دستتون درد نکنه . در مورد پروگرس بار فکر نکنم سواد علمی من برسه با همین سر میکنیم ( اگر خودتون در فرصتی که براتون دست میده اضافه کنین تا بجث تکمیل بشه و امثال ما کارآموز ها از شما یاد بگیریم هزاران بار قدردان خواهیم بود ) یاااااشاااااا اللرون واااااار:تشویق::تشویق::تشوی� �::تشویق::تشویق::تشویق:

eb_1345

یک شنبه 29 بهمن 1402, 10:10 صبح

نمونه جدید با پروگراس بار و درج تصویر در پس زمینه تکست باکس
حتی برای جذابیت بیشتر میشه تصاویری متناسب با عنوان هر رکورد رو تهیه کرد که با تغییر رکورد تصویر مربوطه هم تغییر کنه.

eb_1345

یک شنبه 29 بهمن 1402, 15:55 عصر

نمونه جدیدتر با تغییر تصویر پس زمینه

eb_1345

یک شنبه 29 بهمن 1402, 16:43 عصر

بالاخره برای جلوگیری از آلزایمر در این دوران پیری و بازنشستگی باید یجورائی خودمون رو مشغول کنیم:لبخندساده:

reza_1199

یک شنبه 29 بهمن 1402, 20:24 عصر

با عرض سلام خدمت استاد بهرامی بزرگوار و خسته نباشید بهتون میگم . واقعا از فایل ارسالیتون لذت بردم و یکی از یکی بهتر و پر از ایده و جذابیت بود و از این بابت از شما کمال تشکر رو دارم که این چنین بی منت و در اسرع وقت نمونه های متعدد رو ارسال کردین واقعا دمتون گرم . والا منم 5 ساله بازنشست شده ام و در حد مبتدی خوب بعضی وقتا بخاطر اینکه خودمو به چالش بکشم یه کارایی میکنم هر چند با تخصص اصلیم فاصله داره و اینکه در این ایام باید ذهنمونو به چالش بکشیم کاملا موافقم . واقعا کارتون درسته انشاله سر بلند تندرست باشین

eb_1345

یک شنبه 29 بهمن 1402, 21:11 عصر

با عرض سلام خدمت استاد بهرامی بزرگوار و خسته نباشید بهتون میگم . واقعا از فایل ارسالیتون لذت بردم و یکی از یکی بهتر و پر از ایده و جذابیت بود و از این بابت از شما کمال تشکر رو دارم که این چنین بی منت و در اسرع وقت نمونه های متعدد رو ارسال کردین واقعا دمتون گرم . والا منم 5 ساله بازنشست شده ام و در حد مبتدی خوب بعضی وقتا بخاطر اینکه خودمو به چالش بکشم یه کارایی میکنم هر چند با تخصص اصلیم فاصله داره و اینکه در این ایام باید ذهنمونو به چالش بکشیم کاملا موافقم . واقعا کارتون درسته انشاله سر بلند تندرست باشین
سلام آقا رضای عزیز!
از لطف شما سپاسگزارم
ان شاءالله همیشه در کلیه مراحل زندگی سالم و سربلند باشین!

reza_1199

پنج شنبه 17 اسفند 1402, 20:37 عصر

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

eb_1345

پنج شنبه 17 اسفند 1402, 22:10 عصر

فقط مشکل اینه که فیلدهایی که از جداول وارد تیبل میشه
سلام
فکر کنم منظور شما از فیلد همون رکورد باشه
ابتدا بجای Private در سابروتین رویداد Form_Load فرم تیزر از Public استفاده کن !
بعد در آن جائی که کد اضافه شدن رکورد به جدول بکار رفته در انتهای آن کدها دو خط کد زیر رو اضافه کن

Form_Form1.TxtTimer1 = 0
Form_Form1.Form_Load

البته من در اینجا فرض کرده ام که در برنامه ات نام فرمی تیزر شما هنوز form1 است و اگر نام فرم رو تغییر داده ای نام جدید رو جایگزین کن!

reza_1199

پنج شنبه 17 اسفند 1402, 22:38 عصر

سلام شبتون به خیر استاد بهرامی . ممنون بابت لطفتون حل شد