صالح حمادي

آمين يا رب العالمين و إن شاء الله أجمعين أخي حربي

السلام عليكم لإضافة ترقيم تلقائي في التقرير إتبع الخطوات التالية أفضل و أقصر: 1- في خاصية مصدر عنصر التحكم لمربع النص أكتب : "=1" 2- في خاصية مجموع تراكمي اختر مجموعة إضافية و الصورة التالية توضح أكثر.

السلام عليكم استعمل هذا الكود في مربع النص: =Left(([TX1]+[TX2])/([SmU1]+[SmU2]);InStr(1;([TX1]+[TX2])/([SmU1]+[SmU2]);".")+3)

و فيك بارك الله

[y].Form.Section(0).BackColor = vbRed بحيث y هو اسم النموذج الفرعي

أهلين حبيبنا و ملاحظاتك و لا أروع كالعادة و هذا ما أريده بالضبط كل واحد لما يطلع على البرنامج و يعطينا ملاحظاته سوف نتقدم بسرعة كبيرة. ممتاز أنا أول شيء فكرة فيه و راح أعمله إن شاء الله هو عمل برنامج للأذان. أستاذ جعفر لا أخفيك سرا أنني أريد أن أظهر قوة الأكسس لكل العرب بالبرامج التي أصنعها و أفكر في صنع مكافح فيروسات و مؤقت لإغلاق الكمبيوتر بالإضافة إلى ملاحظاتك و كلها بالأكسس. هل إشتغل معاك أخوي sandanet

السلام عليكم لتغيير لون النموذج نستعمل الكود التالي: Me.تفصيل.BackColor = vbRed vbred هو رمز اللون الأحمر و هكذا..

تفضل أخي هذه نسخة مفتوحة المصدر بصيغة mdb ساعة رقمية.rar وهذه نسخة مفتوحة المصدر بصيغة accdb ساعة.rar

أهلين أخي أبو زاهر الله يحفظك يا غالي

أهلين أخي sandanet أنا صممت البرنامج على أكسس 2010 و هجرت الأكسس 2007 لأنه سبب لي الكثير من المتاعب رغم تجربتي للعديد من النسخ و إرتحت نهائيا بعد الإنتقال لأكسس 2010 أنت تعرفني جيدا صديقي لا أضع برامجي إلا من أجل أن يستفيد منها الجميع و أريد أن أستفيد أنا أيضا من ملاحظاتهم ثم أضع البرنامج مفتوح.

السلام عليكم و رحمة الله تعالى و بركاته. إخوتي الكرام حياكم الله و جمعة مباركة إن شاء الله تعالى. لقد جئتكم اليوم بشيء جديد لم نتعود على القيام به بالإكسس. أضع بين أيديكم ساعة رقمية تشتغل على سطح المكتب في الركن العلوي الأيسر و يمكن تحريها كما نشاء. أولا لتشغيل البرنامج يجب تثبيت نوع الخط ديجتال المرفق مع البرنامج. ثانيا أهم نقطة في البرنامج أنه يشتغل مع إقلاع الونداوز بالضغط على زر "تشغيل مع الإقلاع". و يمكن إيقاف التشغيل مع الإقلاع بالضغط على زر "إيقاف تشغيل مع الإقلاع". و الصورة توضح ذلك: digital.rar

السلام عليكم استعمل هذا الكود في مربع نص الرقم: =Format([num_card];"0000 0000 0000 0000") cards.rar

السلام عليكم ممكن توضح المطلوب أكثر أخي نبيل:

السلام عليكم استعمل هذا الكود في حدث عند النقر على القائمة المنسدلة: Me.no = Nz(DMax("[no]", "[tbl]", "[type]='" & Me.types & "'"), 0) + 1 بحيث me.types اسم القائمة المنسدلة tbl اسم الجدول type اسم حقل النوع

السلام عليكم ضع الصورة في ملف البرنامج و استعمل هذا الكود الذي يغير صور الزر Me.button1.Picture = CurrentProject.Path & "\6.bmp" بحيث : 6.bmp هو اسم الصورة و امتدادها

السلام عليكم أخي زاهر أولا إضغط على خيارات ثانيا: اختر مركز التوثيق ثالثا: إضغط على زر إعدادات مركز التوثيق رابعا: إضغط على إعدادات الماكرو خامسا: تظهر 4 خيارات اختر الخيار الأخير تمكين كافة وحدات الماكرو

السلام عليكم كود تفريغ الجدول يكون بهذا الشكل: DoCmd.RunSQL ("delete * from tbl") غير tbl باسم الجدول لديك و يمكنك الاستفادة من هذا الموضوع به دوال sql

السلام عليكم الظاهر أنه حصل نقاش شيق في غيابي

نعم أستاذ جعفر لقد سألتك عليه من قبل و جربت ما أخبرتني به منذ مدة على أداة الهاتف و القارئ ذو اتجاه واحد و القارئ الشبكي (عدة اتجاهات) و كلها تعمل بشكل ممتاز. لكني لاحظت أن خطوط الباركود باستعمال مربع تكون قريبة من بعضها البعض و يصعب قرائتها إذا جعلنا حجم الخط صغير أما بالنسبة للأداة barcodex.ocx فتكون الخطوط متباعدة بعض الشيء مما يسمح بإستعمالها حتى في الحجوم الصغيرة.

آمين يا رب العالمين و عن أمة محمد أجمعين. نعم هو النسخ المعتاد بالزر الأيمن

نعم هذه الأداة لا تحتاج لإضافة "*" قبل و بعد الحقل كل ما عليك عمله هو إضافة الأداة لتقرير من ActiveX و ضع بها اسم الحقل و نوع الخط فقط

يمكنك إضافتها يدويا كي تسرع من عملك

السلام عليكم هناك خطوط تقرأها جميع أجهزة الباركود و من بينها code128 و code39 .. لكن لإستعمال الباركود هناك طريقتان: الأولى: إما أنك تضعه في مربع نص عادي و تختار نوع الخط المطلوب و تضيف الرمز "*" قبل الحقل و بعده هكذا من أجل تحديد بداية و نهاية الباركود: "*"&[id]&"*" الثانية: هي أنك تضيف الأداة barcodex.ocx للقيام بإنشاء الباركود و أنا في نظري هي الأفضل لأن خطوطها تكون واضحة و سهلة القراءة من جميع الأجهزة و لكن البعض لا يحبذها لما فيها من مشاكل في التسجيل عند البعض. و أنا بصدد إنشاء برنامج يقوم بتسجيل الأداة على جميع الأجهزة بدون مشاكل إن شاء الله.

أولا طبق compile كما طلب الأستاذ شفان ثم طبق ضغط و إصلاح على قاعدة البيانات يمكنك أن تنسخ النماذج و الكائنات يدويا و تلصقها في ملف جديد

غير نوع الحقل إلى text