jjafferr

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

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

السلام عليكم وبعد جهد جهيد توصلت الى هذا التقرير ، رجاء اعمل نسخة ، واعمل تجاربك على النسخة التقرير يحتوي على 20 مادة ، لذلك اضطررت ان العب في حجم الحقول قليلا ، وحسب عدد المواد التي تختارها ، فان اسماء المواد وعلاماتها تتسع لتملئ المكان بين الاسم والمجموع. . . . لا تزيد ولا تنقص في عرض واماكن الحقول ، ولا شعرة ، وإلا لن تلصق الحقول ببعضها كما يجب. طريقة العمل: 1. نخفي الحقول التي رقمها اكبر من عدد المواد ، 2. نأخذ المسافة بين الاسم والمجموع العام ، ثم نقسمه على عدد المواد ، وعليه نعطي كل حقل نصيبه من القسمة الكود: في النموذج ، حسبنا عدد المواد الموجودة ، وذلك على حدث بعد التحديث لمربعات التحرير (المربع باللون البرتقالي في النموذج ، ويمكنك اخفاءه): 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) 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 . ثم في التقرير ، وعلى قسم التفصيل ، ورأس مجموعة التخصص: Option Compare Database Private Factor As Single Private Sub Detail_Format(Cancel As Integer, FormatCount As Integer) On Error Resume Next Limit = Forms!AS_nataeg_tolap!How_Many If Limit = 20 Then Exit Sub Visited_Detail = Visited_Detail + 1 'make the other fields, in-visible Dim ctl As Control For Each ctl In Report.Controls If ctl.ControlType = acTextBox Then Type1 = Replace(ctl.Name, "N", "") Type2 = Replace(Type1, "tt_", "") If Val(Type1) > Limit Or Val(Type2) > Limit Then ctl.Visible = False Else ctl.Visible = True End If 'IsNull End If 'ControlType Next ctl Me.Ctl1N.Left = Me.Ctl1.Left: Me.Ctl1N.Width = Me.Ctl1.Width Me.Ctl2N.Left = Me.Ctl2.Left: Me.Ctl2N.Width = Me.Ctl2.Width Me.Ctl3N.Left = Me.Ctl3.Left: Me.Ctl3N.Width = Me.Ctl3.Width Me.Ctl4N.Left = Me.Ctl4.Left: Me.Ctl4N.Width = Me.Ctl4.Width Me.Ctl5N.Left = Me.Ctl5.Left: Me.Ctl5N.Width = Me.Ctl5.Width Me.Ctl6N.Left = Me.Ctl6.Left: Me.Ctl6N.Width = Me.Ctl6.Width Me.Ctl7N.Left = Me.Ctl7.Left: Me.Ctl7N.Width = Me.Ctl7.Width Me.Ctl8N.Left = Me.Ctl8.Left: Me.Ctl8N.Width = Me.Ctl8.Width Me.Ctl9N.Left = Me.Ctl9.Left: Me.Ctl9N.Width = Me.Ctl9.Width Me.Ctl10N.Left = Me.Ctl10.Left: Me.Ctl10N.Width = Me.Ctl10.Width Me.Ctl11N.Left = Me.Ctl11.Left: Me.Ctl11N.Width = Me.Ctl11.Width Me.Ctl12N.Left = Me.Ctl12.Left: Me.Ctl12N.Width = Me.Ctl12.Width Me.Ctl13N.Left = Me.Ctl13.Left: Me.Ctl13N.Width = Me.Ctl13.Width Me.Ctl14N.Left = Me.Ctl14.Left: Me.Ctl14N.Width = Me.Ctl14.Width Me.Ctl15N.Left = Me.Ctl15.Left: Me.Ctl15N.Width = Me.Ctl15.Width Me.Ctl16N.Left = Me.Ctl16.Left: Me.Ctl16N.Width = Me.Ctl16.Width Me.Ctl17N.Left = Me.Ctl17.Left: Me.Ctl17N.Width = Me.Ctl17.Width Me.Ctl18N.Left = Me.Ctl18.Left: Me.Ctl18N.Width = Me.Ctl18.Width Me.Ctl19N.Left = Me.Ctl19.Left: Me.Ctl19N.Width = Me.Ctl19.Width Me.Ctl20N.Left = Me.Ctl20.Left: Me.Ctl20N.Width = Me.Ctl20.Width Me.tt_1n.Left = Me.Ctl1.Left: Me.tt_1n.Width = Me.Ctl1.Width Me.tt_2n.Left = Me.Ctl2.Left: Me.tt_2n.Width = Me.Ctl2.Width Me.tt_3n.Left = Me.Ctl3.Left: Me.tt_3n.Width = Me.Ctl3.Width Me.tt_4n.Left = Me.Ctl4.Left: Me.tt_4n.Width = Me.Ctl4.Width Me.tt_5n.Left = Me.Ctl5.Left: Me.tt_5n.Width = Me.Ctl5.Width Me.tt_6n.Left = Me.Ctl6.Left: Me.tt_6n.Width = Me.Ctl6.Width Me.tt_7n.Left = Me.Ctl7.Left: Me.tt_7n.Width = Me.Ctl7.Width Me.tt_8n.Left = Me.Ctl8.Left: Me.tt_8n.Width = Me.Ctl8.Width Me.tt_9n.Left = Me.Ctl9.Left: Me.tt_9n.Width = Me.Ctl9.Width Me.tt_10n.Left = Me.Ctl10.Left: Me.tt_10n.Width = Me.Ctl10.Width Me.tt_11n.Left = Me.Ctl11.Left: Me.tt_11n.Width = Me.Ctl11.Width Me.tt_12n.Left = Me.Ctl12.Left: Me.tt_12n.Width = Me.Ctl12.Width Me.tt_13n.Left = Me.Ctl13.Left: Me.tt_13n.Width = Me.Ctl13.Width Me.tt_14n.Left = Me.Ctl14.Left: Me.tt_14n.Width = Me.Ctl14.Width Me.tt_15n.Left = Me.Ctl15.Left: Me.tt_15n.Width = Me.Ctl15.Width Me.tt_16n.Left = Me.Ctl16.Left: Me.tt_16n.Width = Me.Ctl16.Width Me.tt_17n.Left = Me.Ctl17.Left: Me.tt_17n.Width = Me.Ctl17.Width Me.tt_18n.Left = Me.Ctl18.Left: Me.tt_18n.Width = Me.Ctl18.Width Me.tt_19n.Left = Me.Ctl19.Left: Me.tt_19n.Width = Me.Ctl19.Width Me.tt_20n.Left = Me.Ctl20.Left: Me.tt_20n.Width = Me.Ctl20.Width End Sub Private Sub taksos_Header_Format(Cancel As Integer, FormatCount As Integer) On Error Resume Next Limit = Forms!AS_nataeg_tolap!How_Many Starting_Point = Me.lbl_Total.Left + Me.lbl_Total.Width Me.fasl_derasi = "الفصل الدراسي " & Forms!AS_nataeg_tolap!fasl_derasi.Column(1) If Limit = 20 Then Exit Sub 'make the other fields, in-visible Dim ctl As Control For Each ctl In Report.Controls If ctl.ControlType = acComboBox Then If Val(ctl.Name) > Limit Then ctl.Visible = False Else ctl.Visible = True End If 'IsNull If Val(ctl.Name) = Limit Then Factor = (ctl.Left - Starting_Point) / Limit End If 'ControlType Next ctl 'Debug.Print "Header" 'move and stretch fields For i = Limit To 1 Step -1 For Each ctl In Report.Controls If ctl.ControlType = acComboBox And Val(ctl.Name) = i Then ctl.Left = Starting_Point ctl.Width = ctl.Width + Factor Starting_Point = ctl.Left + ctl.Width Exit For 'Debug.Print ctl.Name & vbTab & ctl.Left & vbTab & ctl.Width End If 'ControlType Next ctl Next i End Sub . جعفر 533.1.db5.mdb.zip

شكرا استاذ شفان على التصحيح جعفر

وهذا بالضبط اللي يعمله الكود ، ولكن ما تقدر تشوفه إلا في الطباعة (يعني ما يصير في معاينة التقرير) ، انا ما اطبع على ورق _3 نسخ) ، وانما عندي طابعة pdf ، فتطبع لي ملفات pdf من التقرير. جعفر

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

وعليكم السلام ضع هذا الكود في وحدة نمطية: Option Compare Database Public Get_myDate As Date Function Get_This() Get_This = Get_myDate End Function كود امر الطباعة ، اصبح: Private Sub Command22_Click() Dim I As Byte CopyN = InputBox("أدخل عدد النسخ المطلوب طباعتها :", "عدد النسخ") If IsNumeric(CopyN) Then For I = 0 To CopyN - 1 Get_myDate = DateAdd("d", I, Date) DoCmd.OpenReport "rpt_Patient_Drugs" Next I Else MsgBox "البيانات التي أدخلتها ليست بيانات رقمية .", vbCritical End If End Sub جعفر 552.4.accdb.zip

السلام عليكم اخي محمد قد يكون احد اسباب عدم الرد هو عدم وضوح السؤال !! الموضوع ما فيه شرح بالمطلوب (نعم الشرح غير واضح) ، وانا انزلت المرفق وكذلك لا يوجد فيه شرح عن المطلوب!! لوسمحت تخبرنا عن المطلوب بخطوات ومثال جعفر