مبتدىء جدا

اذن يكون الكود هكذا : If Me.مربع_تحرير_وسرد32.Column(1) <= 200 Then OV_N_VALUE = Me.مربع_تحرير_وسرد32.Column(1) / 208 * 1.25 * OV_NORMAL Else OV_N_VALUE = 200 / 208 * 1.25 * OV_NORMAL

انشر المثال

تفضل nz2.zip

يمكنك عمل ذلك اذا قمت بوضع هذا الكود عند حدث زر الأمر على ورقة العمل: Private Sub CommandButton1_Click() Me.Cells.AutoFilter field:=1, Criteria1:="> 0", _ VisibleDropDown:=False Worksheets("Sheet1").Activate ActiveSheet.PrintOut Me.AutoFilterMode = False End S…

هل قمت بالغاء ملفات الكوكيز بهذه الاجهزة ؟

من قوعد طرح الاسئلة في المنتدى هو ان يكون عنوان سؤالك يدل على مشكلتك حتى يسهل الحصول عليها من خلال البحث بعد ذلك,,,,,, ------------------------------------------------------------------------ تستطيع نقل طالب من جدول الى جدول عن طريق استعلام الحاقي ------------…

ما فهمته اخي ganim هو الصحيح :) واليك مثال على ذلك ..... واتمنى ان يكون هو طلبك count.zip

نفترض ان حقل الراتب الاساسي للموظف هو basic_salary وأن حقل الاضافي هو add_to_salary فيمكنك عمل ذلك عن طريق هذا الكود : If add_to_salary.Value > 0 Then basic_salary.Value = 200 Else basic_salary.Value = 250 End If

لماذا لم تحدد من خيارات القاعدة ( ضغط عند الاغلاق ) هذا رابط من الارشيف مفيد ,,,,,,, http://www.arabteam2000.com/vb/showthread....s=&threadid=575 --------------------------------------------------------------------------------- وهذا رابط رائع اعتدقد ما تريد وه…

بمناسبة ذكر محمد طاهر وطارق حنيدق : يجزاهم الله كل خير ويجعل عطائهم في هذا المنتدى في ميزان حسناتهم (f)

تفضل nz.zip

القاعدة joinfile.rar

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

تظل فارغ لأنك لم تستخدم الدالة NZ يجب وضع هذه الدالة لأنها تحول النص الفارغ الى الرقم صفر وبالتالي لا تظر خانة الرصيد فارغه,,,, على سبيل المثال لدينا مربعي نص الاول اسمه A والثاني اسمه B ونريد طرح B من A لكي يعطينا الرصيد فتكون المعادلة كالتالي =Nz(Sum([A])-Nz…

ها هو التقرير بعد التعديل db31.rar

مثلاً مربع النص الذي به الباقي من الاقساط اسمه Remainder اذن عند حدث قبل التحديث لمربع النص Remainder داخل نموذج الادخال ضع الكود التالي: Private Sub Remainder_BeforeUpdate(Cancel As Integer) If Remainder.Value < 0 Then MsgBox "انتبة !! هذا العميل قام بسداد اق…

نسيت ارفاق التعديل db31.rar

اخي علي حسين قم بتغيير الخاصية Data Entry للنموذج الفرعي الى Yes بالنسبة لما يخص التعديل فقط في حالة اضافة سجل جديد اذهب الى هذا الرابط وبه ما تريد ,,,, http://www.arabteam2000.com/vb/showthread....&threadid=28587

كلامك سليم اخي حسام ,,,, ما رأيك اذا قمنا بتظليل ورقة العمل بالكامل وليس العمود A فقط حتى يتسنى لنا البحث في اي مكان في ورقة العمل ........ ما رأيك ؟ ها هو الكود بعد التعديل البسيط لتظليل ورقة العمل بالكامل: Private Sub CommandButton1_Click() Worksheets("Sheet…

هل يتم تطبيق الحد الاقصى للسجلات وهو عشرة سجلات بشكل متغير على جميع السجلات ام ثابت ,,,, اعني مثلاً ان الرقم واحد لا يتعدى حده الاقصى في الجدول الاخر عشر سجلات مثلاً الرقم اثنين هل يأخذ نفس القاعدة اي لايتعدى حده الاقصى في الجدول الاخر عشر سجلات ام يمكن تغيير …