ابوخليل

اخي الكريم دائما اكتب عنوانا مناسبا يصف الموضوع تم تعديل العنوان

في حالة عدم الاستفادة منها كم يكون رصيده خلال سنة واحدة

اعتقد مثل هذا يحقق مطلوبك Private Sub Form_KeyDown(KeyCode As Integer, Shift As Integer) If KeyCode = 45 Then Dtfild = Dtfild - 1 ElseIf KeyCode = 43 Then Dtfild = Dtfild + 1 End If End Sub باعتبار Dtfild هو حقل التاريخ داخل النموذج

يعني ان الفرد يستحق في السنة 30+45 = 75 يوما + 10 اضطرارية ؟ والضابط 30+ 60 = 90 يوما + 10اضطرارية ؟

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

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

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

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

تأكد من ان البرنامج لا يأخذ نسخة احتياطية عند الاغلاق

هذا واحد من هذا المنتدى

عجيب !! لوصف العلاج لابد من الاطلاع على مثال او ما شابه

المثال فيه مطلوبك وزيادة اكتب في الحقل الاول رقم 1 واكتب في الحقل الثاني رقم 50 وانقر الزر يظهر لك الذين دفعو ا نصف الرسوم فأقل تستطيع اظهار الذين دفعو الربع فأقل اكتب في الحقل الاول 1 وفي الثاني 25 تستطيع ان تعرف الذين دفعو النصف فقط اكتب في الحقلين الرقم 50 تستطيع ان تعرف الذين دفعو اكثر من النصف اكتب في الحقل الاول 50 والثاني 100 تستطيع اظهار الذين دفعوا زيادة عن الرسوم اكتب في الحقل الاول 101 وفي الحقل الثاني 200 المثال اخذ من وقتي كثيرا حتى خرج بهذا الشكل واعتقد اني عرفت ما تريد : تريد الاعداد في الاستعلام فقط حتى يكون مصدرا للتقرير وهو الان كذلك ولكنه يظهر في النموذج ، ويمكن اظهار الاستعلام مصدر النموذج منفردا كما يمكن اظهار هذه النتائج مباشرة عبر التقرير الفائدة : انت مبرمج وتستطيع ترويض الفكرة بما يناسب حاجتك فمثلا يمكنك ان تكتفي بحقل تصفية واحد في النموذج يظهر لك حسب رقم النسبة التي تضعها فأقل او اكثر فمثلا تضع رقم 50 ليظهر في التقرير الذين دفعوا النصف فأقل او تجعلها فأكثر لا حظ انك تريد الذين لم يدفعوا نصف القيمة ولاحظ ان القيم متفاوتة ومختلفة فالسبيل الصحيح هو معرفة النسبةالمئوية المدفوعة لكل قيمة

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

ارفق مثالك وليكن على صيغة mdb

ما رأيك اخي عزيز اهديك فكرة افضل وهي البحث بالنسبة ولك من 1 الى ......... تضع معيار في الاستعلام ياخذ قيمة ما بين حقلين في النموذج nesbh: Round([sumPaid]/[INSTALLMENTS]*100;0) Aziz4.rar

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

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

الطريقة بخطوتين : 1- حماية النماذج والتقارير عن الفتح المباشر بواسطة الكود 2- تحويل المشروع الى mde هذا ما يخص ملف الواجهات والذي يهم المبرمج اما البيانات وقاعدة الجداول فهو الذي يهم المستخدم فلها طرق عدة في الحماية وغالبها ضعيف 1- اخفاء الجداول 2- تشفير الجداول 3- تحويل قاعدة الجداول الى sql

بالنسبة للكود فهو موجود ضمن مكتبتي منذ زمن ولا اعلم حقيقة من اين اخذته وهذه مشكلة عدم التوثيق فهذا واحد من الروابط التي كنت ابحث فيها www.access-programmers.co علما اني بحثت في المنتدى قبل طرح الموضوع ولكني لم اوفق ولكن تبين لي الآن وجود موضوع مشابه تماما هنا وهو للاستاذ خضر الرجبي والاستاذة زهرة ، فلهما السبق والفضل ولو وفقت بالعثور عليه لاكتفيت بالاشارة اليه ، ووفرت على نفسي بعض الوقت لا لايلزم بل يكفي وحدة نمطية واحدة وزر واحد لان اسم الملف ومساره يجب ان يكون مرنا بحيث يمكن تغييره او استبداله وهذا يعني انه يلزمك ان توجد طريقة تغيير متاحة للمستخدم حاول جلب اسماء الملفات داخل الفورم في قائمة مثلا وكل ما عليك هو تحديد الملف ثم النقر للطباعة

Dim WordObj As Object Set WordObj = CreateObject("Word.Application") WordObj.Documents.Open (CurrentProject.Path & "\WrdfilName.doc") WordObj.PrintOut Background:=False WordObj.Quit Set WordObj = Nothing طباعة ملف ورد.rar

MsgBox "welcome in officena", vbMsgBoxRtlReading 'vbMsgBoxRight وهذه تعمل ايضا db1.rar

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

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

انظر هنا http://www.officena.net/ib/topic/46742-طلب-كود-فتح-ملف-الوورد-وإغلاقه/#comment-280404

السلام عليكم بالمثال المرفق من اخوي جعفر وكما في الصورة ( الارقام الحمراء ) غير القيمة where المشار اليها برقم اثنين إلى group by واحذف المعيار المشار اليه برقم 3 ولا تنسى تضع اشارة صح في المربع الفارغ الظاهر