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

اتفضل هل هذا ما تبحث عنه Private Sub Form_Load() Call GetPrinterList(cboDestination) DoCmd.SetWarnings False DoCmd.RunSQL "DELETE pirent.Number, pirent.printerName FROM pirent;" For i = 0 To Me.cboDestination.ListCount - 1 Me.cboDestination = Me.cboDestination.ItemData(i) DoCmd.RunSQL "INSERT INTO pirent ( [Number], printerName ) SELECT Nz(DMax(""[number]"",""Pirent""),0)+1 AS Expr1, [Forms]![Print]![cboDestination]" Next i DoCmd.SetWarnings True Me.cboDestination = Me.cboDestination.ItemData(0) End Sub اليك المرفق تحديد واختيار الطابعة الافتراضية - تغيير الطابعة الافتراضية.accdb

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

مشكور أخ @Shivan Rekany استاذ .

تفضل بنسخة Mdb وكلمة السر واسم المستخدم 1 العيادات الطبية.mdb

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

اتفضل اتمنى يكون طلبك 2 (3).rar 1 (3).rar

هذا ما تمتاز به اوفيسينا .... 😁

السلام عليكم و رحمة الله تعالى وبركاته إخوتي الكرام حياكم الله. بعد نزع خاصية انشاء شريط القوائم بالأكسس في النسخ بعد 2003 أصبح هناك عائق كبير في إضافة هذه الأشرطة و لأنه يتوجب عليك العمل على ملف 2003 أو استعمال Ribbon بلغة Html و هي أصعب من الفكرة الأولى. مما جعلني أفكر في طريقة تجعلنا نستغني عن هذه الطرق المرهقة بعض الشيء. و قمت بتصميم برنامج يستطيع أن يضيف شريط قوائم للنموذج الرئيسي لقاعدة البيانات مهما كانت نسختها 2003 أو النسخ التي تأتي بعدها. نبدأ على بركة الله في شرح البرنامج: بعد فتح البرنامج نتبع الخطوات التالية: 1 - أكتب اسم القوائم التي تريد أن تضيفها مع وضع رقم كل قائمة بالترتيب (1,2,3,....و هكذا) 2- أضف العناصر أو الأوامر التي تندرج تحت كل قائمة في النموذج الفرعي رقم العنصر , تسمية العنصر ثم الكود الذي تريد أن ينفذه هذا العنصر 3- أختر قاعدة البيانات سواءا كانت 2003 أو ما بعدها ثم اختر اسم النموذج الذي تريد أن تضيف له الشريط 4- قم بالضغط على زر "إنشاء الشريط" 5- افتح قاعدة بياناتك و أنظر للشريط المضاف حتى لو كان النموذج منبثق و شاشة الأكسس مخفية سوف ترى الشريط شروط استخدام البرنامج: 1- قبل البدئ أحفظ نسخة إحتياطية من قاعدة بيانات 2- يجب أن لا يكون لديك في قاعدة بيانات نماذج بهذه الأسماء : list1,list2,list3..... و هكذا 3- يجب أن يكون حدث عن النقر للنموذج الرئيسي خال من أي كود 4-بعد الإنتهاء أدعولي و لوالدي و لعائلة بالخير و الصلاح. هذا هو البرنامج انشاء شريط قوائم.rar

DAvg Method تستخدم دالة DAvg لحساب المتوسط لمجموعة من القيم الموجودة فى مجموعة محددة من السجلات ( مجال ) و يمكن استخدام هذه الدالة فى كود الفيجوال بيزيك أو فى ماكرو أو فى استعلام أو فى عنصر تحكم به قيمة محسوبة صيغة الدالة : DAvg(Expr, Domain, Criteria) Expr : قيمة نصية تعرف الحقل الذي يحوي البيانات الرقمية المطلوب الحصول علي متوسط لها ، و هي يمكن أن تكون نص يعبر عن إسم حقل فى جدول أو استعلام ، أو معادلة حسابية علي هذا الحقل ، و فى هذا التعبير يمكن ادراج اسم حقل ، عنصر تحكم فى نمموذج ، ثابت ، أو دالة و لكن فى حالة احتوائه علي دالة فيمكن أن تكون دالة من تصميم المستخدم أو دالة جاهزة فى أكسس ،ـ و لكن لا يمكن أن تكون دالة من دوال المجال التجميعية الأخري Domain : قيمة نصية تعرف مجموعة السجلات التي تمثل المجال ، و يمكن أن تكون جدول أو استعلام و كل من Expr و Domain قيم اجبارية لابد من ادراجها فى الدالة ، أما القيمة التالية Criteria فهي خيارية Criteria : قيمة خيارية ( قد توضع و قد لا توضع ) ، و هي معيار يوضع لتحديد مجال تطبيق الدالة ، و يمكن اعتبارها كشرط مناظر ل WHERE في عبارة SQL ، و في حالة عدم ادراجها يتم تطبيق الدالة علي المجال بأكمله. في حالة ادراج حقل فى هذا المعيار و هذا الحقل غير مدرج فى المجال ، تكون القيمة المعادة من الدالة null ، لذا أي حقل موجود فى المعيار Criteria يجب أن يكون أيضا مدرجا فى المجال. ملاحظات : الحقول التي تحوي قيم Null لا تدخل فى حساب المتوسط يمكن استخدام هذه الدالة كمعيار فى الاستعلام العادي أو كقيمة محسوبة فى استعلام تحديث يمكن استخدام DAvg or Avg كقيمة محسوبة فى استعلام تجميع Totals Query ، الفرق أنه فى حالة DAvg يتم حساب المتوسط قبل التجميع ، و فى حالة Avg يتم التجميع قبل حساب المتوسط من ميزات استخدام ال Davg هو حساب القيمة محسوبة فى عنصر تحكم موجود فى نموذج بناء علي بيانات مختلفة عن مصدر بيانات النموذج . قد يكون من المناسب عند استخدامها فى عنصر تحكم فى نموذج مستمر أن توضع فى رأس أو تذييل النموذج لكي لا تتغير القيمة مع التنقل بين السجلات . نوع البيانات المعادة من الدالة كمتوسط لقيم الحقول الرقمية ، تكون من نوع double . فاذا كان هناك حاجة لتحويلها الي نوع رقمي آخر فيرجي مراعاة ذلك بالرغم من أنك تستطيع الحصول علي متوسط القيم لحقل فى جدول مرتبط ، الا أنه ينصح فى هذه الحالة بعمل استعلام مبني علي الجدولين و استخدامه كمصدر لبيانات النموذج أو التقرير. القيم التي لم يتم حفظها بعد فى السجلات لا تدخل فى حسابات الدالة ، و لكن لادخالها لابد من حفظ السجل أولا ، و ذلك باختيار حفظ من أمر File أو بالانتقال الي السجل التالي ، أو باستخدام طريقة ال Update . مثال : =DAvg("[price]", "Orders", "[product] = 'mouse'") و المثال يعني أننا نحسب المتوسط لحقل السعر في جدول الطلبيات بشرط أن المنتج = mouse , يلاحظ أن القيمة النصية فى الشرط توضع بين ‘ ‘. و في حالة حقل الشرط رقمي لا توضع =DAvg("[price]", "Orders", "[productID] = 5") DFirst Method تستخدم دالة DFirst للحصول علي قيمة حقل محدد فى أول سجل فى جدول أو استعلام.. و يمكن استخدام هذه الدالة فى كود الفيجوال بيزيك أو فى ماكرو أو فى استعلام أو فى عنصر تحكم به قيمة محسوبة فى نموذج أو تقرير. و يكون نوع البيانات للقيمة الناتجة منها Variant صيغة الدالة : DFirst(Expr, Domain, Criteria) Expr : قيمة نصية تعرف الحقل الذي يحوي البيانات الرقمية المطلوب الحصول علي اول قيمة لها، و هي يمكن أن تكون نص يعبر عن إسم حقل فى جدول أو استعلام ، أو معادلة حسابية علي هذا الحقل ، و فى هذا التعبير يمكن ادراج اسم حقل ، عنصر تحكم فى نمموذج ، ثابت ، أو دالة و لكن فى حالة احتوائه علي دالة فيمكن أن تكون دالة من تصميم المستخدم أو دالة جاهزة فى أكسس ،ـ و لكن لا يمكن أن تكون دالة من دوال المجال التجميعية الأخري Domain : قيمة نصية تعرف مجموعة السجلات التي تمثل المجال ، و يمكن أن تكون جدول أو استعلام و كل من Expr و Domain قيم اجبارية لابد من ادراجها فى الدالة ، أما القيمة التالية Criteria فهي خيارية Criteria : قيمة خيارية ( قد توضع و قد لا توضع ) ، و هي معيار يوضع لتحديد مجال تطبيق الدالة ، و يمكن اعتبارها كشرط مناظر ل WHERE في عبارة SQL ، و في حالة عدم ادراجها يتم تطبيق الدالة علي المجال بأكمله. في حالة ادراج حقل فى هذا المعيار و هذا الحقل غير مدرج فى المجال ، تكون القيمة المعادة من الدالة null ، لذا أي حقل موجود فى المعيار Criteria يجب أن يكون أيضا مدرجا فى المجال. ملاحظات : اذا أردت الحصول علي أول سجل فى مجموعة سجلات ( مجال محدد ) ، يجب أن تنشيئ استعلام و يكون ترتيبه تنازليا اعتمادا علي هذا الحقل ، و تقوم باسناد قيمة الخاصية TopValues = 1 . مثال : = DFirst ("[price]", "Orders", "[product] = 'mouse'") و المثال يعني أننا نريد الحصول علي أول قيمة عشوائية لحقل السعر في جدول الطلبيات بشرط أن المنتج = mouse , يلاحظ أن القيمة النصية فى الشرط توضع بين ‘ ‘. و في حالة حقل الشرط رقمي لا توضع = DFirst ("[price]", "Orders", "[productID] = 5") للحصول علي قيمة عشوائية للتاكد من تجانس البيانات ، في نافذة ال immediate فى محرر الفيجوال بيزيك (للحصول عليها اضغط CTR+G ) نكتب المثال الاتي ? DFirst("[Orders]![OrderDate]", "[Orders]") -------------------------------------------------------------------------------------------- DLast Method تستخدم دالة DLast للحصول علي قيمة حقل محدد فى آخر سجل فى جدول أو استعلام.. و يمكن استخدام هذه الدالة فى كود الفيجوال بيزيك أو فى ماكرو أو فى استعلام أو فى عنصر تحكم به قيمة محسوبة فى نموذج أو تقرير. و يكون نوع البيانات للقيمة الناتجة منها Variant صيغة الدالة : DLast(Expr, Domain, Criteria) Expr : قيمة نصية تعرف الحقل الذي يحوي البيانات الرقمية المطلوب الحصول علي آخر قيمة لها ، و هي يمكن أن تكون نص يعبر عن إسم حقل فى جدول أو استعلام ، أو معادلة حسابية علي هذا الحقل ، و فى هذا التعبير يمكن ادراج اسم حقل ، عنصر تحكم فى نمموذج ، ثابت ، أو دالة و لكن فى حالة احتوائه علي دالة فيمكن أن تكون دالة من تصميم المستخدم أو دالة جاهزة فى أكسس ،ـ و لكن لا يمكن أن تكون دالة من دوال المجال التجميعية الأخري Domain : قيمة نصية تعرف مجموعة السجلات التي تمثل المجال ، و يمكن أن تكون جدول أو استعلام و كل من Expr و Domain قيم اجبارية لابد من ادراجها فى الدالة ، أما القيمة التالية Criteria فهي خيارية Criteria : قيمة خيارية ( قد توضع و قد لا توضع ) ، و هي معيار يوضع لتحديد مجال تطبيق الدالة ، و يمكن اعتبارها كشرط مناظر ل WHERE في عبارة SQL ، و في حالة عدم ادراجها يتم تطبيق الدالة علي المجال بأكمله. في حالة ادراج حقل فى هذا المعيار و هذا الحقل غير مدرج فى المجال ، تكون القيمة المعادة من الدالة null ، لذا أي حقل موجود فى المعيار Criteria يجب أن يكون أيضا مدرجا فى المجال. ملاحظات : اذا أردت الحصول علي أول سجل فى مجموعة سجلات ( مجال محدد ) ، يجب أن تنشيئ استعلام و يكون ترتيبه تصاعديا اعتمادا علي هذا الحقل ، و تقوم باسناد قيمة الخاصية TopValues = 1 . مثال : = DLast ("[Orders]![price]", "Orders", "[product] = 'mouse'") و المثال يعني أننا نريد الحصول علي آخر قيمة عشوائية لحقل السعر في جدول الطلبيات بشرط أن المنتج = mouse , يلاحظ أن القيمة النصية فى الشرط توضع بين ‘ ‘. و في حالة حقل الشرط رقمي لا توضع = DLast ("[Orders]![price]", "Orders", "[productID] = 5") للحصول علي قيمة عشوائية للتاكد من تجانس البيانات ، في نافذة ال immediate فى محرر الفيجوال بيزيك (للحصول عليها اضغط CTR+G ) نكتب المثال الاتي ? DLast("[Orders]![OrderDate]", "[Orders]") ------------------------------------------------------ DCount Method تستخدم دالة DCount للحصول علي عدد السجلات فى جدول أو استعلام . و يمكن استخدام هذه الدالة فى كود الفيجوال بيزيك أو فى ماكرو أو فى استعلام أو فى عنصر تحكم به قيمة محسوبة فى نموذج أو تقرير. صيغة الدالة : Expression.DCount(Expr, Domain, Criteria) Expr : قيمة نصية تعرف الحقل الذي يحوي البيانات التي تريد عدها ا ، و هي يمكن أن تكون نص يعبر عن إسم حقل فى جدول أو استعلام ، أو معادلة حسابية علي هذا الحقل ، و فى هذا التعبير يمكن ادراج اسم حقل ، عنصر تحكم فى نمموذج ، ثابت ، أو دالة و لكن فى حالة احتوائه علي دالة فيمكن أن تكون دالة من تصميم المستخدم أو دالة جاهزة فى أكسس ،ـ و لكن لا يمكن أن تكون دالة من دوال المجال التجميعية الأخري Domain : قيمة نصية تعرف مجموعة السجلات التي تمثل المجال ، و يمكن أن تكون جدول أو استعلام و كل من Expr و Domain قيم اجبارية لابد من ادراجها فى الدالة ، أما القيمة التالية Criteria فهي خيارية Criteria : قيمة خيارية ( قد توضع و قد لا توضع ) ، و هي معيار يوضع لتحديد مجال تطبيق الدالة ، و يمكن اعتبارها كشرط مناظر ل WHERE في عبارة SQL ، و في حالة عدم ادراجها يتم تطبيق الدالة علي المجال بأكمله. في حالة ادراج حقل فى هذا المعيار و هذا الحقل غير مدرج فى المجال ، تكون القيمة المعادة من الدالة null ، لذا أي حقل موجود فى المعيار Criteria يجب أن يكون أيضا مدرجا فى المجال. ملاحظات : تستخدم dcount لمعرفة عدد السجلات فى مجال محدد ، عندما لا نكون بحاجة لمعرفة القيم الخاصة بهذه السجلات و لكن ببساطة عددها. اذا كنت تريد مجرد عد كل السجلات فى تقرير ، استخدم دالة Count و التي تم تصميمها بحيث تحصل علي العدد بصورة سريعة . لذلك فى حالة تعبير فى استعلام استخدم Count بدلا من DCount . و استخدم DCount اذا كنت تريد العد من داخل الكود أو الماكرو. يمكن إستخدام DCount اذا كنت تريد الحصول علي عدد السجلات التي تحوي حقل معين ، و هذا الحقل المعين ليس موجودا فى مصدر بيانات النموذج أو التقرير الذي تقوم بالحساب فيه. الحقول التي تحوي قيم Null لا تدخل فى حساب عدد السجلات ، الا إذا كانت قيمة ال expr تساوي * ، أي أنه فى حالة كون ال expr يساوي * تقوم الدالة بعد جميع السجلات حتي تلك التي تحوي حقول Null . مثال : intX = DCount("*", "Orders") اذا كان المجال المحدد جدول به حقل مفتاح ، فيمكنك أن تضع قيمة ال expr تساوي حقل المفتاح ، حيث أنه لن يكون أبدا Null . اذا كانت expr تحوي أكثر من حقل ، يكون الفاصل بينها اما + و إما & ، اذا كان الفاصل ( & ) فان دالة dcount تقوم بعد السجلات فى أي من الحقول المذكورة ، أما اذا استخدمنا ال ( + ) فان الدالة تقوم بعد السجلات فى كل الحقول المذكورة . مثال : intW = DCount("[ShipName]", "Orders") intX = DCount("[ShipRegion]", "Orders") intY = DCount("[ShipName] + [ShipRegion]","Orders") intZ = DCount("[ShipName] & [ShipRegion]","Orders") intW = 831 intX =323 intY =323 intZ =831 ملاحظة : ال ampersand أي ال (&) هي أفضل معامل يمكن استخدامه فى الصاق النصوص ، و يجب تجنب استخدام ال (+) الا فى حالة جمع الارقام . القيم التي لم يتم حفظها بعد فى السجلات لا تدخل فى حسابات الدالة ، و لكن لادخالها لابد من حفظ السجل أولا ، و ذلك باختيار حفظ من أمر File أو بالانتقال الي السجل التالي ، أو باستخدام طريقة ال Update . مثال : = DCount ("[price]", "Orders", "[product] = 'mouse'") و المثال يعني نقوم بالعد لحقل السعر في جدول الطلبيات بشرط أن المنتج = mouse , يلاحظ أن القيمة النصية فى الشرط توضع بين ‘ ‘. و في حالة حقل الشرط رقمي لا توضع = DCount ("[price]", "Orders", "[productID] = 5") ---------------------------------------------------------------------------------------- DLookup Method تستخدم دالة DLookup للحصول علي قيمة حقل محدد من مجموعة سجلات (مجال) . و يمكن استخدام هذه الدالة فى كود الفيجوال بيزيك أو فى ماكرو أو فى استعلام أو فى عنصر تحكم به قيمة محسوبة فى نموذج أو تقرير. و يكون نوع البيانات للقيمة الناتجة منها Variant صيغة الدالة : DLookup(Expr, Domain, Criteria) Expr : قيمة نصية تعرف الحقل الذي يحوي البيانات التي تريد اعادتها بواسطة هذه الدالة ، و هي يمكن أن تكون نص يعبر عن إسم حقل فى جدول أو استعلام ، أو معادلة حسابية علي هذا الحقل ، و فى هذا التعبير يمكن ادراج اسم حقل ، عنصر تحكم فى نمموذج ، ثابت ، أو دالة و لكن فى حالة احتوائه علي دالة فيمكن أن تكون دالة من تصميم المستخدم أو دالة جاهزة فى أكسس ،ـ و لكن لا يمكن أن تكون دالة من دوال المجال التجميعية الأخري Domain : قيمة نصية تعرف مجموعة السجلات التي تمثل المجال ، و يمكن أن تكون جدول أو استعلام و كل من Expr و Domain قيم اجبارية لابد من ادراجها فى الدالة ، أما القيمة التالية Criteria فهي خيارية Criteria : قيمة خيارية ( قد توضع و قد لا توضع ) ، و هي معيار يوضع لتحديد مجال تطبيق الدالة ، و يمكن اعتبارها كشرط مناظر ل WHERE في عبارة SQL ، و في حالة عدم ادراجها يتم تطبيق الدالة علي المجال بأكمله. في حالة ادراج حقل فى هذا المعيار و هذا الحقل غير مدرج فى المجال ، تكون القيمة المعادة من الدالة null ، لذا أي حقل موجود فى المعيار Criteria يجب أن يكون أيضا مدرجا فى المجال. ملاحظات تعيد الدالة DLookup قيمة وحيدة بناء علي المعايير التي تحددها فى جزء ال criteria فى الدالة ، و هذا الجزء كما ذكرنا خياري ، فاذا لم نحدد المعيار فان الدالة تعيد قيمة عشوائية من ضمن المجال. اذا لم يوجد سجل يوفي الشروط المحددة فى المعيار ، فان الدالة DLookup تعيد قيمة Null . اذا حقق أكثر من سجل المعيار المطلوب فان الدالة ااا تعيد أول حدوث لتحقيق الشرط ، أي قيمة الحقل فى أول سجل يحقق المعيار ، علي الرغم من وجود سجلات أخري تحققه . لذا يفضل تحديد الشرط بدقة بحيث يعيد سجل وحيد Dim varX As Variant varX = DLookup("[LastName]", "Employees", "[EmployeeID] = 1") يمكن استخدام هذه الدالة كمعيار فى الاستعلام العادي أو كقيمة محسوبة فى استعلام تحديث يمكنك استخدام DLookup لاظهار قيمة حقل ليس من ضمن البيانات فى مصدر بيانات النموذج أو التقرير لنفرض أن لديك نموذج تفاصيل الطلبيات و هو مبني علي جدول تفاصيل الطلبيات ، و تريد إدراج اسم المنتج من جدول المنتجات فى مربع نص علي النموذج، بجيث يكون بالطبع يساوي رقم المنتج الذي يظهر فى مربع نص آخر علي النموذج اسمه ProductID. فنضع الكود التالي فى مربع النص الذي نريد إظهار الاسم فيه =DLookup("[ProductName]", "Products", "[ProductID] =" _ & Forms![Order Details]!ProductID) بالرغم من أنك تستطيع الحصول علي قيمة حقل فى جدول مرتبط باسنخدام DLookup ، الا أنه ينصح فى هذه الحالة بعمل استعلام مبني علي الجدولين و استخدامه كمصدر لبيانات النموذج أو التقرير. القيم التي لم يتم حفظها بعد فى السجلات لا تدخل فى حسابات الدالة ، و لكن لادخالها لابد من حفظ السجل أولا ، و ذلك باختيار حفظ من أمر File أو بالانتقال الي السجل التالي ، أو باستخدام طريقة ال Update . DMax Method تستخدم دالة DMax للحصول علي القيم القصوي فى مجموعة سجلات ( مجال ) . و يمكن استخدام هذه الدالة فى كود الفيجوال بيزيك أو فى ماكرو أو فى استعلام أو فى عنصر تحكم به قيمة محسوبة فى نموذج أو تقرير. و يكون نوع البيانات للقيمة الناتجة منها Variant صيغة الدالة : DMax(Expr, Domain, Criteria) Expr : قيمة نصية تعرف الحقل الذي يحوي البيانات التي تريد اعادة اقيمة القصوي لها بواسطة هذه الدالة ، و هي يمكن أن تكون نص يعبر عن إسم حقل فى جدول أو استعلام ، أو معادلة حسابية علي هذا الحقل ، و فى هذا التعبير يمكن ادراج اسم حقل ، عنصر تحكم فى نمموذج ، ثابت ، أو دالة و لكن فى حالة احتوائه علي دالة فيمكن أن تكون دالة من تصميم المستخدم أو دالة جاهزة فى أكسس ،ـ و لكن لا يمكن أن تكون دالة من دوال المجال التجميعية الأخري Domain : قيمة نصية تعرف مجموعة السجلات التي تمثل المجال ، و يمكن أن تكون جدول أو استعلام و كل من Expr و Domain قيم اجبارية لابد من ادراجها فى الدالة ، أما القيمة التالية Criteria فهي خيارية Criteria : قيمة خيارية ( قد توضع و قد لا توضع ) ، و هي معيار يوضع لتحديد مجال تطبيق الدالة ، و يمكن اعتبارها كشرط مناظر ل WHERE في عبارة SQL ، و في حالة عدم ادراجها يتم تطبيق الدالة علي المجال بأكمله. في حالة ادراج حقل فى هذا المعيار و هذا الحقل غير مدرج فى المجال ، تكون القيمة المعادة من الدالة null ، لذا أي حقل موجود فى المعيار Criteria يجب أن يكون أيضا مدرجا فى المجال. ملاحظات الدالة DMax تعيد أقصي قيمة تحقق المعيار المحدد ، و هذا فى حالة الحقل الرقمي ، أما فى حالة الحقل النصي فانها تعيد أو ل أو آخر قيمة بحسب الترتيب الابجدي. الدالة DMax تتجاهل قيم ال Null فى حقل البحث ، و أيضا اذا لم تجد حقل يحقق المعيار المحدد فانها تعيد القيمة Null. يمكن استخدام هذه الدالة كمعيار فى الاستعلام العادي أو كقيمة محسوبة فى استعلام تحديث يمكن استخدام DMax او Max فى حقل محسوب فى استعلام تجميع ، فى حالة DMax يتم اختبار القيم قبل تجميعها و فى حالة Max يتم التجميع ثم اختبار القيم. اذا كنت تريد ببساطة حساب أقصي قيمة فى مجال محدد فاستخدم الدالة Max . يمكنك استخدام DMax لاظهار أقصي قيمة حقل ليس من ضمن البيانات فى مصدر بيانات النموذج أو التقرير. بالرغم من أنك تستطيع الحصول علي قيمة حقل فى جدول مرتبط باسنخدام DMax ، الا أنه ينصح فى هذه الحالة بعمل استعلام مبني علي الجدولين و استخدامه كمصدر لبيانات النموذج أو التقرير. القيم التي لم يتم حفظها بعد فى السجلات لا تدخل فى حسابات الدالة ، و لكن لادخالها لابد من حفظ السجل أولا ، و ذلك باختيار حفظ من أمر File أو بالانتقال الي السجل التالي ، أو باستخدام طريقة ال Update . يمكنك استخدام DMax فى مربع نص حينما تريد تحديد معيار لتقليص المجال الذي تنفذ عليه الدالة مثال : = DMax ("[price]", "Orders", "[product] = 'mouse'") و المثال يعني أننا نريد إظهار أقصي قيمة لحقل السعر في جدول الطلبيات بشرط أن المنتج = mouse , يلاحظ أن القيمة النصية فى الشرط توضع بين ‘ ‘. و في حالة حقل الشرط رقمي لا توضع = DMax ("[price]", "Orders", "[productID] = 5") مثال آخر : فى حالة كون الشرط حقل تاريخ موجود علي عنصر تحكم فى نموذج ( مربع نص ) : Dim curX As Currency curX = DMax("[Freight]", "Orders", "[OrderDate] = #" _ & Forms!Orders!OrderDate & "#") و هنا نلاحظ أن عنصر التحكم المسمي OrderDate الموجود علي نموذج orders لم يتم احاطته ب "" ، و ذلك لأن القيمة به متغيرة و تتغير مع تغير السجلات ، و لو أحيطت ب "" لعوملت علي أنها قيمة نصية ثابتة . أيضا نلاحظ أن القيمة المعادة من عنصر التحكم نحيطها ب # و ذلك لأنها من نوع تاريخ. DMin Method تستخدم دالة DMin للحصول علي القيم الدنيا فى مجموعة سجلات ( مجال ) . و يمكن استخدام هذه الدالة فى كود الفيجوال بيزيك أو فى ماكرو أو فى استعلام أو فى عنصر تحكم به قيمة محسوبة فى نموذج أو تقرير. و يكون نوع البيانات للقيمة الناتجة منها Variant صيغة الدالة : DMin(Expr, Domain, Criteria) Expr : قيمة نصية تعرف الحقل الذي يحوي البيانات التي تريد اعادة اقيمة الدنيا لها بواسطة هذه الدالة ، و هي يمكن أن تكون نص يعبر عن إسم حقل فى جدول أو استعلام ، أو معادلة حسابية علي هذا الحقل ، و فى هذا التعبير يمكن ادراج اسم حقل ، عنصر تحكم فى نمموذج ، ثابت ، أو دالة و لكن فى حالة احتوائه علي دالة فيمكن أن تكون دالة من تصميم المستخدم أو دالة جاهزة فى أكسس ،ـ و لكن لا يمكن أن تكون دالة من دوال المجال التجميعية الأخري Domain : قيمة نصية تعرف مجموعة السجلات التي تمثل المجال ، و يمكن أن تكون جدول أو استعلام و كل من Expr و Domain قيم اجبارية لابد من ادراجها فى الدالة ، أما القيمة التالية Criteria فهي خيارية Criteria : قيمة خيارية ( قد توضع و قد لا توضع ) ، و هي معيار يوضع لتحديد مجال تطبيق الدالة ، و يمكن اعتبارها كشرط مناظر ل WHERE في عبارة SQL ، و في حالة عدم ادراجها يتم تطبيق الدالة علي المجال بأكمله. في حالة ادراج حقل فى هذا المعيار و هذا الحقل غير مدرج فى المجال ، تكون القيمة المعادة من الدالة null ، لذا أي حقل موجود فى المعيار Criteria يجب أن يكون أيضا مدرجا فى المجال. ملاحظات الدالة DMin تعيد أقل قيمة تحقق المعيار المحدد ، و هذا فى حالة الحقل الرقمي ، أما فى حالة الحقل النصي فانها تعيد أو ل أو آخر قيمة بحسب الترتيب الابجدي. الدالة DMin تتجاهل قيم ال Null فى حقل البحث ، و أيضا اذا لم تجد حقل يحقق المعيار المحدد فانها تعيد القيمة Null. يمكن استخدام هذه الدالة كمعيار فى الاستعلام العادي أو كقيمة محسوبة فى استعلام تحديث يمكن استخدام DMin او Min فى حقل محسوب فى استعلام تجميع ، فى حالة DMin يتم اختبار القيم قبل تجميعها و فى حالة Min يتم التجميع ثم اختبار القيم. اذا كنت تريد ببساطة حساب أقصي قيمة فى مجال محدد فاستخدم الدالة Min . يمكنك استخدام DMin لاظهار أقل قيمة حقل ليس من ضمن البيانات فى مصدر بيانات النموذج أو التقرير. بالرغم من أنك تستطيع الحصول علي قيمة حقل فى جدول مرتبط باسنخدام DMin ، الا أنه ينصح فى هذه الحالة بعمل استعلام مبني علي الجدولين و استخدامه كمصدر لبيانات النموذج أو التقرير. القيم التي لم يتم حفظها بعد فى السجلات لا تدخل فى حسابات الدالة ، و لكن لادخالها لابد من حفظ السجل أولا ، و ذلك باختيار حفظ من أمر File أو بالانتقال الي السجل التالي ، أو باستخدام طريقة ال Update . يمكنك استخدام DMin فى مربع نص حينما تريد تحديد معيار لتقليص المجال الذي تنفذ عليه الدالة مثال : = DMin ("[price]", "Orders", "[product] = 'mouse'") و المثال يعني أننا نريد إظهار أقصي قيمة لحقل السعر في جدول الطلبيات بشرط أن المنتج = mouse , يلاحظ أن القيمة النصية فى الشرط توضع بين ‘ ‘. و في حالة حقل الشرط رقمي لا توضع = DMin ("[price]", "Orders", "[productID] = 5") مثال آخر : فى حالة كون الشرط حقل تاريخ موجود علي عنصر تحكم فى نموذج ( مربع نص ) : Dim curX As Currency curX = DMin("[Freight]", "Orders", "[OrderDate] = #" _ & Forms!Orders!OrderDate & "#") و هنا نلاحظ أن عنصر التحكم المسمي OrderDate الموجود علي نموذج orders لم يتم احاطته ب "" ، و ذلك لأن القيمة به متغيرة و تتغير مع تغير السجلات ، و لو أحيطت ب "" لعوملت علي أنها قيمة نصية ثابتة . أيضا نلاحظ أن القيمة المعادة من عنصر التحكم نحيطها ب # و ذلك لأنها من نوع تاريخ. DStDev Method تستخدم دالة DStDev للحصول علي الانحراف المعياري لمجموعة سجلات ( مجال ) . و يمكن استخدام هذه الدالة فى كود الفيجوال بيزيك أو فى ماكرو أو فى استعلام أو فى عنصر تحكم به قيمة محسوبة فى نموذج أو تقرير. صيغة الدالة : DStDev(Expr, Domain, Criteria) Expr : قيمة نصية تعرف الحقل الرقمي الذي يحوي البيانات التي تريد حساب الانحراف المعياري لها بواسطة هذه الدالة ، و هي يمكن أن تكون نص يعبر عن إسم حقل فى جدول أو استعلام ، أو معادلة حسابية علي هذا الحقل ، و فى هذا التعبير يمكن ادراج اسم حقل ، عنصر تحكم فى نمموذج ، ثابت ، أو دالة و لكن فى حالة احتوائه علي دالة فيمكن أن تكون دالة من تصميم المستخدم أو دالة جاهزة فى أكسس ،ـ و لكن لا يمكن أن تكون دالة من دوال المجال التجميعية الأخري Domain : قيمة نصية تعرف مجموعة السجلات التي تمثل المجال ، و يمكن أن تكون جدول أو استعلام و كل من Expr و Domain قيم اجبارية لابد من ادراجها فى الدالة ، أما القيمة التالية Criteria فهي خيارية Criteria : قيمة خيارية ( قد توضع و قد لا توضع ) ، و هي معيار يوضع لتحديد مجال تطبيق الدالة ، و يمكن اعتبارها كشرط مناظر ل WHERE في عبارة SQL ، و في حالة عدم ادراجها يتم تطبيق الدالة علي المجال بأكمله. في حالة ادراج حقل فى هذا المعيار و هذا الحقل غير مدرج فى المجال ، تكون القيمة المعادة من الدالة null ، لذا أي حقل موجود فى المعيار Criteria يجب أن يكون أيضا مدرجا فى المجال. ملاحظات تستخدم هذه الدالة لحساب الانحراف المعياري لعينة من السكان اذا كان المجال المحدد يحوي أقل من عدد 2 سجل ، فان هذه الدالة تكون قيمتها Null مما يدل علي أن الانحراف المعياري لم يمكن حسابه. يمكن استخدام هذه الدالة كمعيار فى الاستعلام العادي أو كقيمة محسوبة فى استعلام تحديث يمكن استخدام DStDev او StDev فى حقل محسوب فى استعلام تجميع ، فى حالة DStDev يتم الحساب قبل التجميع و فى حالة StDev يتم التجميع ثم الحساب . اذا كنت تريد ببساطة حساب أقصي قيمة فى مجال محدد فاستخدم الدالة StDev. القيمة المعادة من هذه الدالة تكون من نوع Double . و يجب مراعاة ذلك عند ادخالها فى عمليات حسابية. القيم التي لم يتم حفظها بعد فى السجلات لا تدخل فى حسابات الدالة ، و لكن لادخالها لابد من حفظ السجل أولا ، و ذلك باختيار حفظ من أمر File أو بالانتقال الي السجل التالي ، أو باستخدام طريقة ال Update. يمكنك استخدام DStDev فى مربع نص حينما تريد تحديد معيار لتقليص المجال الذي تنفذ عليه الدالة مثال : = DStDev ("[price]", "Orders", "[product] = 'mouse'") و المثال يعني أننا نريد إظهار أقصي قيمة لحقل السعر في جدول الطلبيات بشرط أن المنتج = mouse , يلاحظ أن القيمة النصية فى الشرط توضع بين ‘ ‘. و في حالة حقل الشرط رقمي لا توضع = DStDev ("[price]", "Orders", "[productID] = 5") مثال آخر : فى حالة كون الشرط حقل تاريخ موجود علي عنصر تحكم فى نموذج ( مربع نص ) : Dim curX As Currency curX = DStDev ("[price]", "Orders", "[OrderDate] = #" _ & Forms!Orders!OrderDate & "#") و هنا نلاحظ أن عنصر التحكم المسمي OrderDate الموجود علي نموذج orders لم يتم احاطته ب "" ، و ذلك لأن القيمة به متغيرة و تتغير مع تغير السجلات ، و لو أحيطت ب "" لعوملت علي أنها قيمة نصية ثابتة . أيضا نلاحظ أن القيمة المعادة من عنصر التحكم نحيطها ب # و ذلك لأنها من نوع تاريخ. DStDevP Method تستخدم دالة DStDevP للحصول علي الانحراف المعياري لمجموعة سجلات ( مجال ) . و يمكن استخدام هذه الدالة فى كود الفيجوال بيزيك أو فى ماكرو أو فى استعلام أو فى عنصر تحكم به قيمة محسوبة فى نموذج أو تقرير. صيغة الدالة : DStDevP(Expr, Domain, Criteria) Expr : قيمة نصية تعرف الحقل الرقمي الذي يحوي البيانات التي تريد حساب الانحراف المعياري لها بواسطة هذه الدالة ، و هي يمكن أن تكون نص يعبر عن إسم حقل فى جدول أو استعلام ، أو معادلة حسابية علي هذا الحقل ، و فى هذا التعبير يمكن ادراج اسم حقل ، عنصر تحكم فى نمموذج ، ثابت ، أو دالة و لكن فى حالة احتوائه علي دالة فيمكن أن تكون دالة من تصميم المستخدم أو دالة جاهزة فى أكسس ،ـ و لكن لا يمكن أن تكون دالة من دوال المجال التجميعية الأخري Domain : قيمة نصية تعرف مجموعة السجلات التي تمثل المجال ، و يمكن أن تكون جدول أو استعلام و كل من Expr و Domain قيم اجبارية لابد من ادراجها فى الدالة ، أما القيمة التالية Criteria فهي خيارية Criteria : قيمة خيارية ( قد توضع و قد لا توضع ) ، و هي معيار يوضع لتحديد مجال تطبيق الدالة ، و يمكن اعتبارها كشرط مناظر ل WHERE في عبارة SQL ، و في حالة عدم ادراجها يتم تطبيق الدالة علي المجال بأكمله. في حالة ادراج حقل فى هذا المعيار و هذا الحقل غير مدرج فى المجال ، تكون القيمة المعادة من الدالة null ، لذا أي حقل موجود فى المعيار Criteria يجب أن يكون أيضا مدرجا فى المجال. ملاحظات تستخدم هذه الدالة لحساب الانحراف المعياري للسكان ( و ليس لعينة من السكان ) اذا كان المجال المحدد يحوي أقل من عدد 2 سجل ، فان هذه الدالة تكون قيمتها Null مما يدل علي أن الانحراف المعياري لم يمكن حسابه. يمكن استخدام هذه الدالة كمعيار فى الاستعلام العادي أو كقيمة محسوبة فى استعلام تحديث يمكن استخدام DStDevP او StDevP فى حقل محسوب فى استعلام تجميع ، فى حالة DStDevP يتم الحساب قبل التجميع و فى حالة StDevP يتم التجميع ثم الحساب . اذا كنت تريد ببساطة حساب أقصي قيمة فى مجال محدد فاستخدم الدالة StDevP. القيمة المعادة من هذه الدالة تكون من نوع Double . و يجب مراعاة ذلك عند ادخالها فى عمليات حسابية. القيم التي لم يتم حفظها بعد فى السجلات لا تدخل فى حسابات الدالة ، و لكن لادخالها لابد من حفظ السجل أولا ، و ذلك باختيار حفظ من أمر File أو بالانتقال الي السجل التالي ، أو باستخدام طريقة ال Update. يمكنك استخدام DStDevP فى مربع نص حينما تريد تحديد معيار لتقليص المجال الذي تنفذ عليه الدالة مثال : = StDevP ("[price]", "Orders", "[product] = 'mouse'") و المثال يعني أننا نريد إظهار أقصي قيمة لحقل السعر في جدول الطلبيات بشرط أن المنتج = mouse , يلاحظ أن القيمة النصية فى الشرط توضع بين ‘ ‘. و في حالة حقل الشرط رقمي لا توضع = StDevP ("[price]", "Orders", "[productID] = 5") مثال آخر : فى حالة كون الشرط حقل تاريخ موجود علي عنصر تحكم فى نموذج ( مربع نص ) : Dim curX As Currency curX = StDevP ("[price]", "Orders", "[OrderDate] = #" _ & Forms!Orders!OrderDate & "#") و هنا نلاحظ أن عنصر التحكم المسمي OrderDate الموجود علي نموذج orders لم يتم احاطته ب "" ، و ذلك لأن القيمة به متغيرة و تتغير مع تغير السجلات ، و لو أحيطت ب "" لعوملت علي أنها قيمة نصية ثابتة . أيضا نلاحظ أن القيمة المعادة من عنصر التحكم نحيطها ب # و ذلك لأنها من نوع تاريخ. DSum Method تستخدم دالة DSum للحصول علي المجموع لمجموعة سجلات ( مجال ) . و يمكن استخدام هذه الدالة فى كود الفيجوال بيزيك أو فى ماكرو أو فى استعلام أو فى عنصر تحكم به قيمة محسوبة فى نموذج أو تقرير. صيغة الدالة : DSum(Expr, Domain, Criteria) Expr : قيمة نصية تعرف الحقل الرقمي الذي يحوي البيانات التي تريد حساب الإجمالي لها بواسطة هذه الدالة ، و هي يمكن أن تكون نص يعبر عن إسم حقل فى جدول أو استعلام ، أو معادلة حسابية علي هذا الحقل ، و فى هذا التعبير يمكن ادراج اسم حقل ، عنصر تحكم فى نمموذج ، ثابت ، أو دالة و لكن فى حالة احتوائه علي دالة فيمكن أن تكون دالة من تصميم المستخدم أو دالة جاهزة فى أكسس ،ـ و لكن لا يمكن أن تكون دالة من دوال المجال التجميعية الأخري Domain : قيمة نصية تعرف مجموعة السجلات التي تمثل المجال ، و يمكن أن تكون جدول أو استعلام و كل من Expr و Domain قيم اجبارية لابد من ادراجها فى الدالة ، أما القيمة التالية Criteria فهي خيارية Criteria : قيمة خيارية ( قد توضع و قد لا توضع ) ، و هي معيار يوضع لتحديد مجال تطبيق الدالة ، و يمكن اعتبارها كشرط مناظر ل WHERE في عبارة SQL ، و في حالة عدم ادراجها يتم تطبيق الدالة علي المجال بأكمله. في حالة ادراج حقل فى هذا المعيار و هذا الحقل غير مدرج فى المجال ، تكون القيمة المعادة من الدالة null ، لذا أي حقل موجود فى المعيار Criteria يجب أن يكون أيضا مدرجا فى المجال. يمكنك استخدام هذه الدالة فى فى تعبير محسوب فى استعلام لحساب اجمالي المبيعات التي قام بها مندوب معين ، أو فى عنصر تحكم للحصول علي القيمة التراكمية للمبيعات لمنتج معين ( هذا فى النموذج ، أما فى التقرير فيمكن استخدام خاصية running sum لمربع النص للحصول علي القيمة التراكمية بدون Dsum ) . اذا لم توجد سجلات تحقق المعيار المحدد أو كان المجال لا يحوي سجلات ، فان قيمة الدالة تكون Null. يمكن استخدام هذه الدالة كمعيار فى الاستعلام العادي أو كقيمة محسوبة فى استعلام تحديث يمكن استخدام DSum او Sum فى حقل محسوب فى استعلام تجميع ، فى حالة DSum يتم الحساب قبل التجميع و فى حالة Sum يتم التجميع ثم الحساب . يمكنك استخدام DSum لاظهار أقل قيمة حقل ليس من ضمن البيانات فى مصدر بيانات النموذج أو التقرير. القيم التي لم يتم حفظها بعد فى السجلات لا تدخل فى حسابات الدالة ، و لكن لادخالها لابد من حفظ السجل أولا ، و ذلك باختيار حفظ من أمر File أو بالانتقال الي السجل التالي ، أو باستخدام طريقة ال Update . مثال : = DMin ("[price]", "Orders", "[product] = 'mouse'") و المثال يعني أننا نريد إظهار أقصي قيمة لحقل السعر في جدول الطلبيات بشرط أن المنتج = mouse , يلاحظ أن القيمة النصية فى الشرط توضع بين ‘ ‘. و في حالة حقل الشرط رقمي لا توضع = DMin ("[price]", "Orders", "[productID] = 5") مثال آخر : فى حالة كون الشرط حقل تاريخ موجود علي عنصر تحكم فى نموذج ( مربع نص ) : Dim curX As Currency curX = DMin("[Freight]", "Orders", "[OrderDate] = #" _ & Forms!Orders!OrderDate & "#") و هنا نلاحظ أن عنصر التحكم المسمي OrderDate الموجود علي نموذج orders لم يتم احاطته ب "" ، و ذلك لأن القيمة به متغيرة و تتغير مع تغير السجلات ، و لو أحيطت ب "" لعوملت علي أنها قيمة نصية ثابتة . أيضا نلاحظ أن القيمة المعادة من عنصر التحكم نحيطها ب # و ذلك لأنها من نوع تاريخ. DVar Method تستخدم دالة DVar للحصول علي تقديرات التنوع لمجموعة سجلات ( مجال ) . و يمكن استخدام هذه الدالة فى كود الفيجوال بيزيك أو فى ماكرو أو فى استعلام أو فى عنصر تحكم به قيمة محسوبة فى نموذج أو تقرير. تستخدم هذه الدالة فى تحليل التنوع خلال عينة من السكان ، مثلا حساب التنوع فى نتائج اختبارات مجموعة من الطلاب. صيغة الدالة : DVar(Expr, Domain, Criteria) Expr : قيمة نصية تعرف الحقل الرقمي الذي يحوي البيانات التي تريد حساب التنوع لها بواسطة هذه الدالة ، و هي يمكن أن تكون نص يعبر عن إسم حقل فى جدول أو استعلام ، أو معادلة حسابية علي هذا الحقل ، و فى هذا التعبير يمكن ادراج اسم حقل ، عنصر تحكم فى نمموذج ، ثابت ، أو دالة و لكن فى حالة احتوائه علي دالة فيمكن أن تكون دالة من تصميم المستخدم أو دالة جاهزة فى أكسس ،ـ و لكن لا يمكن أن تكون دالة من دوال المجال التجميعية الأخري . و يلاحظ أن أي حقل يرد فى هذا الجزء من الدالة لابد أن يكون رقمي . Domain : قيمة نصية تعرف مجموعة السجلات التي تمثل المجال ، و يمكن أن تكون جدول أو استعلام و كل من Expr و Domain قيم اجبارية لابد من ادراجها فى الدالة ، أما القيمة التالية Criteria فهي خيارية Criteria : قيمة خيارية ( قد توضع و قد لا توضع ) ، و هي معيار يوضع لتحديد مجال تطبيق الدالة ، و يمكن اعتبارها كشرط مناظر ل WHERE في عبارة SQL ، و في حالة عدم ادراجها يتم تطبيق الدالة علي المجال بأكمله. في حالة ادراج حقل فى هذا المعيار و هذا الحقل غير مدرج فى المجال ، تكون القيمة المعادة من الدالة null ، لذا أي حقل موجود فى المعيار Criteria يجب أن يكون أيضا مدرجا فى المجال. ملاحظات اذا كان المجال المحدد يحوي أقل من عدد 2 سجل ، فان هذه الدالة تكون قيمتها Null مما يدل علي أن الانحراف المعياري لم يمكن حسابه. يمكن استخدام هذه الدالة كمعيار فى الاستعلام العادي أو كقيمة محسوبة فى استعلام تحديث يمكن استخدام DVar او Var فى حقل محسوب فى استعلام تجميع ، فى حالة DVar يتم الحساب قبل التجميع و فى حالة Var يتم التجميع ثم الحساب . اذا كنت تريد ببساطة حساب أقصي قيمة فى مجال محدد فاستخدم الدالة Var. القيم التي لم يتم حفظها بعد فى السجلات لا تدخل فى حسابات الدالة ، و لكن لادخالها لابد من حفظ السجل أولا ، و ذلك باختيار حفظ من أمر File أو بالانتقال الي السجل التالي ، أو باستخدام طريقة ال Update. يمكنك استخدام DVar فى مربع نص حينما تريد تحديد معيار لتقليص المجال الذي تنفذ عليه الدالة مثال : = DVar ("[price]", "Orders", "[product] = 'mouse'") و المثال يعني أننا نريد إظهار أقصي قيمة لحقل السعر في جدول الطلبيات بشرط أن المنتج = mouse , يلاحظ أن القيمة النصية فى الشرط توضع بين ‘ ‘. و في حالة حقل الشرط رقمي لا توضع = DVar ("[price]", "Orders", "[productID] = 5") مثال آخر : فى حالة كون الشرط حقل تاريخ موجود علي عنصر تحكم فى نموذج ( مربع نص ) : Dim curX As Currency curX = DVar ("[price]", "Orders", "[OrderDate] = #" _ & Forms!Orders!OrderDate & "#") و هنا نلاحظ أن عنصر التحكم المسمي OrderDate الموجود علي نموذج orders لم يتم احاطته ب "" ، و ذلك لأن القيمة به متغيرة و تتغير مع تغير السجلات ، و لو أحيطت ب "" لعوملت علي أنها قيمة نصية ثابتة . أيضا نلاحظ أن القيمة المعادة من عنصر التحكم نحيطها ب # و ذلك لأنها من نوع تاريخ. DVarP Method تستخدم دالة DStDev للحصول علي الانحراف المعياري لمجموعة سجلات ( مجال ) . و يمكن استخدام هذه الدالة فى كود الفيجوال بيزيك أو فى ماكرو أو فى استعلام أو فى عنصر تحكم به قيمة محسوبة فى نموذج أو تقرير. تستخدم هذه الدالة فى تحليل التنوع لمجموع السكان ( و ليس عينة من السكان ) صيغة الدالة : DVarP(Expr, Domain, Criteria) Expr : قيمة نصية تعرف الحقل الرقمي الذي يحوي البيانات التي تريد حساب التنوع لها بواسطة هذه الدالة ، و هي يمكن أن تكون نص يعبر عن إسم حقل فى جدول أو استعلام ، أو معادلة حسابية علي هذا الحقل ، و فى هذا التعبير يمكن ادراج اسم حقل ، عنصر تحكم فى نمموذج ، ثابت ، أو دالة و لكن فى حالة احتوائه علي دالة فيمكن أن تكون دالة من تصميم المستخدم أو دالة جاهزة فى أكسس ،ـ و لكن لا يمكن أن تكون دالة من دوال المجال التجميعية الأخري . و يلاحظ أن أي حقل يرد فى هذا الجزء من الدالة لابد أن يكون رقمي . Domain : قيمة نصية تعرف مجموعة السجلات التي تمثل المجال ، و يمكن أن تكون جدول أو استعلام و كل من Expr و Domain قيم اجبارية لابد من ادراجها فى الدالة ، أما القيمة التالية Criteria فهي خيارية Criteria : قيمة خيارية ( قد توضع و قد لا توضع ) ، و هي معيار يوضع لتحديد مجال تطبيق الدالة ، و يمكن اعتبارها كشرط مناظر ل WHERE في عبارة SQL ، و في حالة عدم ادراجها يتم تطبيق الدالة علي المجال بأكمله. في حالة ادراج حقل فى هذا المعيار و هذا الحقل غير مدرج فى المجال ، تكون القيمة المعادة من الدالة null ، لذا أي حقل موجود فى المعيار Criteria يجب أن يكون أيضا مدرجا فى المجال. ملاحظات اذا كان المجال المحدد يحوي أقل من عدد 2 سجل ، فان هذه الدالة تكون قيمتها Null مما يدل علي أن الانحراف المعياري لم يمكن حسابه. يمكن استخدام هذه الدالة كمعيار فى الاستعلام العادي أو كقيمة محسوبة فى استعلام تحديث يمكن استخدام DVarP او VarP فى حقل محسوب فى استعلام تجميع ، فى حالة DVarP يتم الحساب قبل التجميع و فى حالة VarP يتم التجميع ثم الحساب . اذا كنت تريد ببساطة حساب أقصي قيمة فى مجال محدد فاستخدم الدالة VarP . القيم التي لم يتم حفظها بعد فى السجلات لا تدخل فى حسابات الدالة ، و لكن لادخالها لابد من حفظ السجل أولا ، و ذلك باختيار حفظ من أمر File أو بالانتقال الي السجل التالي ، أو باستخدام طريقة ال Update. يمكنك استخدام DVarP فى مربع نص حينما تريد تحديد معيار لتقليص المجال الذي تنفذ عليه الدالة مثال : = DVarP ("[price]", "Orders", "[product] = 'mouse'") و المثال يعني أننا نريد إظهار أقصي قيمة لحقل السعر في جدول الطلبيات بشرط أن المنتج = mouse , يلاحظ أن القيمة النصية فى الشرط توضع بين ‘ ‘. و في حالة حقل الشرط رقمي لا توضع = DVarP ("[price]", "Orders", "[productID] = 5") مثال آخر : فى حالة كون الشرط حقل تاريخ موجود علي عنصر تحكم فى نموذج ( مربع نص ) : Dim curX As Currency curX = DVarP ("[price]", "Orders", "[OrderDate] = #" _ & Forms!Orders!OrderDate & "#") و هنا نلاحظ أن عنصر التحكم المسمي OrderDate الموجود علي نموذج orders لم يتم احاطته ب "" ، و ذلك لأن القيمة به متغيرة و تتغير مع تغير السجلات ، و لو أحيطت ب "" لعوملت علي أنها قيمة نصية ثابتة . أيضا نلاحظ أن القيمة المعادة من عنصر التحكم نحيطها ب # و ذلك لأنها من نوع تاريخ.

في محل للعصير يتم بيع بالجملة والمفرق (صناديق و قناني) المطلوب موضح في هذه الصورة تم انشاء UDF لهذه الحالة في هذا الملف عسى ان ينال الاعجاب case_butil_salim.xlsm

شوف اخر كود ارسلته لك شغال ميه في الميه انا كلمك على هذا لم تشتاف كلمه محذوف On Error Resume Next DoCmd.SetWarnings False Dim Q As Recordset 'هذا الكود يلغي الخفظ التلقائ عند التراجع و' Set Q = CurrentDb.OpenRecordset("SELECT * from AJRD;") While Not Q.EOF If Q!Xsave = False Then Q.Delete End If Q.MoveNext Me.frm_JRD_Sub.Requery Wend DoCmd.SetWarnings True

اتفضل هل هذا ينفع On Error Resume Next DoCmd.SetWarnings False Dim Q As Recordset 'هذا الكود يلغي الخفظ التلقائ عند التراجع و' Set Q = CurrentDb.OpenRecordset("SELECT * from AJRD;") While Not Q.EOF If Q!Xsave = False Then Q.Delete End If Q.MoveNext Me.frm_JRD_Sub.Requery Wend DoCmd.SetWarnings True

بارك الله فيك اخي Khalf

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

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

اخي الكريم جرب هذا البرنامج فهو من تصميم الاستاذ صالح حمادي

كنت على اول خلية وضغطت الازرار ولم تفلح شكرا اخي علي الملف مضبوط

لم افهم قصدك اخي ياليت لو توضح اكثر

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

نعم اخي Shivan Rekany هو هذا اللي يدور في عقلي انا كنت عملت هذه الطريقه Print.accdb

شكرا لك اخي الكريم شفان بارك الله فيك

تفضل اخى الكريم ليس هناك اى خطأ فى معادلة جلب الأسماء بدون تكرار ولكن الخطأ كان فى طريقة اقفال المعادلة فهذه معادلة مصفوفة وليست كمعادلة عادية ان تضغط على انتر بعد انهاء المعادلة ولكن لابد من الضغط على Ctrl+Shift+Enter بدون تكرار2.xlsm

اضغط على السهم الاسود في اللي ظاهرة في المربع الاحمر وقم باختيار الخيار الاول (Run From My Computer) بالعربی احتمال ان یکون تشغيل من جهاز الكمبيوتر الخاص بي واضغط على زر متابعة

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

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

جزاك الله خيرا أخي الكريم وهذا برنامج جامع للفكرتين ( جلب اسماء الطابعات + تحديد الطابة الافتراضية ) ولعلي أحظى بدعوة لي ولوالدي ... تحديد واختيار الطابعة الافتراضية - تغيير الطابعة الافتراضية.accdb

اتفضل استخدمت هذه المجموعة Private Sub Form_Load() Me.Helbijartin = Null Me.Form.Repaint Me.Helbijartin.RowSource = "SELECT table1." & "[" & Me.Heqil & "]" & "FROM table1;" End Sub Private Sub Helbijartin_AfterUpdate() On Error Resume Next Me.Eded = DCount("*", "Table1", "[" & Me.Heqil & "]=" & Me.Helbijartin) Me.Eded = DCount("*", "Table1", "[" & Me.Heqil & "]='" & Me.Helbijartin & "'") End Sub Private Sub Heqil_AfterUpdate() Me.Helbijartin = Null Me.Eded = Null Me.Form.Repaint Me.Helbijartin.RowSource = "SELECT table1." & "[" & Me.Heqil & "]" & "FROM table1;" End Sub Private Sub RpleceAll_Click() If IsNull(Me.Heqil) = True Then MsgBox "اختر الحقل المراد استبدال فيه اولا" Me.Heqil.SetFocus ElseIf IsNull(Me.Helbijartin) = True Then MsgBox "قم باختيار الکلمة او الرقم المراد استبداله" Me.Helbijartin.SetFocus ElseIf IsNull(Me.GohorinBo) = True Then MsgBox "قم بكتابة كلمة او رقم الاستبدال به" Me.GohorinBo.SetFocus Else DoCmd.SetWarnings False DoCmd.RunSQL ("UPDATE table1 SET table1." & "[" & Me.Heqil & "]" & "= [Forms]![form]![GohorinBo] WHERE (((table1." & "[" & Me.Heqil & "]" & ")=[Forms]![form]![Helbijartin]))") DoCmd.SetWarnings True MsgBox "تم استبدال" & "(" & Me.Eded & ")" & "سجلات " & vbCrLf & vbCrLf & vbCrLf & _ " من " & " ( " & Me.Helbijartin & " ) " & " الى " & " ( " & Me.GohorinBo & " ) " & "بنجاح ", vbOKOnly + vbMsgBoxRtlReading, "تم" Me.Helbijartin = Null Me.GohorinBo = Null Me.Eded = Null Me.Form.Repaint End If End Sub واليك المرفق بعد تعديل test.accdb

بارك الله فيك اخي على سلمت يمناك . الله يجزيك كل خير يارب

السلام عليك محمد وضعت حلا للنقر المتكرر وأصلحت العيب.. لكن لم أجربه.. إن شاء الله يكون العمل مباركا. كهرباء.mdb عند وضع المكون Web Browser ActiveX في النموذج يقوم أكسس بتهيئة مكتبات DLL الخاصة بالمكون؛ وذلك من أجل تسهيل العمل على المبرمج. عند نقل المكون لا تنتقل هذه المكونات تلقائيا.

وعليكم السلام ,تفضل الملف بعد التعديل عليه 99.xlsx

الحبيب الغالى استاذ @سليم حاصبيا شكرا جزيلا للمساعدة دائما تقدم لنا المساعدة جزاك الله خــــيرا

السلام عليكم أخي الكريم لديك خطأ في الأكواد البرمجية لمعرفة مكان الخطأ إتبع الخطوات التالية: 1- إفتح محرر الأكواد 2- إضغط على القائمة Debug 3- اختر الامر Compile Database سوف تظهر لك الأخطاء الموجودة بالكود.

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

أهلا محمد سوف أنظر في إمكانية معالجة النقر المتكرر وأقوم معها بحل المشاكل المتعلقة بالنقل إن شاء الله

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

لقد نقلت الكود من نموذج لدي لعلي أحظى بدعوة منكم إن عمل لديكم جلب أسماء الطابعات.accdb

جرب هذا الكود Option Explicit Sub transfer() Dim Target_Sh As Worksheet Set Target_Sh = Sheets("الغياب") Dim Single_sh As Worksheet Dim My_row% Dim i%, s# Dim ara As Range Dim Blank_Range As Range My_row = Target_Sh.Cells(Rows.Count, 1).End(3).Row + 1 For Each Single_sh In Worksheets If Single_sh.Name = Target_Sh.Name Then GoTo 1 Set Blank_Range = Single_sh.Range("a1") _ .CurrentRegion.Columns(5) On Error Resume Next Set Blank_Range = Blank_Range.SpecialCells(xlCellTypeBlanks) s = Err.Number If s <> 0 Then s = 0: GoTo 1 s = 0 For Each ara In Blank_Range.Areas Target_Sh.Cells(My_row, 1).Resize(ara.Rows.Count, 5).Value = _ ara.Offset(, -4).Resize(ara.Rows.Count, 5).Value My_row = My_row + ara.Rows.Count Next 1: Next End Sub الملف مرفق AAA_Salim.xlsm

السلام عليكم عندنا جدول من صفوف كثيرة بحيث لا تتسع لها صفحة واحدة كيف نقوم بطباعة كل عدد محدد من الصفوف (انت تختاره) مع جمع الارقام في كل ورقة طباعة في اسفلها و تكرار رأس الجدول في كل ورقة طباعة و اذا كانت قسمة عدد الصفوف على العدد الذي اخترته لا تساوي عدداً صحيحاً كيف يتصرف الاكسل كل ذلك في هذا الملف Smart_Printing.xlsm

نعم اخي Shivan Rekany انا كنت حاولت فيها ولم اعرف اين المشكله ههههههههههه في النماذج فيها سر غامض

وعليكم السلام وجدت هذا البرنامج لدى يمكنك تجربته العيادات الطبية.rar

السلام عليكم رائع استاذ طارق وفقكم الله وحفظكم لكم وافر احترامي وتقديري

إني فخور بكوني أنتمي لهذا المجتمع .

شكراًلك أخي @kanory و الشكر لأخي @صالح حمادي

أهلا بكم.. إليكم هذه التجربة البسيطة لتوظيف صفحات HTML في عرض البيانات بشكل جذاب ومميز .. للعلم.. كان العمل على قدر السؤال فقط. Dashboard.zip

بسم الله الرحمن الرحيم بمناسبة حلول العام الهجري الجديد وبعد الاستفادة من : تقويم أم القرى ، ونموذج التقويم ( النتيجة ) وبإشراف من الأستاذ أبو هادي يسرني أن أضع هذا البرنامج لإنشاء وطباعة التقاويم المقارنة بالخيارات التالية : 1 - إنشاء تقويم مقارن من تقويمين حسب اختيار المستخدم ( أم القرى - هجري - ميلادي ) . 2- تحديد الإجازات والمناسبات الخاصة . 3 - تحديد نهاية الأسبوع . 4 - تحديد لغة الطباعة . أرجو أن يستفيد منه الجميع . وأنتظر ملاحظات الرواد عمومًا . حقوق النشر والتوزيع متاحة للجميع ؛ شريطة الإشارة للموضوع هنا ... الحقوق الفكرية محفوظة لمنتديات أوفيسنا . أخوكم أبو سليمان . Calendar.rar

موضوع مرتبط http://www.officena.net/ib/index.php?showtopic=1720

حل اخر : قم بعمل تقرير Report مبني على هذا الاستعلام Query وقم بوضع مربع نص Text Box بجانب الحقول بالتقرير وضع القيمة =1 بعد ذلك اذهب الى خصائص مربع النصText Boxوقم بتغيير الخاصية مجموع تراكمي (Runing Sum) الى شامل (Over All)

هذا مثال من موقع أجنبي يقدم الحل بطريقتين NumberedQuery2k.zip