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