jjafferr

حياك الله واسمي جعفر تفضل: 555.Employees2.accdb.zip

تفضل جعفر

وعليكم السلام تفضل هذا الرابط يناقش نفس موضوعك https://www.officena.net/ib/topic/74054-مشكله-الخطوط-في-التقارير/ جعفر

وعليكم السلام هلا بأخوي حربي بعدنا على عزومة الكاهي وباقلّه ودهن ولكن للعلم ، لا تستطيع ان تُظهر ملفات pdf في PictureBox ، وانما تعرضه في متصفح الانترنت ن للعم جعفر 556.za-EMP_webbrowser.mdb.zip

تفضل جمع الدرجة 1 إذا كانت الفئة الأولى فقط =DCount("*","S_Employees","[RMZ]='1' and [Number]='1'") جمع الدرجة 2 كل الفئات عدا الفئة الأولى =DCount("*","S_Employees","[RMZ]='2' and [Number]<>'1'") جعفر

تكملة الموضوع على هذا الرابط: جعفر

هنا لوسمحت ، وسأشير في الرابط السابق الى هذا الرابط

السلام عليكم يا رجال ، وآخر شعرتين على راسي طاحوا من كثرة ما حكّيت راسي بحثا عن طريقة حل ، والسبب كنت انت الحمدلله توصلنا لحل في شغله مهمة جعلتني ارجع للموضوع واشارك هنا ، قبل ان يتورط اخي شفان فيها وما يعرف سبب عدم حصوله على نتائج صحيحه للفصلين 3 و 4 ، وهي: انت تأخذ اسماء الفصول من الجدول (كما هو موضح بالصورة) ، وتسلسل اسماء الفصول صحيح ، ولكن تسلسل ارقام الفصول غير صحيح (الفصلين الثالث والرابع): . لذلك ترى اني في الكود في النموذج اشرت الى هذه الملاحظة: . واضطررت الى تغيير الكود وتعديل التسلسل في التقرير ، للحصول على الاشهر الصحيحة ، لأننا في الكود عملنا (For i = 1 To 4) لقراءة كل فصل ، واستعملنا الارقام كرقم الفصل: . الآن اطلب منك أخي سامي لوسمحت ان ترفق لنا برنامجك لموضوع التقرير فقط ، ولمادة العلوم، ولكن بعد ان: تحذف جميع البيانات الحساسة ، تحذف جميع بيانات التخصصات الاخرى ، تعمل بيانات وهمية للفصول الاربعة ، لكلية العلوم ، قسم الكيمياء ، تخصص الكيمياء العضوية ، تحذف جميع الجداول والتقارير والاستعلامات التي لا علاقة لها بالموضوع التقرير ، اعمل تغيير لنوع الخطوط في التقرير الى Arial ، حتى لا يكون في التقرير خطوط غير موجودة على كمبيوتراتنا. يعني الشخص لما يفتح البرنامج يستطيع ان يرى اسم شخص او اثنين ، ونتائج المواد في الفصول ، وبالتقرير يستطيع ان يرى نتائج الفصول مع بعض ، وكل فصل على حدة ، وياريت كلمتين تشرح فيها ان المستخدم يجب ان يختار كذا ثم كذا ، والنتجة ستكون كذا شكرا وملاحظة للجميع ، بأن هذا الموضوع هو تكملة للموضوع: جعفر

وعليكم السلام لاحظت عندك اكثر من حقل محسوبين ، فأضفتهم الى الاستعلام كذلك ، لم اغير في النموذج ، والحقول التي اجريت التجارب عليها تبدأ بالحرف z جعفر 554.add.accdb.zip

وعليكم السلام شوف هذا الرابط https://www.officena.net/ib/topic/61469-امثلة-بسيطة-للدالة-dlookup/?do=findComment&comment=398963 و https://www.officena.net/ib/topic/73622-صيغة-الداله-dmax-مع-استخدام-اكثر-من-شرط/?do=findComment&comment=474236 جعفر

السام عليكم المرفق "تقريبا" فيه المطلوب ، الخطأ الوحيد الذي لاحظته هو عند اختيارك الفصل ، فان المواد الصحيحة لا تظهر!! اتمنى الاستاذ شفان يقدر يصلحه ، لأني لازم انتقل لمشروع آخر جعفر 533.2.db5.mdb.zip

السلام عليكم اهلا وسهلا بك في المنتدى للأسف عنوان موضوعك مخالف ، رجاء عمل موضوع آخر بعنوان يدل على محتوى السؤال ، او يعطي وصفا مختصرا. قواعد المشاركة فى الموقع اضغط هنـــــــــامن فضلك لقراءة القواعد كاملة و بصفة خاصة نؤكدعلى ما يلي 1- يمنع منعا باتا نشر أية مواد تخالف حقوق الملكية الفكرية و يرجى الابلاغ عن المشاركات المخالفة من خلال زر تقرير اسفل المشاركة 2-يجب استخدام خاصيةالبحث قبل طرح السؤال توفيرا للوقت و الجهد. 3-ضرورة كتابة عنوان واضح للموضوع يدل على محتواه ويعطي وصفاً مختصرا للسؤال. 4-ممنوع منعا باتاً كتابة عناوين سينمائية مثل عاجل ، نداء الي فلان ، الي الخبراء ، طلب مساعدة ، أريد حلا..... 5-يمكن استعجال الرد باستخدام تعبير -للرفع- و غير مسموح بالالحاح او اللوم فجميع الاعضاء يشاركون تطوعا طبقا لسعة وقتهم. ومخالفة ذلك تعرض الموضوع للحذف مخالف - يُغلق. جعفر

عفوا ما اقرأت السؤال بالطريقة الصحيحه اليك المعادلتين لإستعمالهم في استعلام: Size_Weight: IIf([Size_Weight] = 0, [required_number] * [Me.Unit_price], [Size_Weight]) Size_Weight1: IIf(Len([coodkind] & "") <> 0 And Len([Size_Weight1] & "") = 0, [Size_Weight], [Size_Weight1]) او Size_Weight1: IIf(Len([coodkind] & "") <> 0 And Len([Size_Weight1] & "") = 0, IIf([Size_Weight] = 0, [required_number] * [Me.Unit_price], [Size_Weight]), [Size_Weight1]) . وقد تحتاج انك تغير الفاصلة (لإستعمال الوندوز الانجليزي) الى فاصلة منقوطة (لإستعمال الوندوز العربي) ، جعفر

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

السلام عليكم ولما تقف على السجل ، هل تتغير بيانات السجلات الاخرى الى نفس بيانات الحقل المحسوب الذي انت عليه؟ جعفر

السلام عليكم ما كنت ادري ان الموضوع راح يأخذ هذا الزخم!! استاذ شفان ، اسمح لي اتدخل واساعد عدد المواد لكل فصل تقدر تحصل عليه بالكود التالي (جزء من الكود عندك في المرفق ، ولكني اضفت عدد المواد في كل فصل): Function How_Many_Records() On Error GoTo err_How_Many_Records mySQL = mySQL & "[NAM_PARNAMG]=" & Me.NAM_PARNAMG mySQL = mySQL & " AND [taksos]=" & Me.taksos mySQL = mySQL & " AND [department]=" & Me.departmentT mySQL = mySQL & " AND [asm_college]=" & Me.asm_collegeT 'Debug.Print mySQL Me.How_Many = DCount("*", "Mokarar_drasi", mySQL) Me.fasl_derasi_1 = DCount("*", "Mokarar_drasi", mySQL & " And [fasl_derasi]=1") Me.fasl_derasi_2 = DCount("*", "Mokarar_drasi", mySQL & " And [fasl_derasi]=2") Me.fasl_derasi_3 = DCount("*", "Mokarar_drasi", mySQL & " And [fasl_derasi]=4") 'This is it's Seq in field id_aam, Table Tarif_aam Me.fasl_derasi_4 = DCount("*", "Mokarar_drasi", mySQL & " And [fasl_derasi]=5") 'This is it's Seq in field id_aam, Table Tarif_aam Exit Function err_How_Many_Records: If Err.Number = 3075 Then Me.How_Many = 0 Resume Next Else MsgBox Err.Number & vbCrLf & Err.Description End If End Function . وسأحاول انا ايضا ان انظر للموضوع ، لأني تعديت مرحلة الاستفسارات اللي لايزال الاستاذ شفان فيها جعفر

ماشاء الله عليك اخوي صالح ، كفيت ووفيت ، وما بقيت لي شئ اكتبه التنسيق: وذلك بإستخدام زر الـ Tab (لتحريك السطر Indenting) ، و زر Enter (للإنتقال الى السطر التالي) تنسيق وتجميع مجموعات اللـ IF مهم ، وكلما كان تنسيقك افضل ، كلما قلّت اخطاءك ، وكلما استطعت الوصوت للخطأ بسرع في الصور كود لبرنامج أحد الاعضاء (واعتذر مسبقا من صاحب الاكواد) ، لاحظ طريقة عرض الكود ، بدون تنسيق ، وصعوبة معرفة بداية ونهاية الشرط IF : قبل التنسيق وسهولة القراءة بعد التنسيق . اما الكود التالي ، فذكرني بالكاريكاتير "ابحث عن فضولي" ، وهنا نبحث عن بداية ونهاية الشرط IF : . وتم تعديل التنسيق (تغيير الكود هو للتوضيح) الى: . هناك شيئين في التنسيق ، الاول: لاحظ انه من السهل معرفة بداية ونهاية كل شرط ، وحتى الشروط المتداخلة في الشرط الاصلي ، اصبح من السهل معرفة بدايتها ونهايتها ، ونافذة الكود تخبرنا 1: على اي سطر نحن (Line, Ln) ، و 2: في اي عمود (Column, Col) ، مما يساعدنا في عملية التنسيق . ثانيا: لاحظ اني عندما اقفل الجملة الشرطية End If ، فاني اكتب تعليق خلفها ، وهذا التعليق مأخوذ من جزء من بداية الشرط IF ، هذا يسهل عليّ كثيرا معرفة بداية ونهاية الجملة الشرطية: . جعفر

السلام عليكم مبروك عليك أخي شفان ترقيتك الى "عضو محترف" ، تستاهل جعفر

وعليكم السلام تفضل جعفر 553.Test.accdb.zip

حاول فيها بالكود ، لأن زبائني ورائي وانا متأخر في العمل جعفر

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

وعليكم السلام تفضل DoCmd.GoToPage 2 جعفر

شكرا جزيلا أستاذ محمد جعفر