اشرف السيد يوسف قام بنشر بالامس في 12:56 قام بنشر بالامس في 12:56 التقرير يخرج بشكل وترتيب مختلف عن ترتيب بيانات فى الجدول ... حيث أجد اختلاف فى ترتيب المحافظات وكذلك اختلاف ترتيب التواريخ عن الجدول .. أرجو حل هذة المشكلة .. و لكم الشكر مقدماً مرسل نموذج للعمل عليه TEST22.accdb
Foksh قام بنشر بالامس في 13:01 قام بنشر بالامس في 13:01 وعليكم السلام ورحمة الله وبركاته .. يبدو أنك أخي الكريم قد نسخت ولصقت العبارة فقط في موضوعك الجديد ولم تستكمل باقي التوضيحات التي اقترحتها عليك سابقاً , على العموم هل المقصد من كلامك هو فرز البيانات في التقرير بشكل تصاعدي ؟؟ أي أنك تريد السجلات مفروزة من التاريخ القديم إلى الحديث كما في الصورة ؟؟؟؟؟؟
اشرف السيد يوسف قام بنشر بالامس في 13:18 الكاتب قام بنشر بالامس في 13:18 (معدل) نعم سيدى الفاضل اريد التقرير يخرج بنفس ترتيب الجدول على ان يكون التاريخ الاقدم فى البداية تليه باق التواريخ ارجو قبول اعتذاى لعدم المامى فعلا بكيفيه النشر بالمنتدى واعرف ان اثقلت على سيادتك الاستاذ الفاضل Foksh تم تعديل بالامس في 13:20 بواسطه اشرف السيد يوسف
Foksh قام بنشر بالامس في 13:23 قام بنشر بالامس في 13:23 (معدل) لا عليك أخي الكريم ، هي فقط نصائح كي تحصل على النتائج المطلوبة بشكل أسرع لا غير 😀 . أيضاً استخدم تفعيل نبهني بالردود لتحصل على اشعار سريع عندما تكون في الموضوع . على العموم ، استبدل هذا السطر في الكود :- & " where " & Feld1 & "=" & valFeld1 & " order by " & Feld2 & " DESC ") بالسطر التالي فقط :- & " where " & Feld1 & "=" & valFeld1 & " order by " & Feld2 & " ASC ") وهو فقط تحويل الفرز من تنازلي DESC الى تصاعدي ASC . TEST22.accdb تم تعديل بالامس في 13:33 بواسطه Foksh إضافة المرفق وتوضيح بخصوص نبهني بالردود 1
اشرف السيد يوسف قام بنشر بالامس في 13:49 الكاتب قام بنشر بالامس في 13:49 استاذى الفاضل foksh تم بالفعل حل مشكلة ترتيب التواريخ ولكن هناك ملاحظة اخيرة وهى ان المحافظات بالتقرير لا تخرج بنفس ترتيب الجدول وبالتالى يحدث خطأ ان التاريخ المقصود لا يظهر بالجدول امام المحافظة المقصودة حتى لا اطيل على سيادتك كل المطلوب ان يخرج التقرير بنفس ترتير الجدول ولكم جزيل الشكر
Foksh قام بنشر بالامس في 14:10 قام بنشر بالامس في 14:10 (معدل) 32 دقائق مضت, اشرف السيد يوسف said: حتى لا اطيل على سيادتك كل المطلوب ان يخرج التقرير بنفس ترتير الجدول ولكم جزيل الشكر حسناً ، جرب هذا التعديل في الدالة :- 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.accdb تم تعديل بالامس في 14:22 بواسطه Foksh إضافة صورة
Foksh قام بنشر بالامس في 14:41 قام بنشر بالامس في 14:41 (معدل) حسناً ، لم تعجبني النتيجة السابقة بسبب تكرار الاسم في كل سجل ، لذا جرب هذا التعديل في الدالة :- 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.accdb تم تعديل بالامس في 14:46 بواسطه Foksh رفع المرفق والصورة الصحيحين 1
اشرف السيد يوسف قام بنشر بالامس في 15:50 الكاتب قام بنشر بالامس في 15:50 الف شكر للاستاذ الفاضل foksh ساجرب وارد على سيادتك سؤال شخصى لماذا البعض مثل سيادتك تجودون بالعطاء و تبذلون من وقتكم ومجهودكم بهذا الشكل وبلا مقابل ... لا املك لكم الا الدعاء بالبركة وسعة الارزاق والستر 2
Foksh قام بنشر بالامس في 15:58 قام بنشر بالامس في 15:58 (معدل) 8 دقائق مضت, اشرف السيد يوسف said: بلا مقابل ومن قال لك انها بلا مقابل ؟؟؟؟؟؟؟ صدقني جميعنا نبحث في حياتنا عن هذا المقابل 😇 8 دقائق مضت, اشرف السيد يوسف said: لا املك لكم الا الدعاء بالبركة وسعة الارزاق والستر تم تعديل بالامس في 16:00 بواسطه Foksh 1
اشرف السيد يوسف قام بنشر بالامس في 20:30 الكاتب قام بنشر بالامس في 20:30 السادة الأفاضل وخاصة الأستاذ foksh شكراً جزيلا لوقت وتعبك .. وأكرر أسف لقد نفذت كل اقتراحتك بدقة ةلا أدى ما المشكلة هل هى بالاستعلام ام الموديول ... هذا طلب المساعدة الأخير لأنى اعلم ان اثقلت عليكم لثلاث مرات for send.accdb 1
Foksh قام بنشر بالامس في 21:44 قام بنشر بالامس في 21:44 (معدل) 1 ساعه مضت, اشرف السيد يوسف said: ما المشكلة هل هى بالاستعلام ام الموديول لا عليك ، ولكن قبل طرح الحل هنا . هل النتيجة التالية صحيحة ؟؟ تم تعديل بالامس في 22:02 بواسطه Foksh تعديل الصورة
hanan_ms قام بنشر منذ 23 ساعات قام بنشر منذ 23 ساعات مشارك مع الاستاذ @Foksh❤️🌹☕ مشاركة للفرز المتتالي ولكن بطريقة مختلفة ويفضل فصل قاعدة بيانات ADODB.Recordest * بتمرير اسم الجدول ثم اسماء الحقول فقط @اشرف السيد يوسف عرض التقرير هل هو صحيح (( تصميم التقرير )) 1-الاسم تقرير فرعي 1- المحافظة التاريخ ملاحضة 2- الفرعي قابل النمو والتقلص والكل الصف مجموعة صح! او العكس المحافظة وفرعي اسمائهم مشكلتك ما حددة الوظيفه للفهم ADODB_Recordset_Rpt_Az_F1ToF0.rar
Foksh قام بنشر منذ 20 ساعات قام بنشر منذ 20 ساعات 2 ساعات مضت, hanan_ms said: مشارك مع الاستاذ @Foksh❤️🌹☕ أخي الكريم ، برأيك هل الخطأ ( إنشاء استعلام في كل مرة يتم فيها النقر على الزر ) الموضح في الفيديو التالي منطقي بالنسبة لمبرمج 🤔 ؟؟؟؟؟؟
اشرف السيد يوسف قام بنشر منذ 11 ساعات الكاتب قام بنشر منذ 11 ساعات نعم سيدى الفاضل الاستاذ foksh النتيجة صحيحة كما بالصورة المرسلة
Foksh قام بنشر منذ 9 ساعات قام بنشر منذ 9 ساعات 1 ساعه مضت, اشرف السيد يوسف said: نعم سيدى الفاضل الاستاذ foksh النتيجة صحيحة كما بالصورة المرسلة أولاً تعديل الاستعلام بالشكل التالي :- 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).accdb
الردود الموصى بها
Join the conversation
You can post now and register later. If you have an account, sign in now to post with your account.