نجوم المشاركات

السلام عليكم جميعا.. الخط EAN-13 والخط EAN-8 يتبع للمعيير UPC-A أو UPC-E أما ما يتعلق بالأنابيب النازلة بدون رقم نستخدم (p) الصغيرة وأما الأنابيب النازلة والبادئة برقم نستخدم الحروف الكبيرة (Q ألىY) وأما الأنابيب النازلة والمنتهية برقم نستخدم الحروف الصغيرة (a إلى i) هذه الخط يمكن استخدامه مباشرة بعد تثبيته في مجلد الخطوط بدون OCX UPC-A.zip

وعليكم السلام بما انك عملت البحث ليعطي نتائجه بعد ادخال المعلومة (على حدث عند التغيير On Change) وبدون وجود زر خاص ، لهذا السبب لن نعرف متى انتهيت من البحث لذلك ، وضعت لك الكود في حدث "عندما يفقد الحقل التركيز On Lost Focus" (وتستطيع وضعه على حدث عند الخروج من الحقل On Exit) ، يعني بعد ان تنتهي من البحث ، اضغط على Enter او Tab ، وستذهب الى الحقل الذي تريد ، وبما ان الحقل الذي تريد نقل التركيز اليه موجود في نموذج فرعي ، لذا يتوجب اولا نقل التركيز الى النموذج الفرعي ثم نقل التركيز الى الحقل: Private Sub n1_LostFocus() Me.تابع132.SetFocus Me.تابع132!rgmhsab.SetFocus End Sub جعفر 726.نقل موشر الماوس بعد التحديث.accdb.zip

مشاركة مع اخي جعفر لي محاولة هنا هي شبيهه لماتريد وباختصار : عمل مربع رديف واستخدام الدالة iserror تحياتي للجميع

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

وعليكم السلام عدة طرق تجي على بالي: 1. في النموذج الفرعي (اسمه مثلا s_Search_All) ، اعمل حقل لحساب عدد السجلات ولنسميه s_count ، ويمكنك عمله هكذا: =Count(*) وفي النموذج الرئيسي تعمل حقل يأخذ قيمة الحقل اعلاه ، هكذا: =IIf(IsError([s_Search_All]![s_count]),0,[s_Search_All]![s_count]) والشكرا لأخي رمهان على هذه المعادلة ، والتي فائدتها عندما لا تكون سجلات في النموذج الفرعي ، لا نحصل على خطأ 2. تستطيع ان تعمل تحسب عدد السجلات من الاستعلام مباشرة ، هكذا (ويعتمد على معايير الاستعلام ، فقد يجب عليك وضع المعيار في المعادله): =dcount("*","Name_All") 3. تستطيع ان تحسب عدد سجلات النموذج الفرعي هكذا ، بحيث يكون اسم الحقل في النموذج الرئيسي SubForm_Records: dim rst as dao.recordset set rst=me.[s_Search_All]![s_count].recordsetclone rst.movelast:rst.movefirst me.SubForm_Records=rst.recordcount rst.close: set rst=nothing جعفر

وعليكم السلام الرابط التالي يوضح طريقة الحساب ، والتي توضح صورتك المرفقه: http://egyptera.org/ar/t3reefa.aspx جعفر

السلام عليكم لقد قمت بإنشاء باركود الموضح بالصورة التالية: لكن المشكلة أنه يطبع الرقم الأخير تلقائيا كما توضح الصورة في مربع النص الرقم الأخير هو 2 و في الباركود الرقم الأخير هو 4 هل توجد طريقة لطباعة الباركود بهذا الشكل لكن الأرقام 8 كلها أضعها أنا؟ مع العلم أنني إستعملت أداة ocx و نوع الخط Ean-8 إنشاء باركود.rar

بسم الله الرحمان الرحيم السلام عليكم اغلبيتنا يعلم بان الاكسل جيد في انشاء برامج حسابية صغيرة لاكن مع مرور الوقت و زيادة حجم قاعدة البيانات للبرنامج يصبح هناك نوع من البطئء و التشنج في البرنامج لان الاكسل عبارة عن جداولة الكترونية و ليس بقاعدة بيانات و ايضا كما نعلم بان الاكسيس جيد جدا بالنسبة الاكسل لاستخدامه كقاعدة بيانات وب بالفعل الاكسيس مازال لحد الان يستعمل كقاعدة البيانات في البرامج المتوسطة لذى فكرة في دمج الاكسل و الاكسيس معا للستفادة من قوة الاكسل في الجداول و الحسابات و جمال الفورم مع الاكسيس المتميز في قوة قاعدة البيانات و عدم تاثره كثيرا بكبر حجمها كما هو معمول مع لغات البرمجة الكبيرة ك c++ vb.net java python ...... اذن ستجدون في هذا الموضوع مثال شامل لربط الاكسل بالاكسيس فقط بالاكواد بحيث سنتعامل مع الاكسيس بسلاسة كبيرة وذلك استخدام اوامر sql مع vbq بسهولة كبيرة وتنفذ جميع الاوامر من حذف او اضافة او تعديل او التقارير المعروف بها الاكسيس من خلال الاكسل دون فتح ملف الاكسيس (في الحقيقة يفتح ملف الاكسيس لاكن لن تلاحظ ابدا بانه مفتوح) والعملية المتبعة في ذلك مقسمة الى ثلاث مراحل فتح اتصال مع الاكسيس تنفيذ اوامر sql (select insert update delete) غلق الاتصال مع الاكسيس لا اطيل عليكم و اترككم مع الملف و لاي استفسارات انا في الخدمة تحياتي للجميع و ارجو ان تستفيدو من الموضوع ConnectDatabaseAccess.rar

بدون اكواد ربما يكون المطلوب (انظر الى الورقة Salim) تم حمابة المعادلات لعدم العبث بها عن طربق الخطأ salim01.rar

ارفق برنامجك للنظر فيه جعفر

اعمل وحدة نمطية ، وناديها من الاستعلام ، بحيث ترسل لها الاستهلاك ، وفي الوحدة النمطية تقوم بالحساب (جميع معادلاتك تكون هناك) ، ومن هناك تقرر كيف تريد ان ترى النتائج جعفر

انسخ هذه المعادلة الى E2 ,واسحب نزولاً =IF(N($C2)=0,"",CHOOSE(($C2>36000)+1,700000,750000))

و عليكم السلام أخي إبراهيم أين يتم وضع هذه الحروف بالنسبة لطريقة تحديد الرقم الأخير فهي كالتالي: الرقم الأخير يضعه الجهاز تلقائيا من خلال المعادلة الرياضية التالية: 1- نجمع الأعداد ذات الترتيب الفردي: الأول + الثالث + الخامس+ السابع و نضرب المجموع في 7 2- نجمع الأعداد ذات الترتيب الزوجي ماعدى الرقم الأخير : الثاني + الرابع + السادس و نضرب المجموع في 9 3- نجمع المجموع 1 مع المجموع 2 4- الرقم الأخير (رقم الآحاد) من المجموع هو الذي يمثل الرقم الأخير في الباركود. و هذا مثال: للعلم أنا لم أجد هذه المعلومة في أي موقع فقط أجريت العديد من التجارب للوصول إلى الطريقة الصحيحة لحساب الرقم الأخير و هذا ما توصلة إليه و للتأكيد يا ريت تجربوا هذه الطريقة لنتأكد من أنها صحيحة و فعالة فقد طبقتها على العديد من الأمثلة و كلها صحيحة.

ازيدك من الشعر بيت @alcasir كتب موضوعا جديدا منذ ساعة او ساعتين

وعليكم السلام تم مناقشة الموضوع هنا والنتيجة كانت جعفر

آسف ، ما اعرف!! عندك نسختي ونسختك ، واعمل مقارنه بينهما جعفر

تفضل ، المرفق بطريقة اخي رمهان جعفر 724.1.55.accdb.zip

لانك تكتبه كمصدر المربع النصي لذلك تحصل على هذا الرسالة وما تكتبه في الاكواد لذا فقط عليك ان تتغير هذا "," بهذا ";" وکل شيء سيكون على ما يرام ان شاء الله

شكرا اخي رمهان بالفعل ، يمكن الاستغناء عن الكود ، واستعمال المعادلة التاليه في الحقل مباشرة: =IIf(IsError([تابع15]![نص13]),0,[تابع15]![نص13]) جعفر

السلام عليكم .... ملف الأستاذ محمد عمل معي بكفائه جميل لو كان يعمل باستمرار كالعين الساهره ... وعند (الاتصال) بعد قطع الاتصال اثناء عمل البرنامج يرتبط اتوماتيكيا بالقاعدة ..

السلام عليكم الظاهر انك ارفقت البرنامج الخطأ !! جعفر

الكود صحيح 100% ويعمل بكفاءة عالية ومجرب في أكثر من موضع وهذا ملف بسيط للتجربة وموافاتي بالنتيجة حتى نتوصل لأسباب عدم عمل البرنامج مع الأستاذ شيفان كما هو مطلوب check internet.rar

هذا الملف البسيط تم انتاجة باستخدام بعض الدوال وهو يحسب عمرك اليوم وكذلك يوم مولدك وما يقابل تاريخ ميلادك بالهجري كما يحسب سن التقاعد للمعاش على حسب السن الافتراضي للمعاش في بلدك ___________________________________________________________.rar