بوعبد الله محفوظ قام بنشر يوليو 29, 2016 مشاركة قام بنشر يوليو 29, 2016 السلام عليكم ورحمة الله تعالى وبركاته أريد أن أقوم بتغير قيمة Frame12 حسب ساعة الكمبيوتر فإذا كانت الساعة بين 08 صباحا و 16 مساءا يقوم بتفعيل الخيار الأول وإذا كانت الساعة بين 16مساءا و 24ليلا يقوم بتفعيل الخيار الثاني وإذا كانت الساعة بين 24 ليلا و 08 صباحا يقوم بتفعيل الخيار الثالث قمت بإضافة textbox وقي القيمة الافتراضية جعلتها Time() بعد ذلك أضفت هذا الكود If 8 < Hour([Text23]) < 16 Then Me.Frame12.Value = 1 ElseIf 16 < Hour([Text23]) < 24 Then Me.Frame12.Value = 2 Else Me.Frame12.Value = 3 End If لكن دون فائدة Fram12.rar بارك الله فيكم وفي علمكم رابط هذا التعليق شارك More sharing options...
AlwaZeeR قام بنشر يوليو 30, 2016 مشاركة قام بنشر يوليو 30, 2016 وعليكم السلام ورحمة الله وبركاته تفضل اخي الكريم جرب ووافني بالنتيجة :: تحياتي Waz-Fram12.rar 2 رابط هذا التعليق شارك More sharing options...
بوعبد الله محفوظ قام بنشر يوليو 30, 2016 الكاتب مشاركة قام بنشر يوليو 30, 2016 (معدل) مشكورا أخونا الغالي alwazeer وبارك الله فيك وفي علمك ورزقك من فضله تم تعديل يوليو 30, 2016 بواسطه بوعبد الله محفوظ رابط هذا التعليق شارك More sharing options...
بوعبد الله محفوظ قام بنشر يوليو 30, 2016 الكاتب مشاركة قام بنشر يوليو 30, 2016 (معدل) 4 ساعات مضت, alwazeer said: وعليكم السلام ورحمة الله وبركاته تفضل اخي الكريم جرب ووافني بالنتيجة :: تحياتي Waz-Fram12.rar أخونا الكريم في الصباح لما جربت البرنامج اشتغل عادي لكن في المساء رفض يشتغل قمت بتغير ساعة الجهاز الى 09 صباحا ثم 10 صباحا لكن أيضا لم يشتغل وارجوا منك شرح بسيط للكود مع العلم أني استعمل نظام الساعات 24 لذا لم أفهم لماذا تم إدراج AM و PM في الكود وأيضا لقد وضعت الكود في Form_Load بهذه الطريقة هل ستتأثر المعلومات المخزنة من قبل أم لا مع جميل تحياتي تم تعديل يوليو 30, 2016 بواسطه بوعبد الله محفوظ رابط هذا التعليق شارك More sharing options...
AlwaZeeR قام بنشر يوليو 30, 2016 مشاركة قام بنشر يوليو 30, 2016 السلام عليكم ورحمة الله وبركاته الكود بسيط : يتم التركيز فيه على الساعات فقط بالرمز (h) بما انك تستخدم نظام 24 قم بازالة pm و am وسوف يعمل بدونهما ليصبح هكذا: If (DatePart("h", Me.Text23) >= 8 And DatePart("h", Me.Text23) <= 16) Then Me.Frame12.Value = 1 ElseIf (DatePart("h", Me.Text23) >= 16 And DatePart("h", Me.Text23) <= 24) Then Me.Frame12.Value = 2 Else Me.Frame12.Value = 3 End If اذا تم وضع الكود في حدث on load يتم تغيير المعلومة السابقة حال مررت عليها سواء بفتح السجل او التنقل بين السجلات :: تحياتي رابط هذا التعليق شارك More sharing options...
بوعبد الله محفوظ قام بنشر يوليو 30, 2016 الكاتب مشاركة قام بنشر يوليو 30, 2016 (معدل) للأسف الكود لم يشتغل عندي أنا الأن عندي الساعة 19 مساء والبرنامج يقوم بتفعيل الخير الثالث هل من طريقة آمنة لتفادي تغير المعلومات تم تعديل يوليو 30, 2016 بواسطه بوعبد الله محفوظ رابط هذا التعليق شارك More sharing options...
AlwaZeeR قام بنشر يوليو 30, 2016 مشاركة قام بنشر يوليو 30, 2016 جربت الكود عندي واشتغل 100% الان, بوعبد الله محفوظ said: هل من طريقة آمنة لتفادي تغير المعلومات لا تستخدمه في حدث On load جرب المرفق ولاحظ الصور فيه :: تحياتي waz-Fram12 (2).rar 2 رابط هذا التعليق شارك More sharing options...
بوعبد الله محفوظ قام بنشر يوليو 30, 2016 الكاتب مشاركة قام بنشر يوليو 30, 2016 جميل جدا آسف على الازعاج رابط هذا التعليق شارك More sharing options...
الردود الموصى بها
من فضلك سجل دخول لتتمكن من التعليق
ستتمكن من اضافه تعليقات بعد التسجيل
سجل دخولك الان