alloui79

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

اخي الكريم ابو احمد جزاك الله كل خير هذا هو المطلوب

طلب اخير اخي ابو احمد اريد ان يظهر مانجز على الاستعلام مطبق في التقرير 

كل صفحة فيها 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 الفارغ ولم يظهر ارجو التحقق من الكود 

  15 ساعات مضت, alloui79 said:

لنفترض انه فيه ثلاثة شروط

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

ممكن تجرب هذا 

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 الفارغ ولم يظهر ارجو التحقق من الكود 

  15 ساعات مضت, alloui79 said:

لنفترض انه فيه ثلاثة شروط

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

ممكن تجرب هذا 

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

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

3 ساعات مضت, احمد الفلاحجي said:

ظننت انه تم الاجابه فعليا فدخلت لاطلع على الاجابه لاستزيد من العلم

فوجدت بان السائل قد اختار افضل اجابه ع السؤال نفسه

فنوضح له بارك الله فيه بان افضل اجابه توضع لمن اجابك او لنفسك اذا كنت وصلت للاجابه بنفسك ووضعتها لاخوانك لتعم الفائده

وعلى العموم تفضل هذه محاولتى لفهم المطلوب

جرب ع العميل 33335555444 فهذا ليس له ديون كما اشرت بالمشاركه السابقه

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

 

بالتوفيق

Database10_1.accdb 492 kB · 1 download

لنفترض انه فيه ثلاثة شروط

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

لنفترض انه فيه ثلاثة شروط

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

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

التقرير الفارغ يعني ان ليس له ديون ةيظهر فيه عبارة لا شيئ

هل من حل 

عندما لا يكون فيه ايه بيانات يفتح التقرير (1) فارغ 
 وإذا كانت هناك بيانات فيتم نقلي الى التقرير رقم ( 2 )

الملف مرفق 

Database10.accdb

هل من حل 

عندما لا يكون فيه ايه بيانات يفتح التقرير (1) فارغ 
 وإذا كانت هناك بيانات فيتم نقلي الى التقرير رقم ( 2 )

ارجو منك ان تساعدني في عمل فروم مثل الذي في الفيديو  

من يساعدني شاهدا الفيديو واعمل مثله