سلام و عرض ادب خدمت دوستان و اساتید برجسته
دوستان در نمونه پیوستی می خواستم اطلاعات یک جدول رو که یکی از فیلدهاش تاریخ است به صورت تیزر وار درون یک تکست باکس بروی فرم نمایش بده البته فیلدهایی که برابر با تاریخ جاری سیستم هست یه مقدار کدهایی براش نوشتم ولی متاسفانه ایراد گرفت ممنون میشم اساتید یه نگاهی بندازن . سپاس
سلامنوشته شده توسط reza_1199
خطا بخاطر استفاده از تک کوتیشن در فیلد عددی تاریخ و نوشتن 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 در 11:49 صبح
ممنون استاد بخاطر وقتی که گذاشتین. دستتون درد نکنه
استاد با چه کدی میتونم حالا اون رکوردها رو به صورت تک به تک نمایش بدم بطوریکه به فرض رکورد اول تو اون تاریخ مدت ۱۰ ثانیه نمایش داده بشه و بعد رکوردهای بعدی تا زمانی که به آخر برسه و بعد از اتمام دوباره از اول شروع به نمایش کنه .
ممنون از حسن توجهتون
سلام
نمونه ضمیمه رو بررسی کن!
فقط برای اینکه نتیجه رو زودتر ببینی TimerInterval بر روی 1000 تنظیم کرده ام برای 10 ثانیه اون رو به 10000 تغییر بده
ممنون استاد بابت اصلاح فایل تقریبا همون چیزی بود که مد نظرم بود فقط آقای بهرامی بزرگوار همه موارد رو داخل تکست باکس ردیف میکنه و من میخواستم مورد اول رو نشون بده و بعد از به فرض 10 ثانیه مورد اول مدتش که تموم شد از تکست باکس به نوعی حذف بشه و مورد دوم رو نشون بده و این روال ادامه پیدا کنه تا آخر و در آخر باز بیاد سر وقت رکورد اول و الی ...
باز به خاطر وقتیکه صرف کردین تشکر میکنم . یاشااااااااااااااااااا
دقیقاً متوجه منظورتون نمیشم
یعنی میخواهی تکست باکس در هر 10 ثانیه یک رکورد نمایش بده ؟ در اینصورت دیگه نیازی به vbNewLine جهت ایجاد خط بعدی نمیباشه
دقیقا آقای بهرامی عزیر . وقتی دستور vbNewLine رو بر میدارم رکوردها به صورت زیر ردیف میشن
هوای تردهوای ساید و ....
آقای بهرامی عزیز و بزرگوار .مثل همیشه از توجهتون و پاسختون واقعا ممنونم با اضافه کردن 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
استاد بهرامی یه موردی : وقتی رکوردی رو که پشت سر رکوردهای دیگه و با همان تاریخ قرار داره عوض میکنی (به فرض 14021128 ) اون رو نشون میده و درست عمل میکنه ولی اگر از وسط رکوردها یا آخرش مقدار تاریخ رکوردی رو عوض کنی دیگه اون رو نمایش نمیده . دلیلش چی میتونه باش (به نظرم شماره ردیف ID تاثیر میزاره ) ممنون
آخرین ویرایش به وسیله reza_1199 : شنبه 28 بهمن 1402 در 19:34 عصر
نمونه اصلاح شده جدید رو بررسی کن !
براش پروگراس بار هم بکار برده بشه جذابتر میشه . بطوریکه درصد پیشرفت پرورگراس بار با افزایش رکورد اضافه و پس از رسیدن به 100 درصد از اول شروع بشه
سلام و عرض ادب خدمت استاد بهرامی . واقعا در یک کلام بخوام بگم کاااااارتون عالیه استاد دستتون درد نکنه . در مورد پروگرس بار فکر نکنم سواد علمی من برسه با همین سر میکنیم ( اگر خودتون در فرصتی که براتون دست میده اضافه کنین تا بجث تکمیل بشه و امثال ما کارآموز ها از شما یاد بگیریم هزاران بار قدردان خواهیم بود ) یاااااشاااااا اللرون واااااار
نمونه جدید با پروگراس بار و درج تصویر در پس زمینه تکست باکس
حتی برای جذابیت بیشتر میشه تصاویری متناسب با عنوان هر رکورد رو تهیه کرد که با تغییر رکورد تصویر مربوطه هم تغییر کنه.
نمونه جدیدتر با تغییر تصویر پس زمینه
آخرین ویرایش به وسیله eb_1345 : یک شنبه 29 بهمن 1402 در 16:06 عصر
بالاخره برای جلوگیری از آلزایمر در این دوران پیری و بازنشستگی باید یجورائی خودمون رو مشغول کنیم
با عرض سلام خدمت استاد بهرامی بزرگوار و خسته نباشید بهتون میگم . واقعا از فایل ارسالیتون لذت بردم و یکی از یکی بهتر و پر از ایده و جذابیت بود و از این بابت از شما کمال تشکر رو دارم که این چنین بی منت و در اسرع وقت نمونه های متعدد رو ارسال کردین واقعا دمتون گرم . والا منم 5 ساله بازنشست شده ام و در حد مبتدی خوب بعضی وقتا بخاطر اینکه خودمو به چالش بکشم یه کارایی میکنم هر چند با تخصص اصلیم فاصله داره و اینکه در این ایام باید ذهنمونو به چالش بکشیم کاملا موافقم . واقعا کارتون درسته انشاله سر بلند تندرست باشین
سلام آقا رضای عزیز!
از لطف شما سپاسگزارم
ان شاءالله همیشه در کلیه مراحل زندگی سالم و سربلند باشین!
با عرض سلام خدمت استاد بهرامی .استاد موردی در مورد نمونه بود که خواستم کمکم کنید ( به فرض در نمونه پست شماره 15 ) من نمونه اصلاحی شما را در برنامه ام استفاده کردم و در داخل فرم اصلی دقیقا اون چیزی که مد نظرم بوده در اومده ( تشکر مجدد بابت این کارتون ) فقط مشکل اینه که فیلدهایی که از جداول وارد تیبل میشه که مربوط به نمایش اونها در فرم اصلی است همزمان وارد سیکل نمایش به صورت اتوماتیک نمیشه و اگر یه بار فرم رو ببندیم و باز کنیم اون فیلدهای جدید شروع به نمایش میشه ممنون میشم در این مورد کمکم کنید . سپاس
سلام
فکر کنم منظور شما از فیلد همون رکورد باشه
ابتدا بجای Private در سابروتین رویداد Form_Load فرم تیزر از Public استفاده کن !
بعد در آن جائی که کد اضافه شدن رکورد به جدول بکار رفته در انتهای آن کدها دو خط کد زیر رو اضافه کن
Form_Form1.TxtTimer1 = 0
Form_Form1.Form_Load
البته من در اینجا فرض کرده ام که در برنامه ات نام فرمی تیزر شما هنوز form1 است و اگر نام فرم رو تغییر داده ای نام جدید رو جایگزین کن!
سلام شبتون به خیر استاد بهرامی . ممنون بابت لطفتون حل شد
قوانین ایجاد تاپیک در تالار
پاسخ با نقل قول