AboSaad17 قام بنشر فبراير 16, 2018 قام بنشر فبراير 16, 2018 السلام عليكم ورحمة الله ( اللهم صل وسلم على سيدنا ونبينا محمدواله وصحبه ) وبعد في المثال المرفق أريد فرز السجلات حسب الحقل المحدد برمجيا و يكون ( تصاعديا وتنازليا ) ولكم وافر الشكر والتقدير >>>>>>>>> ملاحظــــــة ضغط الملف rar 5.5 Sort1.rar 1
Shivan Rekany قام بنشر فبراير 16, 2018 قام بنشر فبراير 16, 2018 اتفضل تم استخدام هذا الكود Private Sub ÃãÑ26_Click() Me.OrderByOn = True If Me.Frame28 = 1 Then Me.OrderBy = "[NAME] ASC" ElseIf Me.Frame28 = 2 Then Me.OrderBy = "[Country] ASC" ElseIf Me.Frame28 = 3 Then Me.OrderBy = "[City] ASC" ElseIf Me.Frame28 = 4 Then Me.OrderBy = "[game] ASC" ElseIf Me.Frame28 = 5 Then Me.OrderBy = "[AGE] ASC" End If End Sub Private Sub ÃãÑ27_Click() Me.OrderByOn = True If Me.Frame28 = 1 Then Me.OrderBy = "[NAME] DESC" ElseIf Me.Frame28 = 2 Then Me.OrderBy = "[Country] DESC" ElseIf Me.Frame28 = 3 Then Me.OrderBy = "[City] DESC" ElseIf Me.Frame28 = 4 Then Me.OrderBy = "[game] DESC" ElseIf Me.Frame28 = 5 Then Me.OrderBy = "[AGE] DESC" End If End Sub Sort1.rar 4
النجاشي قام بنشر فبراير 16, 2018 قام بنشر فبراير 16, 2018 15 دقائق مضت, Shivan Rekany said: اتفضل تم استخدام هذا الكود Private Sub ÃãÑ26_Click() Me.OrderByOn = True If Me.Frame28 = 1 Then Me.OrderBy = "[NAME] ASC" ElseIf Me.Frame28 = 2 Then Me.OrderBy = "[Country] ASC" ElseIf Me.Frame28 = 3 Then Me.OrderBy = "[City] ASC" ElseIf Me.Frame28 = 4 Then Me.OrderBy = "[game] ASC" ElseIf Me.Frame28 = 5 Then Me.OrderBy = "[AGE] ASC" End If End Sub Private Sub ÃãÑ27_Click() Me.OrderByOn = True If Me.Frame28 = 1 Then Me.OrderBy = "[NAME] DESC" ElseIf Me.Frame28 = 2 Then Me.OrderBy = "[Country] DESC" ElseIf Me.Frame28 = 3 Then Me.OrderBy = "[City] DESC" ElseIf Me.Frame28 = 4 Then Me.OrderBy = "[game] DESC" ElseIf Me.Frame28 = 5 Then Me.OrderBy = "[AGE] DESC" End If End Sub Sort1.rar ما شاء الله عليك يابو محمد ربنا يزيدك علما تحياتي اليك ابو زاهر 1
Shivan Rekany قام بنشر فبراير 16, 2018 قام بنشر فبراير 16, 2018 26 minutes ago, ابو زاهر said: ما شاء الله عليك يابو محمد ربنا يزيدك علما تحياتي اليك ابو زاهر اللهم امين اجمعين شكرا لك اخي الحبيب 2
AboSaad17 قام بنشر فبراير 17, 2018 الكاتب قام بنشر فبراير 17, 2018 لكم مني جزيل الشكر والتقدير ولكـــــــــــــــــــــن ............................................................................... لايزال عندي سؤالين في نفس الموضوع س1 / اذا كان الحقل هو اختيار نعم / لا كيف يتم كتابة الشرط ليتم الفرز س2/ كيف يمكن إنشاء زر يلغي الحقول المحددة جميعها أو يتيحها مثال مرفق خاص بهذا السؤال ولكم جزيل الشكر Sort2.rar
Shivan Rekany قام بنشر فبراير 17, 2018 قام بنشر فبراير 17, 2018 13 hours ago, AboSaad17 said: لايزال عندي سؤالين في نفس الموضوع من المفترض ان تسأل ماتريد في اول مشاركة 13 hours ago, AboSaad17 said: س1 / اذا كان الحقل هو اختيار نعم / لا كيف يتم كتابة الشرط ليتم الفرز بنفس الشي شوف الكود Private Sub ÃãÑ26_Click() Me.OrderByOn = True If Me.Frame28 = 1 Then Me.OrderBy = "[NAME] ASC" ElseIf Me.Frame28 = 2 Then Me.OrderBy = "[Country] ASC" ElseIf Me.Frame28 = 3 Then Me.OrderBy = "[City] ASC" ElseIf Me.Frame28 = 4 Then Me.OrderBy = "[game] ASC" ElseIf Me.Frame28 = 5 Then Me.OrderBy = "[AGE] ASC" ElseIf Me.Frame28 = 6 Then Me.OrderBy = "[Married] ASC" End If End Sub Private Sub ÃãÑ27_Click() Me.OrderByOn = True If Me.Frame28 = 1 Then Me.OrderBy = "[NAME] DESC" ElseIf Me.Frame28 = 2 Then Me.OrderBy = "[Country] DESC" ElseIf Me.Frame28 = 3 Then Me.OrderBy = "[City] DESC" ElseIf Me.Frame28 = 4 Then Me.OrderBy = "[game] DESC" ElseIf Me.Frame28 = 5 Then Me.OrderBy = "[AGE] DESC" ElseIf Me.Frame28 = 6 Then Me.OrderBy = "[Married] DESC" End If End Sub 13 hours ago, AboSaad17 said: س2/ كيف يمكن إنشاء زر يلغي الحقول المحددة جميعها أو يتيحها اليك هذا الكود Private Sub Check53_AfterUpdate() Dim SQL As String Me.Refresh If Me.Check53 = True Then SQL = "UPDATE Info1 SET Info1.chose = True" Else SQL = "UPDATE Info1 SET Info1.chose = FALSE" End If DoCmd.RunSQL (SQL) Me.Requery End Sub Sort2.rar
AboSaad17 قام بنشر فبراير 17, 2018 الكاتب قام بنشر فبراير 17, 2018 ألف شكر استاذي الفاضل ( شيفان ) بالنسبة لسؤالي رقم 2 كان نتيجة إرهاق ذهني توقف الفكر عندي تحية وتقدير لك 1
AboSaad17 قام بنشر فبراير 19, 2018 الكاتب قام بنشر فبراير 19, 2018 السلام عليكم ورحمة الله وبركاته وبعد هذا السؤال ظهر لي بالصدفة عند استخدام البرنامج فأرجو المعذرة السؤال : ظهور رسالة خطأ عند تحديد السجل الاخير الفارغ فهل من حل لهذه المشكلة ولكم جزيل الشكــــر ،،،، (( ملف مرفق )) Sort3.rar
AboSaad17 قام بنشر فبراير 19, 2018 الكاتب قام بنشر فبراير 19, 2018 شكرا جزيلا لك ابا جـــــــــــــودي ولكن انا احتاج حل للرسالة المزعجه اللتي تظهر عند تحديد السجل الفارغ
Shivan Rekany قام بنشر فبراير 19, 2018 قام بنشر فبراير 19, 2018 45 minutes ago, AboSaad17 said: شكرا جزيلا لك ابا جـــــــــــــودي ولكن انا احتاج حل للرسالة المزعجه اللتي تظهر عند تحديد السجل الفارغ اتفضل Sort3.rar 1
AboSaad17 قام بنشر فبراير 19, 2018 الكاتب قام بنشر فبراير 19, 2018 ماشاء الله عليك استاذ شيفان نعم هذا ما أريد جزاك الله كل خير ........
AboSaad17 قام بنشر فبراير 20, 2018 الكاتب قام بنشر فبراير 20, 2018 السلام عليكم ورحمة الله اسعد الله صباحكم بكل خير سؤالي كما هو مرفق في الصورة تلقي رسالة الخطأ 2501 عند أختيار ( لا ) في حالة تحديد كل السجلات كيف يمكن ايقاف هذه الرسالة أرجو المعذرة في تتابع الاسئلة لأنها تظهر معي بالصدفه ( مرفق ملف ) Sort4.rar
AboSaad17 قام بنشر فبراير 20, 2018 الكاتب قام بنشر فبراير 20, 2018 تم حل الخطأ كما يلي تعديل الكود Private Sub Check53_AfterUpdate() ' السطر التالي حل المشكلة On Error Resume Next Dim SQL As String Me.Refresh If Me.Check53 = True Then SQL = "UPDATE Info1 SET Info1.chose = True" Else SQL = "UPDATE Info1 SET Info1.chose = FALSE" End If DoCmd.RunSQL (SQL) Me.Requery End Sub ............................................................................................................................... وهذا حل أخر Private Sub Check53_AfterUpdate() On Error Resume Next Dim SQL As String Me.Refresh If Me.Check53 = True Then SQL = "UPDATE Info1 SET Info1.chose = True" Else SQL = "UPDATE Info1 SET Info1.chose = FALSE" End If Err_Check53_Click: If Err.Number = 2501 Then Resume Next Else DoCmd.RunSQL (SQL) Me.Requery End If End Sub
abomnh قام بنشر أغسطس 15, 2023 قام بنشر أغسطس 15, 2023 هل يمكن تطبيق الفرز على اكثر من حقل فى نفس الوقت ؟
الردود الموصى بها
Join the conversation
You can post now and register later. If you have an account, sign in now to post with your account.