alloui79

عندي تقرير واريد معادلة شرط في تقرير اذا كان القيمة صفر اريد ان تظهر كلمة لاشيى

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

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

شكرا على المجهود استاد kkhalifa1960 لكن انا لم اوصل ايك فكرتي جيدا الفكرة انني اريد عندما اختار من النمودج from1 الدي يمثل الديون حسب رقم الدين والسنة فعند الضغط على زر اظهار تفاصيل الدين يظهر نودج from2 تفاصيل الدين حسب رقم الدين فان كان فيه ثلاث انواع للدين يظهر ثلاث فقط وان كان 4 يظهر 4 فقط ولي تقريب فكرتي الى سيادتكم سوف ارفق ملف اكسس DDTest3Form.accdb

اكسس اظھار نموذج فرعي رقم 2 داخل نموذج رئيسي بضغط زر على النموذج الفرعي رقم 1

مساعدة في تحويل الاعمدة الى صفوف اكسس والعكس

اخي الكريم ابو احمد جزاك الله كل خير هذا هو المطلوب طلب اخير اخي ابو احمد اريد ان يظهر مانجز على الاستعلام مطبق في التقرير كل صفحة فيها 20 سجل مع مجموع ال20 سجل في اخر الصفحة ومجموع الكلي ل220 سجل في اخر صفحة مع الاخذ بعين الاعتبار لتجميعات السابقة

فكرة الاستعلام ممتازة جدا لكن يبقى شيئ اخر فقد اظفت للاستعلام fonction اخر GP: Fix(CpteDom("[N°]";"Table1";"[N°]<" & [N°])/220)+1 يقوم بتقسم على 220 سجل تقريبا 10 صفحات وهو المطلوب وفي اخر صفحة يظهر المجموع الكلي لكل 220 سجل المطلوب اظافة فئة ثانية اسمها OUP تكون بالحروف اقربلك الصورة مثل كل 1000 سجل ينتمي لحرف a ويقسم على 220 سجل اي 10 صفحات 1000 سجل تنتمي لحرف b ويقسم على 220 سجل اي 10 صفحات الى اخر Database12.accdb

التتحديد يكون على التقرير وليس على النمودج للاسف لم اتوصل الى حل المشكلة

سلام عيكم ارجو مساعدتي في هدا التقرير تحديد 20 سجل في كل صفحة مع مجمع كل صفحة والمجموع الكلي في اخر صفحة Database11.accdb

ارجو من الاخ عمر الضاحي ان يفيدني في حل هذ المشكل

ارجو المساعدة من فضلكم

للاسف لا جواب !!!!!!!!😶

كل عام وانتم بالف خير تقبل الله منكم الصيام والقيام

من فضلكم هل من حل لهذه السؤل

اريد ان تظهر تفاصيل التقرير بكلمة (لاشي) في وسط الجدول واحدة غير مكرر . تظهر الاسماء فقط وذلك لعدم وجد ائ معطيات اومبلغ لتقريب الصورة ارفقت لكم ملف اكسس مع ملف وورد فيه الجدول الذي اريد اعمل مثله بالاكسس Database10 (1).accdb لا شيى.docx

اريده كما في المثال المرفق لكم بصغة اكسيل لكن في اكسس في تفاصيل التقرير لا شي.xlsx

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

تفاصيل التقرير تظهر بكلمة (لاشي) واحدة غير مكرر وذلك بشرط اذا لم يكن هناك ائ معطيات

للاسف بعد ماتاكدة جيدا اتضح بعد التجربة ان لم ينجع مع التقرير 1 الفارغ ولم يظهر ارجو التحقق من الكود ممكن تجرب هذا Private Sub Commande24_Click() Dim varcode As String Dim vars As String Dim ContRec As Integer ContRec = DCount("code", "listecont", "[code]='" & Me.code & "'") Debug.Print "ContRec >> " & ContRec If Me.code.Value <> "" Then varcode = "'" & Me.code.Value & "'" If x <> "" Then x = x & " and " End If x = x & "code = " & varcode & " " End If 'If Nz(DLookup("mtRole", "listecont", "code='" & Forms!Chrche_Filter!code & "'"), 0) <> 0 Then ' ' DoCmd.OpenReport "data", acViewPreview, , x 'Else ' DoCmd.OpenReport "nodata", acViewPreview, , x 'End If If ContRec <= 0 Then DoCmd.OpenReport "nodata", acViewPreview, , x ElseIf ContRec >= 1 And ContRec <= 17 Then DoCmd.OpenReport "data", acViewPreview, , x ElseIf ContRec >= 18 And ContRec <= 999999999 Then DoCmd.OpenReport "data", acViewPreview, , x End If End Sub شكرا لك اخ عمر ضاحي فلا هذه المرة اشتغل معايا

مشكور استاذ عمر وضاحي نجحت الفكر تسلم اخي للاسف بعد ماتاكدة جيدا اتضح بعد التجربة ان لم ينجع مع التقرير 1 الفارغ ولم يظهر ارجو التحقق من الكود ممكن تجرب هذا Private Sub Commande24_Click() Dim varcode As String Dim vars As String Dim ContRec As Integer ContRec = DCount("code", "listecont", "[code]='" & Me.code & "'") Debug.Print "ContRec >> " & ContRec If Me.code.Value <> "" Then varcode = "'" & Me.code.Value & "'" If x <> "" Then x = x & " and " End If x = x & "code = " & varcode & " " End If 'If Nz(DLookup("mtRole", "listecont", "code='" & Forms!Chrche_Filter!code & "'"), 0) <> 0 Then ' ' DoCmd.OpenReport "data", acViewPreview, , x 'Else ' DoCmd.OpenReport "nodata", acViewPreview, , x 'End If If ContRec <= 0 Then DoCmd.OpenReport "nodata", acViewPreview, , x ElseIf ContRec >= 1 And ContRec <= 17 Then DoCmd.OpenReport "data", acViewPreview, , x ElseIf ContRec >= 18 And ContRec <= 999999999 Then DoCmd.OpenReport "data", acViewPreview, , x End If End Sub

مشكور استاذ عمر وضاحي نجحت الفكر تسلم اخي

لنفترض انه فيه ثلاثة شروط اذا لم يكن هناك بيانات يفتح التقرير 1 واذا كان فيه بيانات و اقل من 17 بيان ينتقل الى التقرير 2 واذا كان اكثر من 17 بيان ينتقل الى التقرير 3

لنفترض انه فيه ثلاثة شروط اذا لم يكن هناك بيانات يفتح التقرير 1 واذا كان فيه بيانات و اقل من 17 بيان ينتقل الى التقرير 2 واذا كان اكثر من 17 بيان ينتقل الى التقرير 3

احمد الفلاحجي مشكور على الحل بارك الله فيك