ابوخليل

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

شكرا لك استاذ صالح موضوع مهم وجميل لم يطرق من قبل .

شكرا استاذ جعفر موضوع تكثر الحاجة اليه ..

كفيت ووفيت استاذنا الكريم انا اعلم ان هذا العمل اخذ من جهدك ووقتك الكثير .. كتب الله اجرك دمت ذخرا لنا

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

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

لو لاحظت في مثالي المرفق انه يتم ادخال درجة الراكب : degree ، ورقم الباص : busNum من قبل المستخدم بحيث يمكننا ايضا من خلاله منح الدرجة ورقم الباص لأي راكب آخر وبهذا نستطيع تخصيص احد الباصات لفئة معينة من الركاب اما الركاب الذين لا يدخل لهم هذين الحقلين فيطبق عليهم التوزيع العشوائي على الباصات دعنا من المشرفين ومن في حكمهم فبإمكان المستخدم توزيعهم يدويا المهم هو توزيع البقية على الشاغر من الكراسي كمجموعات (الحاج ومرافقيه = مجموعة ) واعتقد انه لن يتحقق ذلك الا باعتماد المعرف المشترك بينهم userid

شاكر ومقدر تعبك ابو عبدالله ومحاولتك الوصول الى نتيجة مرضية ولكن الحل بعيد عن المطلوب آمل ان تستحضر التالي في المطلوب : حقل id لا يمكن اعتماده في الشرط والتوزيع لانه عرضة للتغيير كما تعلم فبمجرد حذف البيانات والبدء من جديد حتما سيتغير فالمطلوب وبكل بساطة ان يتم التوزيع حسب المعرف المشترك بين الحاج ومرافقيه ولأضرب لك مثلا : لنفرض ان الباص رقم واحد عند عملية التوزيع تبقى فيه 2 كراسي خالية هنا يجب ان يتم تعبئته بحاج لديه مرافق واحد ، او تعبئته بحاجين مفردين ، ولا يسمح بتعبئته بحاج لديه اكثر من مرافق ، فالمرافق الذي لديه اربعة مرافقين لو سمحنا له لتفرق مرافقوه بين اكثر من باص والمطلوب ان يكون كل حاج ومرافقيه ضمن باص واحد ملحوظة : لصعوبة تطبيق الفكرة (عمليا ) لا بأس ان نحصل في النتيجة النهائية على بعض الكراسي الشاغرة لتعذر تعبئتها ، لذلك يمكن معالجتها يدويا

السلام عليكم مشروع حملة حج خيرية .. طلب مني توزيع آلي للركاب حسب شروط محددة عدد الباصات 5 يتسع الباص لـــ 49 كرسي لكل باص مشرف خاص عدد المشرفين 5 مع عائلاتهم كل حاج معه مرافقين يختلف عددهم من حاج لآخر ، ويمكن ان يكون الحاج وحيدا المطلوب بضغطة زر التوزيع على الباصات حسب الشروط التالية 1- توزيع المشرفين الخمسة على الباصات الخمسة كل حسب رقم الباص المسجل امامه . 2- توزيع بقية الحجاج على الباصات بشرط مهم وهو ان يكون كل حاج وعائلته ضمن باص واحد . وينطبق ذلك على المشرفين ايضا 3- تعبئة الباصات الاول ثم الذي يليه حتى اكتمال الباصات بالركاب المرفقات : جدولان : رئيسي وفرعي الرئيسي سجل فيه بيانات الحاج والفرعي سجل فيه بيانات المرافقين له يشترك الحاج والمرافقين له بمعرف موحد بينهم : userid ينفرد كل فرد بمعرف خاص به : cardID الشكر مقدما .. لكم جميعا احبتي haj.mdb

تفضل من هنا

مبروك استاذ خالد زادك الله علما ونفع بك

استبدل الجملة CurrentProject.Path & "\Pic" بهذه الجملة "D:\New folder\Pic"

بارك الله فيك انت عرضت السؤال وانت وضعت الحل ايضا بالطريقة التي ذكرتها يتم تحقيق ذلك If Dir(CurrentProject.Path & "\Pic", vbDirectory) <> "" Then SetAttr (CurrentProject.Path & "\Pic"), vbHidden ElseIf Dir(CurrentProject.Path & "\Pic", vbDirectory) = "" Then MsgBox "لا يوجد ملف حتى يتم التطبيق " SetAttr (CurrentProject.Path & "\Pic"), vbNormal

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

هذه هي النتيجة كما يظهر بالصورة اعلاه بحيث تكون كل افادة في صفحة جرب مرر الى الصفحات التالية

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

Dim fld As Object Set fld = CurrentDb.OpenRecordset("tableName") With fld .MoveFirst Do Until .EOF .Edit On Error Resume Next If [id] = .Fields("id") Then [textName] = [textName] & " " & "/" & .Fields("textName") End If .Update .MoveNext Loop fld.Close End With Set fld = Nothing

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

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

تهنئة من القلب والف مبروك نسأل الله لكم التوفيق والعون

وهذا حل ايضا Prog444.rar

تفضل تجميع حسب اليوم Prog5.rar

عليكم السلام لاحظ انك اذا اردت التجميع حسب الشهر فيجب الغاء حقل التاريخ من التقرير تم التعديل آمل ان يكون هو مطلوبك Prog4.rar

دقق في الكلام اعلاه ,, ما فيه شي اسمه اعطاها يجب ان يكون الترقيم تلقائي يتم بعد نقر زر الحفظ

السلام عليكم كل كلام ووجهات نظر اخوتي اعلاه صحيح وجهة نظري ان جميع الجداول في اكسس يجب ان ان يكون لها ترقيم تلقائي وحبذا يكون هو المفتاح ولا ضير ان يتم الحذف وايضا من غير المهم الاستفادة من الارقام المحذوفة ( يمكن وضع آلية بنسخ السجلات المحذوفة وحفظها) هذا العمود هو ملك اكسس وهو المرجع للسجل بما يسمى الــــ (id) ومفيد جدا عند تحويل الجداول الى sql