برچسب چشمک زن روي فرم با ايجاد شرايط خاص

[abdoreza57]

با سلام خدمت تمامي اساتيد محترم در نمونه آپ شده چطورمي تونم روي فرمم يک برچسب چشمک زن قرار بدهم كه طبق شرايط خاصي شروع به آلارم كنند

[انگوران]

در رويداد On Timer فرم كد زير رو بنويس و با شرط مورد نظر خصوصيت Timer interval فرم رو برابر 1000 كن.

me.Lable Name.visible=Not me.Labale Name.visible

[abdoreza57]

در رويداد On Timer فرم كد زير رو بنويس و با شرط مورد نظر خصوصيت Timer interval فرم رو برابر 1000 كن.

me.Lable Name.visible=Not me.Labale Name.visible[/QUOTE]

جناب انگوران عزيز كه واقعا با كتاب 200 پرسش و پاسخ اكسس در اين انجمن شاهكاري خلق كرديد ضمن تشكر و سپاس فراوان از كتاب مفيدي كه تدارك ديده ايد درخواست خريد را هم امروز زدم
اما خواهشي كه دارم اين مورد را نتونستم خودم درست كنم اگه لطف كني و تو نمونه برام اصلاحش كني ممنون مي شم

[انگوران]

دوست عزيز، كد زير رو جايگزين كن:

If Second(Time() Mod 2) = 0 Then
If Me.shal > 2000 Then Me.shal.Visible = Not Me.shal.Visible
If Me.piran > 500 Then Me.piran.Visible = Not Me.piran.Visible
If Me.kot > 200 Then Me.kot.Visible = Not Me.kot.Visible
End If

[abdoreza57]

ممنون از جوابتون
آيا راهي هست كه بتونم اين شرطها را بدون كد نويسي تغيير دهم
تو نمونه اي كه گذاشتم يك فرم ديگه را طراحي كردم كه بتونم اين شرايط را مطابق سليقه خودم تغيير دهم
اگه امكانش هست برام اصلاحش كن بازم از لطفت ممنونم

[انگوران]

فرم Frm_Setting رو به عنوان سابفرم روي فرم اصلي قرار بده و كد زير رو جايگزين كد قبلي كن. اگه نيازه بفرماييد نمونه بذارم.

If Second(Time() Mod 2) = 0 Then
If Me.Frm_Setting!nshal > 2000 Then Me.shal.Visible = Not Me.shal.Visible
If Me.Frm_Setting!npiran > 300 Then Me.piran.Visible = Not Me.piran.Visible
If Me.Frm_Setting!nkot > 200 Then Me.kot.Visible = Not Me.kot.Visible
End If

[abdoreza57]

با سپاس از جواب سريعتان
انگوران عزيز ببخشيد سوالم را اينطور مطرح مي كنم كه: تو نمونه فعلي كه آپ كردم مقادير داخل كد نياز نيست و همچنين فرم را نمي خواهم به عنوان ساب فرم قرار بدهم بلكه در اين فرم كاربر مقادير مورد نظر خود را وارد مي كند كه برنامه در آن شرايط شروع به آلارم نمايد
با اين اوصاف آيا امكان اصلاح نمونه برايتان مقدور هست يا خير ؟ با تشكر

[انگوران]

دوست عزيز بالاخره مقدار داخل كد بايد از يه جايي خونده بشه و براي اين منظور يا بايد فرم تنظيمات باز باشه و يا بصورت سابفرم استفاده بشه. نمونه رو ببين.

[abdoreza57]

انگوران عزيز از اينكه حوصله به خرج دادي و جواب دادي ممنون
در ضمن باز هم از بابت كتاب پرمحتوات ممنون واقعا خسته نباشيد
در ضمن اميدوارم اين كتاب را بتوني كامل كني چون هنوز موارد بسيار زيادي تو اكسس هست كه ميشه به عنوان تيتر قابل توضيح تو كتابت بياري