hh88 قام بنشر ديسمبر 28, 2017 مشاركة قام بنشر ديسمبر 28, 2017 السلام عليكم ورحمة الله وبركاتة هل يوجد طريقة بكود ما لجعل الحقول الفارغة في الفورم تكون بلون يضهر ويختفي لتنبيه المستخدم بتعبئتها (text box to flash ) ولكم جزيل الشكر رابط هذا التعليق شارك More sharing options...
jjafferr قام بنشر ديسمبر 28, 2017 مشاركة قام بنشر ديسمبر 28, 2017 وعليكم السلام في اعدادات النموذج ، نطلب من النموذج الذهاب الى الوحدة النمطية Color_Nulls كل ثانية (1000 معناه ثانية) ، وبهذه الطريقة لا تحتاج ان تضع الكود في كل نموذج ،وانما تعمله من هذه الاعدادات ، وستلاحظ ان النموذجين يعملان (المرفق فيه نموذجين) . وهذه الوحدة النمطية المسؤولة عن العمل Public Function Color_Nulls() Dim frm As Form Dim ctrl As Control Set frm = Screen.ActiveForm For Each ctrl In frm.Controls If ctrl.ControlType = acTextBox Then If Len(ctrl.Value & "") = 0 Then ctrl.BackColor = IIf(ctrl.BackColor = vbWhite Or ctrl.BackColor = vbBlue, vbRed, vbBlue) End If End If Next End Function جعفر 829.Flash_BG.mdb.zip 4 1 رابط هذا التعليق شارك More sharing options...
hh88 قام بنشر ديسمبر 28, 2017 الكاتب مشاركة قام بنشر ديسمبر 28, 2017 7 hours ago, jjafferr said: وعليكم السلام في اعدادات النموذج ، نطلب من النموذج الذهاب الى الوحدة النمطية Color_Nulls كل ثانية (1000 معناه ثانية) ، وبهذه الطريقة لا تحتاج ان تضع الكود في كل نموذج ،وانما تعمله من هذه الاعدادات ، وستلاحظ ان النموذجين يعملان (المرفق فيه نموذجين) . وهذه الوحدة النمطية المسؤولة عن العمل Public Function Color_Nulls() Dim frm As Form Dim ctrl As Control Set frm = Screen.ActiveForm For Each ctrl In frm.Controls If ctrl.ControlType = acTextBox Then If Len(ctrl.Value & "") = 0 Then ctrl.BackColor = IIf(ctrl.BackColor = vbWhite Or ctrl.BackColor = vbBlue, vbRed, vbBlue) End If End If Next End Function جعفر 829.Flash_BG.mdb.zip الف مليون شكر استاذي الكريم جعفر على ماتقدمه وسهولة التبسيط في إيصال المعلومة الله يوفقك ويسعدك حبيبنا 1 رابط هذا التعليق شارك More sharing options...
hh88 قام بنشر ديسمبر 29, 2017 الكاتب مشاركة قام بنشر ديسمبر 29, 2017 22 hours ago, jjafferr said: وعليكم السلام في اعدادات النموذج ، نطلب من النموذج الذهاب الى الوحدة النمطية Color_Nulls كل ثانية (1000 معناه ثانية) ، وبهذه الطريقة لا تحتاج ان تضع الكود في كل نموذج ،وانما تعمله من هذه الاعدادات ، وستلاحظ ان النموذجين يعملان (المرفق فيه نموذجين) . وهذه الوحدة النمطية المسؤولة عن العمل Public Function Color_Nulls() Dim frm As Form Dim ctrl As Control Set frm = Screen.ActiveForm For Each ctrl In frm.Controls If ctrl.ControlType = acTextBox Then If Len(ctrl.Value & "") = 0 Then ctrl.BackColor = IIf(ctrl.BackColor = vbWhite Or ctrl.BackColor = vbBlue, vbRed, vbBlue) End If End If Next End Function جعفر 829.Flash_BG.mdb.zip استاذي العزيز جعفر الكود لايشتغل على نموذج فرعي داخل نموذج رئيسي كيف اجعل الداله تشتغل على النموذج الفرعي فقط اذا كانت داخل نموذج رئيسي رابط هذا التعليق شارك More sharing options...
jjafferr قام بنشر ديسمبر 29, 2017 مشاركة قام بنشر ديسمبر 29, 2017 وعليكم السلام للعلم : 1. لا تستطيع تلوين خلفية حقل النموذج الجدولي ، 2. الكود يعمل على نموذج فردي ، يعني على سجل واحد فقط. للنموذج الرئيسي استعمل : = Color_Nulls() للنموذج الفرعي استعمل : = Color_Nulls_SubForm() وهكذا اصبحت الوحدة النمطية: Option Compare Database Option Explicit Public Function Color_Nulls() Dim frm As Form Dim ctrl As Control Dim sfrm As Form Dim sctrl As Control Dim Color1 As String Dim Color2 As String Color1 = vbRed Color2 = vbBlue Set frm = Screen.ActiveForm For Each ctrl In frm.Controls If ctrl.ControlType = acTextBox Then 'Main Form If Len(ctrl.Value & "") = 0 Then ctrl.BackColor = IIf(ctrl.BackColor = vbWhite Or ctrl.BackColor = Color2, Color1, Color2) End If ' 'Don't use, the load on the Timer dosen't allow the proper Flashing Effect ' ' ElseIf ctrl.ControlType = acSubform Then ' 'SubForm ' ' Set sfrm = ctrl.Form ' For Each sctrl In sfrm.Controls ' ' If sctrl.ControlType = acTextBox Then ' ' If Len(sctrl.Value & "") = 0 Then ' ' sctrl.BackColor = IIf(sctrl.BackColor = vbWhite Or sctrl.BackColor = vbBlue, vbRed, vbBlue) ' End If ' End If ' ' Next End If Next End Function Public Function Color_Nulls_SubForm() Dim sfrm As Form Dim ctrl As Control Dim Color1 As String Dim Color2 As String Color1 = vbRed Color2 = vbBlue Set sfrm = Screen.ActiveControl.Parent For Each ctrl In sfrm.Controls If ctrl.ControlType = acTextBox Then If Len(ctrl.Value & "") = 0 Then ctrl.BackColor = IIf(ctrl.BackColor = vbWhite Or ctrl.BackColor = Color2, Color1, Color2) End If End If Next End Function جعفر 829.Flash_BG.mdb.zip 1 رابط هذا التعليق شارك More sharing options...
hh88 قام بنشر ديسمبر 29, 2017 الكاتب مشاركة قام بنشر ديسمبر 29, 2017 1 hour ago, jjafferr said: وعليكم السلام للعلم : 1. لا تستطيع تلوين خلفية حقل النموذج الجدولي ، 2. الكود يعمل على نموذج فردي ، يعني على سجل واحد فقط. للنموذج الرئيسي استعمل : = Color_Nulls() للنموذج الفرعي استعمل : = Color_Nulls_SubForm() وهكذا اصبحت الوحدة النمطية: Option Compare Database Option Explicit Public Function Color_Nulls() Dim frm As Form Dim ctrl As Control Dim sfrm As Form Dim sctrl As Control Dim Color1 As String Dim Color2 As String Color1 = vbRed Color2 = vbBlue Set frm = Screen.ActiveForm For Each ctrl In frm.Controls If ctrl.ControlType = acTextBox Then 'Main Form If Len(ctrl.Value & "") = 0 Then ctrl.BackColor = IIf(ctrl.BackColor = vbWhite Or ctrl.BackColor = Color2, Color1, Color2) End If ' 'Don't use, the load on the Timer dosen't allow the proper Flashing Effect ' ' ElseIf ctrl.ControlType = acSubform Then ' 'SubForm ' ' Set sfrm = ctrl.Form ' For Each sctrl In sfrm.Controls ' ' If sctrl.ControlType = acTextBox Then ' ' If Len(sctrl.Value & "") = 0 Then ' ' sctrl.BackColor = IIf(sctrl.BackColor = vbWhite Or sctrl.BackColor = vbBlue, vbRed, vbBlue) ' End If ' End If ' ' Next End If Next End Function Public Function Color_Nulls_SubForm() Dim sfrm As Form Dim ctrl As Control Dim Color1 As String Dim Color2 As String Color1 = vbRed Color2 = vbBlue Set sfrm = Screen.ActiveControl.Parent For Each ctrl In sfrm.Controls If ctrl.ControlType = acTextBox Then If Len(ctrl.Value & "") = 0 Then ctrl.BackColor = IIf(ctrl.BackColor = vbWhite Or ctrl.BackColor = Color2, Color1, Color2) End If End If Next End Function جعفر 829.Flash_BG.mdb.zip الف مليون شكر اخي واستاذي العزيز جعفر الا يوجد طريقة لجعلة يعمل على نموذج جدولي ويكون الوميض للحقول الفارغة فقط في النموذج الجدولي ليس كامل العمود بسبب انه الوميض يتوقف اذا تمت الموشر على التكستبوكس 829.Flash_BGFFFF.rar رابط هذا التعليق شارك More sharing options...
jjafferr قام بنشر ديسمبر 29, 2017 مشاركة قام بنشر ديسمبر 29, 2017 في النموذج الجدولي ، لا تستطيع ان تلون حقل ، إلا بإستعمال التنسيق الشرطي ، فالجواب ، لا يمكن انت حاول تلوت الحقل والنموذج بوضع التصميم ، واخبرنا اذا استطعت جعفر 1 رابط هذا التعليق شارك More sharing options...
hh88 قام بنشر ديسمبر 29, 2017 الكاتب مشاركة قام بنشر ديسمبر 29, 2017 38 minutes ago, jjafferr said: في النموذج الجدولي ، لا تستطيع ان تلون حقل ، إلا بإستعمال التنسيق الشرطي ، فالجواب ، لا يمكن انت حاول تلوت الحقل والنموذج بوضع التصميم ، واخبرنا اذا استطعت جعفر سأحاول واطلعكم على النتيجه الله يسهل علينا ان شاء الله رابط هذا التعليق شارك More sharing options...
hh88 قام بنشر ديسمبر 31, 2017 الكاتب مشاركة قام بنشر ديسمبر 31, 2017 On ١١/٠٤/١٤٣٩ at 10:26 PM, jjafferr said: في النموذج الجدولي ، لا تستطيع ان تلون حقل ، إلا بإستعمال التنسيق الشرطي ، فالجواب ، لا يمكن انت حاول تلوت الحقل والنموذج بوضع التصميم ، واخبرنا اذا استطعت جعفر حاولت اعدل على الكود ليكون بالحقل (faild1) , فلم تكن النتيجة مرضية في النموذج الجدولي يتعامل الكود مع جميع الحقول المتسلسلة للحقل كنوع واحد يعني يكون فيه وميض بس اول مايصر في تعديل او كتابة على الحقل يعلق الوميض ولايعمل بالطريقة المطلوبة هل من طريقة لديك استاذي جعفر هل في طريقة للكتابة كود على التنسيق الشرطي ليقوم بعمل وميض بدلاً من لون ثابت 8299.Flash_BG.rar رابط هذا التعليق شارك More sharing options...
jjafferr قام بنشر ديسمبر 31, 2017 مشاركة قام بنشر ديسمبر 31, 2017 في 12/29/2017 at 21:17, jjafferr said: 2. الكود يعمل على نموذج فردي ، يعني على سجل واحد فقط. . بينما نموذجك ، نموذج مستمر ، فلا يعمل الكود على حقل في سجل معين ، وانما يعمل على جميع السجلات (حسب قيمة اول سجل) ، اما التنسيق الشرطي ، فاليك مثال: https://stackoverflow.com/a/45284549 جعفر 1 رابط هذا التعليق شارك More sharing options...
hh88 قام بنشر ديسمبر 31, 2017 الكاتب مشاركة قام بنشر ديسمبر 31, 2017 27 minutes ago, jjafferr said: . بينما نموذجك ، نموذج مستمر ، فلا يعمل الكود على حقل في سجل معين ، وانما يعمل على جميع السجلات (حسب قيمة اول سجل) ، اما التنسيق الشرطي ، فاليك مثال: https://stackoverflow.com/a/45284549 جعفر سأحول اطبقه الف شكر اخي واستاذي العزيز جعفر رابط هذا التعليق شارك More sharing options...
الردود الموصى بها
Join the conversation
You can post now and register later. If you have an account, sign in now to post with your account.