فهد الدوسري

قد تضعه قبل الكود الموجود مسبقاً أو بعده هذا يترتب على عمل الكود السابق . وغالباً أن الأكواد إذا عملت بطريقة سليمة فإنه لا يوجد تعارض في عملها . تحياتي ..

استبدل السطر الأول من الكود بهذا If IsNull([الكمية]) Or [الكمية] = "" Then أما بالنسبة للتعديل فضع في حدث في الحالي الخاص بالنموذج الكود التالي Me.AllowEdits = False وضع زر أمر خاص بالتعديل وضع في حدث عند النقر الكود التالي Dim II II = InputBox("أدخل كلمة المر…

تصميم رائع أخي : حسن قديمي بالنسبة لعدم ترك الحقل فارغاً أعمل مايلي :- 1- إذهب إلى خصائص الحقل Quty 2- بيانات 3- قاعدة التحقق من الصحة وضع فيها ما يلي >=0 4- نص التحقق من الصحة وضع فيها الرسالة التي تريد مثلاً .. يجب عدم ترك الحقل فارغاً فقط تحياتي .. ========…

ما هو اسم الحقل لديك وما هو نوعه ؟ وهل يوجد قيم غير ماذكرت .. أقصد 10-20-30

يوجد عدة أمثلة في المنتدى ربما تفيدك .. ولو استخدمت البحث لتوصلت لما تريد . تحياتي ..

وبالأخص (خاصية الرد السريع) Fast Reply

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

الحمد لله على سلامتك وعودتك لنا أخي الهاجري

نورت المنتدى أخي وأستاذي أحمد

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

حلت المشكلة بواسطة الأستاذ محمد طاهر مشكوراً على هذا الرابط http://www.officena.com/ib/index.php?showt...st=0entry7892

كلنا نعرف هذا المثال المرفق والذي هو عبارة عن برنامج يقوم بتقسيم الاسم الكامل على عدة حقول على حسب طول الاسم سواء رباعيا أو ثلاثياً أو خماسيا أو سداسياً وهو من عمل الاستاذ أبو حمود - الله يذكره بالخير - ولكن المثال يقوم بتجزئة كل اسم على حده بمعنى أنه يقوم بتج…

بارك الله في الجميع على هذا التعاون البناء

مجرد محاول قد تصيب وقد تخيب db21.rar

أخي يوسف : هذا واجبنا لنرد بعض ما تعلمناه من المنتدى أخي أهم واحد : شكرا على المشاركة والمعلومة المفيدة

جهدك في الموقع واضح جداً أتمنى لك التوفيق والسداد و أن يرد الله فلسطين للمسلمين ويخزي اليهود والنصارى الحاقدين .

أولا وقبل كل شيئ أعمل الآتي من خلال خصائص النموذج (حدث) إذهب إلى (مفتاح العرض التمهيدي) وجعل خاصيته (نعم) ثم إذهب إلى (عند مفتاح للأسفل) واستخدم الكود هذا الرقم 116 في الكود يمثل الزر F5 If KeyCode = 116 And Shift = 0 Then Dim arbname, prdname, sp, prnp As Str…

وجدت هذا المثال في المنتدى طريقة_توقيف_عجلة_الماوس.zip

أخي majed99 ضع مثال من صنعك أنت وقم بالشرح في نفس المثال عن ما تريده بالضبط ونقوم سوياً بالتعديل عليه لكي يناسب طلبك . تحياتي

أستاذي هشام علام شكرا جزيلا لك وهذه هي أفضل ميزه في هذا المنتدى وهي التسابق في إيصال المعلومة لمن يريدها فللجميع تحياتي