ابوخليل

بالنسبة لطلبك الاول تم تعديل المرفق في مشاركتي السابقة واليك الشرح حسب ما مكنني منه وقتي : بداية الشرح هو للدالة الشرطية iif وهي بابسط صورة تأخذ شرط وقيمتين اذا تحقق الشرط تظهر لنا القيمة اللاولى وان لم يتحقق تظهر لنا القيمة الثانية الحقل الأول والمطلوب : كل 250 تعوض بـ 0.25 وما زاد يرحل للحقل الثاني شرط الا تزيد القيمة الاساسية للحقل عن 1000 والا سوف يرحل كامل العدد الى الحقل الثالث وتكون قيمته =0 الحقل الثاني: ما زاد على 250 الى 1000 تعوض بـ 0.35 ولو زاد العدد عن 1000 يرحل الى الحقل الثالث وتكون قيمته =0 الحقل الثالث منفرد بالقيم التي تزيد عن 1000 فتعوض بـ 0.5 نبدأ بالحقل الأول : IIf([nmb]>1000;0;IIf(([nmb])<=250;[nmb]*0.25;250*0.25)) لاحظ ان اكسس يقرأ الشرط بالترتيب الشرط الاول : اذا كانت القيمة اكبر من الف فالناتج = صفر IIf([nmb]>1000;0 ثم : الشرط الثاني : اذا كانت القيمة تساوي او اصغر من 250 فالناتج = ضرب القيمة في 0.25 IIf(([nmb])<=250;[nmb]*0.25 وإلا : اي : اذا كانت القيمة اكبر من 250 الناتج يساوي ضرب 250 في 0.25 250*0.25 الحقل الثاني : IIf([nmb]>1000;0;IIf([nmb]>250 And [nmb]<=1000;([nmb]-250)*0.35;0)) الشرط الأول سبق شرحه الشرط الثاني اذا كان الحقل اكبر من 250 واصغر من او يساوي 1000 فالناتج يكون : قيمة الحقل ناقص 250 مضروب في النسبة التي هي 0.35 وطرحنا 250 لانه تم تعويضها في الحقل الاول الحقل الثالث اعتقد انه واضح فاذاكانت القيمة اكبر من الف يتم التعويض ( القيمة مضروبة في النسبة ) والا يكون الناتج صفر IIf([nmb]>1000;[nmb]*0.5;0)

تفضل اتمنى ان يحقق طلبك 12.rar

الذي فهمته من كلامك يعني تريد فقط ما فوق 1000 هو الذي يطبق عليه النظام الجديد اما اقل من ذلك فيبقى على ما كان عليه هل هذا صحيح ؟

السلام عليكم للفائدة : هذه بعض روابط لشرح عمل دمج المراسلات http://www.officena.net/ib/index.php?showtopic=49589 http://www.officena.net/ib/index.php?showtopic=45411 http://www.officena.net/ib/index.php?showtopic=17244 http://www.officena.net/ib/index.php?showtopic=42157&hl=%2B%D8%AF%D9%85%D8%AC+%2B%D8%A7%D9%84%D9%85%D8%B1%D8%A7%D8%B3%D9%84%D8%A7%D8%AA

وعليكم السلام Private Sub chk_AfterUpdate() If chk = -1 Then comb1.SetFocus comb1.Dropdown Else comb1.Requery End If End Sub

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

كيف لا يمكن الكتابة عليه ؟ هذا الكلام غير مفهوم ! اشرح المشكلة وبينها بشكل دقيق

حيث لا يمكنني فتح مرفقاتك الا من جهاز آخر فقد تم حفظه باسم على تنسيق 2003 تفضل التعديل آمل ان يكون هو مطلوبك mhm2.rar

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

وعليكم السلام مربع التحرير والسرد في اكسس يشتمل على هذه الخاصية

شكرا على هذه الماسة الجميلة الرائعة جعله الله في ميزان حسناتك

لم اطلع على المرفق ولكن حسب طلبك اذا كان الرقم ضمن حقل واحد استخدم : قناع الادخال افتح على خصائص الحقل / لسان التبويب بيانات / قناع الادخال اذا كانت كلها ارقام اكتب 24 صفرا هكذا : 000000000000000000000000

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

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

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

شكرا استاذ رمهان والله يكفينا شر الافخاخ هل تقصد ان الافضل ان يكون الحدث بعد التحديث ؟ Private Sub Form_AfterUpdate() ؟؟؟؟؟؟؟؟؟؟؟؟؟؟ End Sub واذا الخلل موجود ايضا كما تفضلت ففضلا منك ان ترفق مثالا تجريبي يظهر لحظة الخلل ولا تنسى استاذنا يكون على 2003 وفقك الله لكل خير

الحمد لله .. وإياكم

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

ليس في جدول السلك بل حقل السلك في جدول EmpTB

وعليكم السلام المشكلة عندك في حجم الحقل السلك داخل الجدول جرب وحاول ان تكبر حجمه ، اجعل حجمه 100 مثلا بدلا من 50

عمل جميل مشوق ولا احلى نحن بانتظارك ... اعانك الله ووفقك لكل خير

تفضل المثال وعن طريق المتصفحين ميكروسوفت وجوجل يتم فتح متصفح ميكروسوفت بواسطة ارتباط تشعبي اما بالنسبة لجوجل انظر الكود المسؤول عن ذلك chromePath = """C:\Program Files\Google\Chrome\Application\chrome.exe""" returnValue = Shell(chromePath & " http://www.officena.net/ib/index.php?showforum=89", vbNormalFocus) SendKeys ("{F5}"), True ويجب التنبه لصحة امتداد عنوان برنامج جوجل داخل حاسوبك فتح موقع.rar

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

استخدم الدالة NZ لتحيل الفراغ الى صفر وتتم العملية بهذا الشكل : txt1= nz([txt2])+nz([txt3])

وعليكم السلام نعم ممكن هل تريد فتح الموقع عبر متصفح ميكروسوفت ام عبر متصفح قوقل ؟