ابوخليل

انظر هنا http://www.officena.net/ib/index.php?showtopic=659#entry3115 وهنا http://www.officena.net/ib/index.php?showtopic=44856#entry262349 وهنا http://www.officena.net/ib/index.php?showtopic=31139#entry157297

اكثر من شرط لقيمة عنصر معين واحد موجود بين شروط عناصر متعددة والا سيكون استخدامها تحصيل حاصل

مانت لوحدك وانا معك سهران وآسف المعلومة غير دقيقة عن elseif وهنا تصحيح http://www.officena.net/ib/index.php?showtopic=61333

السلام عليكم ورحمة الله وبركاته درس حول الـ elseif وطريقة بنائها فما هي الـ elseif ؟ عندما نريد التحقق من قيمة عنصر محدد فيمكننا استخدام الـ else if وهي هنا تختصر علينا كثيرا من الخطوات علما انه يمكننا ايضا استخدام if لوحدها بخلاف ما إن أردنا التحقق من قيمة عناصر مختلفة فنستخدم الـ if فـ elseif مشابهة نوعا ما لفكرة OR توضيح اكثر للفرق بينهما : الفرق هو أن الـ elseif مرتبطة بالــ if التي قبلها فإذا كان الشرط الذي قبلها صحيحاً لم تعمل وأما الـ if المنفصلة فليست مرتبطة بما قبلها وبالتالي فإنها تعمل دائماً وبالمثال يتضح المقال : 'elseif : if x=1 then ?=? elseif x=2 then ?=?? elseif x=3 then ?=??? else ?=????? end if في الكود اعلاه سيتم التحقق من if فان وجد الشرط والا انتقل الى elseif الاولى فان تحقق الشرط والا انتقل الى elseif الثانية .. لاحظوا اننا ادخلنا في النهاية else بقيمة معينة ففي عدم تحقق اي شرط من الشروط الثلاثة فإن الكود الموجود داخل else هو الذي سيعمل ....

جزاكم الله خير اخواني على بذل المساعدة الشرطين من جدولين مختلفين فما تصلح elseif يلزم ان يكون كل شرط منفصل عن الآخر اخونا الكريم انظر التعديل على المرفق اتمنى ان يحقق مطلوبك Tabel5.rar

ما رأيك بشيء افضل من ذلك ؟ اختصار للاكواد وبدون بحث ودوارات انظر التعديل على مثالك وحاول ترك حقل العدد فارغا TestUp.rar

شكرا استاذ محمد بكذا حتى لوفتح الشفت من الخارج كلما فتح البرنامج يرجع القفل ولكن انت نسيت ترفق الــ SetProperties : Function ؟

الصق هذه الجملة في حدث النقر للزر في النموذج الرئيسي Dim rs As Recordset Set rs = Me.F_ordersubform.Form.RecordsetClone rs.MoveLast R = rs.RecordCount rs.MoveFirst For i = 1 To R If IsNull(rs!Qty) Then MsgBox "اكتب العدد" Exit Sub End If rs.MoveNext Next rs.close Set rs = Nothing

السلام عليكم اعجبني التنظيم والترتيب مع البساطة في عملك يمكنك بعد تحويل الحقل الى ارقام الفرز كيف شئت استبدل هذا date: [purchases_date] & [sales_date] او ان اردت ضعه بجانبه في حقل جديد بالكود التالي date2: Format([purchases_date];"yyyymmdd") & Format([sales_date];"yyyymmdd") ملحوظة : لفظة date لوحدها محجوزة في اكسس

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

يمكن يرجع هذا لاعدادات المتصفح عندي وعندك على كل حال وافقت على المخاطرة ونزلت الملف شكرا مرة اخرى العمل جميل ويحتوي على حركات ولمسات حلوة

جزاك الله خير استاذ محمد ولكن عند تحميل المرفق 2003 ظهرت لي صفحة جوجل الحمراء المتعلقة بالامان وتحذير !!!؟؟

انت جعلت الحدث في النموذج بعد الادراج جرب واجعله في حدث بعد التحديث لحقل الاسم حينها عندما تستخدم Ctrl + Z سيخبرك انه سيحذف السجل كاملا وهي منطقية وعملية ايضا

Access Runtime يتم تضمينة مع الحزمة عند تنصيب البرنامج في اجهزة لا تحتوي على اوفيس

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

لا تيأس .. العلم يؤخذ بالصبر والمثابرة

حدد الجملة البرمجية اي ظللها ثم انقر على ايقونة الكود <> الموجودة مع ادوات التنسيق وبالتحديد بين الصورة وعلامة الاقتباس

حول المرفق الى صيغة mdb فقد تجد تفاعل اكثر

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

يكتفى بسؤال واحد في كل مشاركة طرح اكثر من سؤال مخالف لقواعد المشاركة يغلق xxx

- اولا تروح لحسابات المستخدمين - انقر على ايقونة : تغيير اعدادات التحكم في حساب المستخدم - يفتح لك مربع حوار : اسحب الشريط الموجود الى ادنى نقطة في الاسفل ثم احفظ واخرج - اعد تشغيل الحاسب -------------------------------- بما ان نظامك 64 الصق ملف DBPix20.ocx داخل مجلد النظام syswow64 انقر على ابدأ ( او بحث في win8 ) اكتب في البحث كلمة cmd سيظهر لك ملف cmd.exe انقر عليه بالزر الايمن واختر تشغيل كمسؤول سيفتح مربع حوار كتابة الاوامر اكتب الامر c:\windows\syswow64\> regsvr32 DBPix20.ocx هنا لابد يكون لديك خبرة بسيطة بطريقة الكتابة والتراجع وللتراجع الى c:\ اكتب cd ثم مسافة ثم \ وانقر انتر وللدخول من مجلد الى آخر اكتب cd ثم مسافة ثم اكتب المجلد وانقر انتر

مشكلتك في تسجيل المكتبة لا بد من تسجيل المكتبة داخل السستم بنجاح win8 عنيد حاول تسجيل المكتبة من سطر الاوامرcmd يدويا ثم بعد النجاح سجل الاداة داخل اكسس ثم اذهب الى صندوق الادوات واسحبها من جديد داخل الفورم

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

تفضل هذه طريقة If Text40 = 0 Then frmQQTBL2.Enabled = False Else frmQQTBL2.Enabled = True End If Program2003.rar

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