اذهب الي المحتوي
أوفيسنا

الفرز تصاعديا و تنازليا حسب الحقل المختار

AboSaad17

بواسطه AboSaad17
في قسم الأكسيس Access

 مشاركة

الردود الموصى بها

AboSaad17

AboSaad17

قام بنشر
قام بنشر

السلام عليكم ورحمة الله ( اللهم صل وسلم على سيدنا ونبينا محمدواله وصحبه ) وبعد

في المثال المرفق أريد فرز السجلات حسب الحقل المحدد برمجيا و يكون ( تصاعديا وتنازليا )

ولكم وافر الشكر والتقدير  >>>>>>>>>    ملاحظــــــة  ضغط الملف  rar 5.5

Sort1.rar

فرز.png

  • Like 1
رابط هذا التعليق
شارك
Shivan Rekany

Shivan Rekany

قام بنشر
قام بنشر

اتفضل
تم استخدام هذا الكود
  

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

  • Like 4
رابط هذا التعليق
شارك
النجاشي

النجاشي

قام بنشر
قام بنشر
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

ما شاء الله عليك يابو محمد ربنا يزيدك علما

تحياتي اليك

ابو زاهر

  • Thanks 1
رابط هذا التعليق
شارك
Shivan Rekany

Shivan Rekany

قام بنشر
قام بنشر
26 minutes ago, ابو زاهر said:

ما شاء الله عليك يابو محمد ربنا يزيدك علما

تحياتي اليك

ابو زاهر

اللهم امين اجمعين
 شكرا لك اخي الحبيب

  • Like 2
رابط هذا التعليق
شارك
AboSaad17

AboSaad17

قام بنشر
  • الكاتب
قام بنشر

لكم مني جزيل الشكر والتقدير :fff:   ولكـــــــــــــــــــــن 

...............................................................................

لايزال عندي سؤالين في نفس الموضوع 
س1 /  اذا كان الحقل هو اختيار نعم / لا    كيف يتم كتابة الشرط  ليتم الفرز  
س2/ كيف يمكن إنشاء زر يلغي الحقول  المحددة جميعها أو يتيحها 
مثال مرفق  خاص بهذا السؤال 
ولكم جزيل الشكر 

Sort2.rar

sort2.png

رابط هذا التعليق
شارك
Shivan Rekany

Shivan Rekany

قام بنشر
قام بنشر
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

AboSaad17

قام بنشر
  • الكاتب
قام بنشر

ألف شكر استاذي الفاضل ( شيفان ) بالنسبة لسؤالي رقم 2  كان نتيجة إرهاق ذهني  توقف الفكر عندي  :imsorry:

تحية وتقدير لك 

  • Haha 1
رابط هذا التعليق
شارك
AboSaad17

AboSaad17

قام بنشر
  • الكاتب
قام بنشر

السلام عليكم ورحمة الله وبركاته وبعد
 هذا السؤال ظهر لي بالصدفة  عند استخدام البرنامج  فأرجو المعذرة 
السؤال : ظهور رسالة خطأ عند تحديد السجل الاخير الفارغ فهل من حل لهذه المشكلة 
ولكم جزيل الشكــــر  ،،،،

(( ملف مرفق ))   

Sort3.rar

Shivan.png

رابط هذا التعليق
شارك
AboSaad17

AboSaad17

قام بنشر
  • الكاتب
قام بنشر

شكرا جزيلا لك ابا جـــــــــــــودي ولكن انا احتاج حل للرسالة المزعجه اللتي تظهر عند تحديد السجل الفارغ

Shivan.png

رابط هذا التعليق
شارك
Shivan Rekany

Shivan Rekany

قام بنشر
قام بنشر
45 minutes ago, AboSaad17 said:

شكرا جزيلا لك ابا جـــــــــــــودي ولكن انا احتاج حل للرسالة المزعجه اللتي تظهر عند تحديد السجل الفارغ

Shivan.png

اتفضل
 

Sort3.rar

  • Like 1
رابط هذا التعليق
شارك
AboSaad17

AboSaad17

قام بنشر
  • الكاتب
قام بنشر

السلام عليكم ورحمة الله اسعد الله صباحكم بكل خير 
سؤالي كما هو مرفق في الصورة تلقي رسالة الخطأ 2501 عند أختيار ( لا ) في حالة تحديد كل السجلات 
كيف يمكن ايقاف هذه الرسالة 
أرجو المعذرة في تتابع الاسئلة لأنها تظهر معي بالصدفه 

( مرفق ملف ) 

Shivan2501_1.png

Sort4.rar

رابط هذا التعليق
شارك
AboSaad17

AboSaad17

قام بنشر
  • الكاتب
قام بنشر

تم حل الخطأ كما يلي 
تعديل  الكود 
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
 

رابط هذا التعليق
شارك
  • 5 years later...

Join the conversation

You can post now and register later. If you have an account, sign in now to post with your account.

زائر
اضف رد علي هذا الموضوع....

×   Pasted as rich text.   Paste as plain text instead

  Only 75 emoji are allowed.

×   Your link has been automatically embedded.   Display as a link instead

×   Your previous content has been restored.   Clear editor

×   You cannot paste images directly. Upload or insert images from URL.

×
 مشاركة
الذهاب الي قائمه المواضيع

  • تصفح هذا الموضوع مؤخراً   0 اعضاء متواجدين الان

    • لايوجد اعضاء مسجلون يتصفحون هذه الصفحه
×
×
  • اضف...

Important Information

  I accept