Ahmed.IQ قام بنشر يونيو 30, 2016 مشاركة قام بنشر يونيو 30, 2016 السلام عليكم ورحمة الله كان هناك شخص لديه مشروع واحببت ان اساعدة فا طلب ان اساعدة بتغير الوان الخلفية الفكرة جميله واحببت ان اشارككم بالفكرة المرفق تنفيذ للفكرة تغير لون الخلفية.rar 1 رابط هذا التعليق شارك More sharing options...
صالح حمادي قام بنشر يونيو 30, 2016 مشاركة قام بنشر يونيو 30, 2016 السلام عليكم. بارك الله فيك يا أخي الفكرة حلوة. أضيف أيضا للحصول على نموذج يتغير لونه كل مرة تقوم بفتحه. أكتب الكود التالي في حدث عند الفتح للنموذج Dim t As Integer Dim r As Date r = Now [t] = Second([r]) Me.تفصيل.BackColor = [t] * 15 و سوف تحصل على نموذج يتغير لونه بإستمرار ملاحظة: أنا فقط قمت بنقل هذا الكود من أحد المنتديات. بالتوفيق 3 رابط هذا التعليق شارك More sharing options...
رمهان قام بنشر يونيو 30, 2016 مشاركة قام بنشر يونيو 30, 2016 33 دقائق مضت, صالح حمادي said: السلام عليكم. بارك الله فيك يا أخي الفكرة حلوة. أضيف أيضا للحصول على نموذج يتغير لونه كل مرة تقوم بفتحه. أكتب الكود التالي في حدث عند الفتح للنموذج Dim t As Integer Dim r As Date r = Now [t] = Second([r]) Me.تفصيل.BackColor = [t] * 15 و سوف تحصل على نموذج يتغير لونه بإستمرار ملاحظة: أنا فقط قمت بنقل هذا الكود من أحد المنتديات. بالتوفيق فكره اخ صالح واعتقد يمكن توظيفها لحاجات اخرى ويمكن اختصارها Me.Detail.BackColor = Second(Now()) * 15 2 رابط هذا التعليق شارك More sharing options...
Ahmed.IQ قام بنشر يونيو 30, 2016 الكاتب مشاركة قام بنشر يونيو 30, 2016 3 ساعات مضت, صالح حمادي said: السلام عليكم. بارك الله فيك يا أخي الفكرة حلوة. أضيف أيضا للحصول على نموذج يتغير لونه كل مرة تقوم بفتحه. أكتب الكود التالي في حدث عند الفتح للنموذج Dim t As Integer Dim r As Date r = Now [t] = Second([r]) Me.تفصيل.BackColor = [t] * 15 و سوف تحصل على نموذج يتغير لونه بإستمرار ملاحظة: أنا فقط قمت بنقل هذا الكود من أحد المنتديات. بالتوفيق جميلة الفكرة وشكراً لك اخي صالح 1 رابط هذا التعليق شارك More sharing options...
صالح حمادي قام بنشر يونيو 30, 2016 مشاركة قام بنشر يونيو 30, 2016 العفو أخ أحمد. مشكور أخي رمهان على المشاركة و دائما كلما كان الكود أقصر كان أفضل. لكن المشكلة أن هذا الكود لم يعمل معي و الله أعلم رابط هذا التعليق شارك More sharing options...
رمهان قام بنشر يونيو 30, 2016 مشاركة قام بنشر يونيو 30, 2016 استبدل detail ب section(0) عذرا اخ صالح اكتب من الموبايل رابط هذا التعليق شارك More sharing options...
صالح حمادي قام بنشر يوليو 1, 2016 مشاركة قام بنشر يوليو 1, 2016 ممتاز أخي رمهان تعودنا على إبداعك الكبير. الكود يعمل بشكل جد ممتاز. جزاك الله كل خير و نحن في هذا الشهر المبارك إن شاء الله رابط هذا التعليق شارك More sharing options...
رمهان قام بنشر يوليو 1, 2016 مشاركة قام بنشر يوليو 1, 2016 (معدل) خلني اوضح ايش الهرجه اصلا اعتقد النسخة لديك عربي فالاكسس يفهم عربي اكثر لذلك للاشارة للتفصيل لديل تكتب me.تفصيل انا لدي انجليزي فيفهم الانجليزي لذلك اكتب me.detail ولتلاشي فهم اللغة نضع التعامل بالفهرس . 0 للتفصيل 1 للهيدر 2 لفووتر ويمكن كذلك اتعامل باسم الثابت acdetail وللمزيد https://msdn.microsoft.com/en-us/library/office/ff835642.aspx واعتقد على ما اذكر ان هناك مشاركة للاستاذ جعفر حول هذا ولكن لم ابحث عنها تحياتي تم تعديل يوليو 1, 2016 بواسطه رمهان 1 رابط هذا التعليق شارك More sharing options...
صالح حمادي قام بنشر يوليو 1, 2016 مشاركة قام بنشر يوليو 1, 2016 نعم كلامك مضبوط أخي النسخة التي لدي عربية. شكرا جزيلا على الإضافات رابط هذا التعليق شارك More sharing options...
الردود الموصى بها
من فضلك سجل دخول لتتمكن من التعليق
ستتمكن من اضافه تعليقات بعد التسجيل
سجل دخولك الان