تعديل التقرير

[اشرف السيد يوسف]

التقرير يخرج بشكل وترتيب مختلف عن ترتيب بيانات فى الجدول ... حيث أجد اختلاف فى ترتيب المحافظات وكذلك اختلاف ترتيب التواريخ عن الجدول .. أرجو حل هذة المشكلة ..

و لكم الشكر مقدماً 

مرسل نموذج للعمل عليه

TEST22.accdbFetching info...

[Foksh]

وعليكم السلام ورحمة الله وبركاته ..

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

على العموم هل المقصد من كلامك هو فرز البيانات في التقرير بشكل تصاعدي ؟؟

أي أنك تريد السجلات مفروزة من التاريخ القديم إلى الحديث كما في الصورة ؟؟؟؟؟؟

 

[اشرف السيد يوسف]

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

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

واعرف ان اثقلت على سيادتك الاستاذ الفاضل Foksh

 

تم تعديل الثلاثاء at 13:20 بواسطه اشرف السيد يوسف

[Foksh]

لا عليك أخي الكريم ، هي فقط نصائح كي تحصل على النتائج المطلوبة بشكل أسرع لا غير 😀 .

أيضاً استخدم تفعيل نبهني بالردود لتحصل على اشعار سريع عندما تكون في الموضوع .

على العموم ، 

استبدل هذا السطر في الكود :-

& " where " & Feld1 & "=" & valFeld1 & " order by " & Feld2 & " DESC ")

بالسطر التالي فقط :-

& " where " & Feld1 & "=" & valFeld1 & " order by " & Feld2 & " ASC ")

 

وهو فقط تحويل الفرز من تنازلي DESC الى تصاعدي ASC .

 

 

TEST22.accdbFetching info...

تم تعديل الثلاثاء at 13:33 بواسطه Foksh
إضافة المرفق وتوضيح بخصوص نبهني بالردود

[اشرف السيد يوسف]

استاذى الفاضل foksh

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

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

[Foksh]

  في 1‏/4‏/2025 at 13:49, اشرف السيد يوسف said:

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

Expand  

حسناً ، جرب هذا التعديل في الدالة :-

Public Function Horizontal(tabelle As String, Feld1 As String, Feld2 As String, valFeld1, Optional sortField As String = "workdate")
    Dim DB As DAO.Database, rs As DAO.Recordset
    Dim sql As String
    
    Set DB = CurrentDb
    
    sql = "SELECT " & Feld2 & " FROM " & tabelle & " WHERE " & Feld1 & "=" & valFeld1
    
    If sortField <> "" Then
        sql = sql & " ORDER BY " & sortField & " ASC"
    End If
    
    Set rs = DB.OpenRecordset(sql)
    
    Horizontal = ""
    Do While Not rs.EOF
        If Horizontal = "" Then
            Horizontal = "*" & rs(Feld2)
        Else
            Horizontal = Horizontal & vbCrLf & rs(Feld2)
        End If
        rs.MoveNext
    Loop
    
    rs.Close
    Set rs = Nothing
    Set DB = Nothing
End Function

 

والإستعلام بعد التعديل :-

SELECT basic.id2, Horizontal("basic","id2","name",[id2]) AS name, Horizontal("basic","id2","gov",[id2]) AS gov, Horizontal("basic","id2","workdate",[id2]) AS [work]
FROM basic
GROUP BY basic.id2;

 

 

TEST22.accdbFetching info...

تم تعديل الثلاثاء at 14:22 بواسطه Foksh
إضافة صورة

[Foksh]

 

حسناً ، لم تعجبني النتيجة السابقة بسبب تكرار الاسم في كل سجل ، لذا جرب هذا التعديل في الدالة :-

Public Function Horizontal(tabelle As String, Feld1 As String, Feld2 As String, valFeld1, Optional sortField As String = "workdate")
    Dim DB As DAO.Database, rs As DAO.Recordset
    Dim sql As String
    Dim isFirst As Boolean
    
    Set DB = CurrentDb
    
    sql = "SELECT " & Feld2 & " FROM " & tabelle & " WHERE " & Feld1 & "=" & valFeld1
    
    If sortField <> "" Then
        sql = sql & " ORDER BY " & sortField & " ASC"
    End If
    
    Set rs = DB.OpenRecordset(sql)
    
    Horizontal = ""
    isFirst = True
    
    Do While Not rs.EOF
        If Horizontal = "" Then
            Horizontal = "*" & rs(Feld2)
        Else
            If Feld2 = "name" Then
                Horizontal = Horizontal & vbCrLf & ""
            Else
                Horizontal = Horizontal & vbCrLf & rs(Feld2)
            End If
        End If
        rs.MoveNext
    Loop
    
    rs.Close
    Set rs = Nothing
    Set DB = Nothing
End Function

 

والإستعلام بعد التعديل :-

SELECT basic.id2, Horizontal("basic","id2","name",[id2]) AS name, Horizontal("basic","id2","gov",[id2]) AS gov, Horizontal("basic","id2","workdate",[id2]) AS [work]
FROM basic
GROUP BY basic.id2;

 

النتيجة :-

 

 

المرفق الأخير الذي اعتمدته :-

 

TEST22.accdbFetching info...

تم تعديل الثلاثاء at 14:46 بواسطه Foksh
رفع المرفق والصورة الصحيحين

[اشرف السيد يوسف]

الف شكر للاستاذ الفاضل foksh ساجرب وارد على سيادتك

سؤال شخصى لماذا البعض مثل سيادتك تجودون بالعطاء و تبذلون من وقتكم ومجهودكم بهذا الشكل وبلا مقابل ... لا املك لكم الا الدعاء بالبركة وسعة الارزاق والستر 

 

[Foksh]

  في 1‏/4‏/2025 at 15:50, اشرف السيد يوسف said:

بلا مقابل

Expand  

ومن قال لك انها بلا مقابل ؟؟؟؟؟؟؟

 

صدقني جميعنا نبحث في حياتنا عن هذا المقابل 😇 

  في 1‏/4‏/2025 at 15:50, اشرف السيد يوسف said:

لا املك لكم الا الدعاء بالبركة وسعة الارزاق والستر 

Expand  

 

تم تعديل الثلاثاء at 16:00 بواسطه Foksh

[اشرف السيد يوسف]

السادة الأفاضل وخاصة الأستاذ foksh شكراً جزيلا لوقت وتعبك .. وأكرر أسف لقد نفذت كل اقتراحتك بدقة ةلا أدى ما المشكلة هل هى بالاستعلام ام الموديول ... هذا طلب المساعدة الأخير لأنى اعلم ان اثقلت عليكم لثلاث مرات 

for send.accdbFetching info...

[Foksh]

  في 1‏/4‏/2025 at 20:30, اشرف السيد يوسف said:

ما المشكلة هل هى بالاستعلام ام الموديول

Expand  

لا عليك ، ولكن قبل طرح الحل هنا . هل النتيجة التالية صحيحة ؟؟

 

 

 

تم تعديل الثلاثاء at 22:02 بواسطه Foksh
تعديل الصورة

[hanan_ms]

 مشارك مع الاستاذ @Foksh❤️🌹☕

 

مشاركة للفرز المتتالي ولكن بطريقة مختلفة ويفضل فصل قاعدة بيانات ADODB.Recordest

*  بتمرير اسم الجدول ثم اسماء الحقول فقط 

 

@اشرف السيد يوسف

عرض التقرير هل هو صحيح

(( تصميم التقرير  ))

1-الاسم 

تقرير فرعي 

1- المحافظة           التاريخ              ملاحضة

2- الفرعي قابل النمو والتقلص والكل الصف مجموعة 

صح!

او العكس المحافظة وفرعي اسمائهم مشكلتك ما حددة الوظيفه للفهم 

 

 

ADODB_Recordset_Rpt_Az_F1ToF0.rarFetching info...

[Foksh]

  

  في 1‏/4‏/2025 at 22:54, hanan_ms said:

 مشارك مع الاستاذ @Foksh❤️🌹☕

 

Expand  

أخي الكريم ، برأيك هل الخطأ ( إنشاء استعلام في كل مرة يتم فيها النقر على الزر ) الموضح في الفيديو التالي منطقي بالنسبة لمبرمج 🤔 ؟؟؟؟؟؟

 

[اشرف السيد يوسف]

نعم سيدى الفاضل الاستاذ foksh النتيجة صحيحة كما بالصورة المرسلة

[Foksh]

  في 2‏/4‏/2025 at 10:30, اشرف السيد يوسف said:

نعم سيدى الفاضل الاستاذ foksh النتيجة صحيحة كما بالصورة المرسلة

Expand  

أولاً تعديل الاستعلام بالشكل التالي :-

SELECT DISTINCT basic.id2, Horizontal("basic","id2","namee",[basic].[id2]) AS name, Horizontal("basic","id2","school",basic.id2) AS school, Horizontal("basic","id2","work",basic.id2) AS [work], Horizontal("basic","id2","Committee",basic.id2) AS Committee, Horizontal("basic","id2","work_date",basic.id2) AS work_date
FROM basic;

 

والدالة في الوحدة النمطية بالشكل التالي :-

Public Function Horizontal(tabelle As String, Feld1 As String, Feld2 As String, valFeld1, Optional sortField As String = "workdate")
    On Error GoTo ErrorHandler
    
    Dim DB As DAO.Database, rs As DAO.Recordset
    Dim sql As String
    Dim fieldName As String
    Dim isFirst As Boolean
    
    Set DB = CurrentDb
    
    sql = "SELECT [" & Feld2 & "] " & _
          "FROM [" & tabelle & "] " & _
          "WHERE ((([" & tabelle & "].[" & Feld1 & "])=" & valFeld1 & "))"
          
    Set rs = DB.OpenRecordset(sql)
    
    Horizontal = ""
    isFirst = True
    
    Do While Not rs.EOF
        If isFirst Then
            Horizontal = "*" & Nz(rs(Feld2), "")
            isFirst = False
        Else
            If Feld2 = "namee" Then
                Horizontal = Horizontal & vbCrLf & ""
            Else
                Horizontal = Horizontal & vbCrLf & Nz(rs(Feld2), "")
            End If
        End If
        rs.MoveNext
    Loop
    
    rs.Close
    Set rs = Nothing
    Set DB = Nothing
    Exit Function

ErrorHandler:
    Horizontal = ""
    If Not rs Is Nothing Then
        rs.Close
        Set rs = Nothing
    End If
    Set DB = Nothing
    Exit Function
End Function

 

لاحظ أيضاً أنني قمت بتغيير أسماء حقلين في الجدول لعدم حدوث مشاكل في الكود أو الاستعلام 😅 .

for send (0).accdbFetching info...

تم تعديل بالامس في 07:54 بواسطه Foksh