ابوخليل

الأمر لا يستحق كيف اذا ستتعلم ؟ انسخ الكود من هذا الاستعلام والصقه في الآخر فقط

اخي الكريم احرص قدر استطاعتك ان تجعل لكل سؤال موضوعا جديدا هذا النهج فوائده كثيرة لا تخفى z.rar

تنبيه ( فائدة) مع أن المشرف القدير اتى بالحل على مطلوبك ولكن لا يسمى هذا الحل : التقريب الى اقرب عشرة بل هو حقبقة التقريب الى العشرة التالية فالتقريب الى اقرب عشرة يلزم ان يكون ناتج العدد مثلا : 44.99 هو 40 وليس 50

اقرب طريق : في نموذج الادخال ننشىء مربع نص غير منظم وظيفته عند فتح النموذج جلب آخر سجل من تاريخ الخروج باستخدام Dlast ونجعل فتح سجل جديد شرطا في نسخ هذه القيمة الى الخلية الهدف 2_2.rar

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

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

الاخ الفاضل ابو باسل كل عام وانت بخير هذا مثال تقريبي لتنفيذ الفكرة باعتبار جدول tbl1 هو جدول القاعدة المحمية M.rar

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

واضح انك في بداية الطريق لا ضير كلنا قبل فترة قصيرة كنا اقل منك علما الآن عليك بالدروس التعليمية التي تأخذك من البداية المنتديات تعج بالكثير من هذه الدروس وسأدلك من قريب ... ففي هذا الرابط زميلنا ادميرال وتعليم الاكسس بالصوت والصورة ي http://www.officena.net/ib/index.php?showtopic=31301

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

تفضل أخي اتوقع هو ما تريد 22.rar

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

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

me.requrey me تعني الكائن النشط ، ويمكن استبدالها باسم الكائن أو عنصر التحكم ، وهي وسيطة للإجراء requrey requrey يمكنك استخدام الإجراء Requery لتحديث البيانات الموجودة في عنصر تحكم محدد في الكائن النشط عن طريق إعادة استعلام مصدر عنصر التحكم. إذا لم يتم تحديد عنصر تحكم، يعيد هذا الإجراء استعلام مصدر الكائن نفسه ينفذ الإجراء Requery واحدًا مما يلي: * إعادة تشغيل الاستعلام المستند إليه عنصر التحكم أو الكائن. * عرض أي سجلات جديدة أو سجلات تم تغييرها، وإزالة أي سجلات محذوفة من الجدول المستند إليه عنصر التحكم أو الكائن. ملاحظة : لا يؤثر الإجراء Requery على موضع مؤشر السجل. تشتمل عناصر التحكم المستندة إلى استعلام أو جدول على ما يلي: * مربعات قوائم ومربعات تحرير وسرد . * عناصر تحكم النماذج الفرعية . * كائنات OLE ، مثل الصور والمخططات. * عناصر التحكم التي تتضمن دالات المجال التجميعية ، مثل DSum. إذا لم يكن عنصر التحكم المحدد مستندًا إلى استعلام أو جدول، يفرض هذا الإجراء إعادة حساب عنصر التحكم. إذا تركت وسيطة اسم عنصر التحكم فارغة، يصبح للإجراء Requery نفس التأثير الذي يحدثه الضغط على SHIFT+F9 عندما يكون التركيز على الكائن. إذا كان التركيز على عنصر تحكم نموذج فرعي ، يقوم هذا الإجراء بإعادة استعلام مصدر النموذج الفرعي فقط (تمامًا كالضغط على SHIFT+F9 تعريفات : عنصر تحكم: * كائن واجهة استخدام رسومي، مثل مربع نص، أو خانة اختيار، أو شريط تمرير، أو زر أمر، يسمح للمستخدمين بالتحكم بالبرنامج. وتستخدم عناصر التحكم من أجل عرض البيانات أو الخيارات، أو إنجاز إجراء ما، أو جعل واجهة الاستخدام سهلة القراءة.) * كائنات قاعدة البيانات: تُعد الجداول والاستعلامات والنماذج والتقارير ووحدات الماكرو والوحدات النمطية هي أنواع كائنات قاعدة البيانات المتاحة في قاعدة بيانات Access. المصدر : office.microsoft.com

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

الاستعلام Query1 من اين يأخذ بياناته ولا بد ان هذه البيانات تدخل عن طريق النموذج ارفق مثالك ، فقد لا تحتاج لعبارة SQL هذه

في عرض تصميم النموذج اضغط بزر الفأرة الأيمن على مربع النص "المستلم من المبلغ" ثم اختر من القائمة المنسدلة : خصائص من الخصائص افتح لسان التبويب : حدث ، ثم انظر الى القيمة : بعد التحديث ستجد فيها "إجراء حدث" ( هذه انا الذي وضعتها من القائمة المنسدلة ) جرب أنت في غيرها فكل القيم تشتمل على هذا الاجراء . مازلنا أمام القيمة بعد التحديث : انظر الى يسار الخلية هناك ايقونة عليها ثلاث نقاط قم بالضغط عليها لتنقلك الى صفحة الفيجوال لترى الكود أو الأمر الخاص بعمليتنا وهو كالتالي : Private Sub المستلم_من_المبلغ_AfterUpdate() [المتبقي] = [اجمالي المبلغ] - [المستلم من المبلغ] End Sub وإن أردت الناتج يخرج في حقل في النموذج فقط فتستطيغ ان تكتب في عنصر تحكم مربع النص الذي هو هنا "الباقي" الكود نفسه مع قليل من الاختلاف = [اجمالي المبلغ] - [المستلم من المبلغ] فحذفنا كلمة المتبقي لأننا الآن داخل حقل المتبقي

في النموذج frm1 اكتب المستلم من المبلغ ثم اضغط Enter امل ان يكون مطلوبك test2.rar

كل الأعضاء لهم صلاحية الارفاق انظر الى كيفية ارفاق مثالك في الرابط التالي http://www.officena.net/ib/index.php?showtopic=31250

انظر ان كان التعديل كما تريد db12.rar

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

بحث بأي حقل بدون شروط query222.rar

اليك التعديل db22.rar

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

انسخ هذا الكود وألصقه في النموذج المراد منع حذف سجلاته Private Sub Form_KeyDown(KeyCode As Integer, Shift As Integer) If KeyCode = (189) And Shift = (2) Then Exit Sub End If End Sub