ابوخليل

شرح مختصر وافي وللفائدة بحثت عن بقية رموز العناصر فخرجت بهذه النتيجة : 126 - acAttachment 108 - acBoundObjectFrame 106 - acCheckBox 111 - acComboBox 104 - acCommandButton 119 - acCustomControl 103 - acImage 100 - acLabel 102 - acLine 110 - acListBox 114 - acObjectFrame 105 - acOptionButton 107 - acOptionGroup 124 - acPage 118 - acPageBreak 101 - acRectangle 112 - acSubform 123 - acTabCtl 109 - acTextBox 122 - acToggleButton

تكرما وتفضلا ابا فريد هلا شرحت لنا هذين السطرين If ctl.ControlType = 109 Then ctl.BackStyle = 1 الموجودة ضمن الكود ادناه ماذا تعني هذه الارقام 109 و 1 وهل هناك ارقام اخرى لها خصائص مختلفة Private Sub GroupHeader0_Format(Cancel As Integer, FormatCount As Integer) If X1 Then Dim ctl As Control For Each ctl In Me.Detail.Controls If ctl.ControlType = 109 Then ctl.BackStyle = 1 ctl.BackColor = 14933454 End If Next Else For Each ctl In Me.Detail.Controls If ctl.ControlType = 109 Then ctl.BackStyle = 1 ctl.BackColor = 16777215 End If Next End If X1 = Not X1 End Sub

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

ياسلام عليك يابو عبدالله تصدق الكود هذا موجود عندي استخدمه في تفصبل التقرير للتمييز بين الأسطر ولم يخطر ببالي لمستك الرقيقة الساحرة بانشاء مقطع الــ id الف شكر وسلمت أناملك

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

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

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

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

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

يا سلام يابوعبدالله هذا ما كنت ابحث عنه سلمت أناملك يتبقى علي اكمال بعض المتطلبات والخصائص مثل تخصيص حافلة لفئة محددة ومثل حصر انواع من الركاب ككبار السن وذوي الاحتياجات الخاصة ، وكذلك عمل اولوية لمن لم يسبق لهم الحج ، واضافة بعض الخدمات كرسائل 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

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

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