Ahmed.IQ قام بنشر يونيو 30, 2016 قام بنشر يونيو 30, 2016 السلام عليكم ورحمة الله كان هناك شخص لديه مشروع واحببت ان اساعدة فا طلب ان اساعدة بتغير الوان الخلفية الفكرة جميله واحببت ان اشارككم بالفكرة المرفق تنفيذ للفكرة تغير لون الخلفية.rar 1
صالح حمادي قام بنشر يونيو 30, 2016 قام بنشر يونيو 30, 2016 السلام عليكم. بارك الله فيك يا أخي الفكرة حلوة. أضيف أيضا للحصول على نموذج يتغير لونه كل مرة تقوم بفتحه. أكتب الكود التالي في حدث عند الفتح للنموذج Dim t As Integer Dim r As Date r = Now [t] = Second([r]) Me.تفصيل.BackColor = [t] * 15 و سوف تحصل على نموذج يتغير لونه بإستمرار ملاحظة: أنا فقط قمت بنقل هذا الكود من أحد المنتديات. بالتوفيق 3
رمهان قام بنشر يونيو 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
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
صالح حمادي قام بنشر يونيو 30, 2016 قام بنشر يونيو 30, 2016 العفو أخ أحمد. مشكور أخي رمهان على المشاركة و دائما كلما كان الكود أقصر كان أفضل. لكن المشكلة أن هذا الكود لم يعمل معي و الله أعلم
رمهان قام بنشر يونيو 30, 2016 قام بنشر يونيو 30, 2016 استبدل detail ب section(0) عذرا اخ صالح اكتب من الموبايل
صالح حمادي قام بنشر يوليو 1, 2016 قام بنشر يوليو 1, 2016 ممتاز أخي رمهان تعودنا على إبداعك الكبير. الكود يعمل بشكل جد ممتاز. جزاك الله كل خير و نحن في هذا الشهر المبارك إن شاء الله
رمهان قام بنشر يوليو 1, 2016 قام بنشر يوليو 1, 2016 (معدل) خلني اوضح ايش الهرجه اصلا اعتقد النسخة لديك عربي فالاكسس يفهم عربي اكثر لذلك للاشارة للتفصيل لديل تكتب me.تفصيل انا لدي انجليزي فيفهم الانجليزي لذلك اكتب me.detail ولتلاشي فهم اللغة نضع التعامل بالفهرس . 0 للتفصيل 1 للهيدر 2 لفووتر ويمكن كذلك اتعامل باسم الثابت acdetail وللمزيد https://msdn.microsoft.com/en-us/library/office/ff835642.aspx واعتقد على ما اذكر ان هناك مشاركة للاستاذ جعفر حول هذا ولكن لم ابحث عنها تحياتي تم تعديل يوليو 1, 2016 بواسطه رمهان 1
صالح حمادي قام بنشر يوليو 1, 2016 قام بنشر يوليو 1, 2016 نعم كلامك مضبوط أخي النسخة التي لدي عربية. شكرا جزيلا على الإضافات
الردود الموصى بها
Join the conversation
You can post now and register later. If you have an account, sign in now to post with your account.