باز شدن فرم در زمان خاص

[mehdipormaye]

با سلام خدمت اساتید محترم
اگر بخواهیم فرمی را در یک زمان خاص باز کنیم (مثلا در زمانی که در یک تکس باکس مشخص کرده ایم) باز شود از چه روشی باید استفاده کرد؟
با سپاس از اساتید محترم

[mazoolagh]

سلام و روز خوش
از رخداد ontimer فرم استفاده کنین.

برنامه های پیوست شده در تاپیک زیر رو ببینین:
نمایش رکوردها (https://barnamenevis.org/showthread.php?577003)

[mehdipormaye]

با سلام
ممنون از شما استاد
سوال بنده اینه که اگر در یک تکس باکس ساعتی را درج کنیم مثلا در تکس باکس ساعت 05:35:00 درج کنیم و بخواهیم فرم دیگری راس همین ساعت باز شود از چه روشی باید استفاده کنیم؟
سپاس از شما




سلام و روز خوش
از رخداد ontimer فرم استفاده کنین.

برنامه های پیوست شده در تاپیک زیر رو ببینین:
نمایش رکوردها (https://barnamenevis.org/showthread.php?577003)

[eb_1345]

با سلام
ممنون از شما استاد
سوال بنده اینه که اگر در یک تکس باکس ساعتی را درج کنیم مثلا در تکس باکس ساعت 05:35:00 درج کنیم و بخواهیم فرم دیگری راس همین ساعت باز شود از چه روشی باید استفاده کنیم؟
سپاس از شما
سلام
در نمونه ضمیمه بر روی فرم اصلی زمان جاری با فرمت "HH:NN:SS" در رویداد Form_Timer نمایش داده میشود در کد بعدی که بصورت زیر است زمان باز شدن فرم 1 مشخص شده است



If Split(lblTime.caption, ":")(0) = "05" And Split(lblTime.caption, ":")(1) = "35" And Split(lblTime.caption, ":")(2) = "00" Then DoCmd.OpenForm "form1"




در این کد ساعت رو بر روی 05 دقیقه رو بر روی 35 و ثانیه رو بر روی 00 تنظیم کرده ام. که شما میتوانید زمان مورد نظر خودت رو جایگزین اعداد فوق بکنی

بچای کد فوق از کد زیر هم میتونید استفاده کنی !


If Left(lblTime.caption, 2) = "05" And Mid(lblTime.caption, 4, 2) = "35" And Right(lblTime.caption, 2) = "00" Then DoCmd.OpenForm "form1"

[eb_1345]

نمونه جدیدتر رو بررسی کن !

[mehdipormaye]

با عرض سلام و ادب و احترام
بسیار عالی ، کاربردی و مفید بود
ممنون
استاد لطفا نمونه بنده رو بررسی و اگر امکان داره راهنمایی بفرمائید.
سپاسگزارم



نمونه جدیدتر رو بررسی کن !

[eb_1345]

با عرض سلام و ادب و احترام
بسیار عالی ، کاربردی و مفید بود
ممنون
استاد لطفا نمونه بنده رو بررسی و اگر امکان داره راهنمایی بفرمائید.
سپاسگزارم

سلام
کدهای زیر رو جایگزین کدهای قبلی در رویداد Form_Timer کن!


lblTime.caption = Time()
If Left(lblTime.caption, 2) = Left(zohr, 2) And Mid(lblTime.caption, 4, 2) = Mid(zohr, 4, 2) And Mid(lblTime.caption, 7, 2) = Mid(zohr, 7, 2) Then DoCmd.OpenForm "form1"



با این کدها دیگه نیازی به اون سه تا تکست باکسی که ساعت ، دقیقه و ثانیه رو جداگانه نمایش میده نیست

[mehdipormaye]

با سلام و هزاران سپاس استاد
ممنون از شما
عالی بود


سلام
کدهای زیر رو جایگزین کدهای قبلی در رویداد Form_Timer کن!


lblTime.caption = Time()
If Left(lblTime.caption, 2) = Left(zohr, 2) And Mid(lblTime.caption, 4, 2) = Mid(zohr, 4, 2) And Mid(lblTime.caption, 7, 2) = Mid(zohr, 7, 2) Then DoCmd.OpenForm "form1"



با این کدها دیگه نیازی به اون سه تا تکست باکسی که ساعت ، دقیقه و ثانیه رو جداگانه نمایش میده نیست