مساعدة بعملية فرز

[ازهر عبد العزيز]

السلام عليكم في النموذج Fyx احتاج فرز البيانات بواسطة الدالة filter عن طريق الحقل xx اي يتم فرز البيانات للحقل B بحسب الرقم الموجود في الحقل xx بمعنى لو كتبنا في الحقل XX الرقم 8  يتم فرز البيانات في الحقل B لما يساوي 8 

XX.accdb

[محمد أبوعبدالله]

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

تفضل اخي الكريم

    myCriteria = "[B]= " & Me.XX
    Me.Filter = myCriteria
    Me.FilterOn = True

XX.rar

تحياتي

[ازهر عبد العزيز]

ما شاء الله عليك استاذ محمد أبوعبدالله وهو المطلوب لكن هناك مشكلة وهي عندما يكون الحقل الفارغ تظهر رسالة خطا بعد الضغط على الزر 

[محمد أبوعبدالله]

4 دقائق مضت, ازهر عبد العزيز said:

كن هناك مشكلة وهي عندما يكون الحقل الفارغ تظهر رسالة خطا بعد الضغط على الزر 

استبدال الكود بالتالي

    If IsNull(Me.XX) Then
        DoCmd.GoToControl "XX"
        MsgBox "ادخل قيمة اولاً"
    Else
        myCriteria = "[B]= " & Me.XX
        Me.Filter = myCriteria
        Me.FilterOn = True
    End If

XX.rar

تحياتي

[ازهر عبد العزيز]

الاستاذ محمد أبوعبدالله جزاك الله عني كل خير وهو المطلوب واكثر

[ازهر عبد العزيز]

السلام عليكم

استاذ محمد أبوعبدالله  لدي مشكلة   قمت باضافة حقل جديد الى النموذج XX1C يقو بفرز الحقل C المشكلة عندي انه يقوم بالغاء الفرز  القديم للحقل b  وانا احتاجة ان يقوم بفرز الفرز الاول فمثلا كما تلاحظ في الصور عند الضغط على الفرز الاول لاتوجد مشكلة لكن عند الضغط على الفر الثاني قام بالغاء لافرز القديم وعمل فرز جديد كيف اجعلة يقوم بفرز الموجود بعد عملية الاولة ... ارجو منك سعة الصدر وتحملني لكثرة اسئلتي  الفرز

XX.accdb

تم تعديل يونيو 22, 2020 بواسطه ازهر عبد العزيز

[محمد أبوعبدالله]

قم بتعديل الكود للزر الجديد كالتالي

    If IsNull(Me.XX1) Or IsNull(Me.XX) Then
        DoCmd.GoToControl "XX1"
        MsgBox "XX1C IS EMPTY"
    Else
        myCriteria = "[B]= " & Me.XX
        myCriteria = myCriteria & " AND "
        myCriteria = myCriteria & "("
        myCriteria = myCriteria & "[C]= " & Me.XX1
        myCriteria = myCriteria & ")"
        Me.Filter = myCriteria
        Me.FilterOn = True
    End If

 

XX1.rar

تحياتي

تم تعديل يونيو 22, 2020 بواسطه محمد أبوعبدالله

[ازهر عبد العزيز]

شكراااااااااااااااااااااااااااااااااااااااااااااااااااااااااااااااااااااااااااااااااااا استاذ محمد أبوعبدالله شكراااااااااااااااااااااااااااااااااااااااااااااااااااااااا اوفيسنا