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

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

قام بنشر

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

الافضل ان تقوم بعمل تصفية للنموذج كالتالي

    Dim myCriteria As String
    
   If IsNull(Me.C) Then
        myCriteria = myCriteria & "("
        myCriteria = myCriteria & "[nmsaf]= '" & Me.a.Value & "'"
        myCriteria = myCriteria & ")"
        'Debug.Print myCriteria
        Me.Form.Filter = myCriteria
        Me.Form.FilterOn = True
   Else
   
        myCriteria = myCriteria & "("
        myCriteria = myCriteria & "[nmsaf]= '" & Me.a.Value & "'"
        myCriteria = myCriteria & " or "
        myCriteria = myCriteria & "[Fsl]= '" & Me.C.Value & "'"
        myCriteria = myCriteria & ")"
        'Debug.Print myCriteria
        Me.Form.Filter = myCriteria
        Me.Form.FilterOn = True
   
   End If

KEN44.accdbFetching info...

تحياتي

قام بنشر (معدل)
  في 12‏/7‏/2021 at 03:55, محمد أبوعبدالله said:

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

الافضل ان تقوم بعمل تصفية للنموذج كالتالي

    Dim myCriteria As String
    
   If IsNull(Me.C) Then
        myCriteria = myCriteria & "("
        myCriteria = myCriteria & "[nmsaf]= '" & Me.a.Value & "'"
        myCriteria = myCriteria & ")"
        'Debug.Print myCriteria
        Me.Form.Filter = myCriteria
        Me.Form.FilterOn = True
   Else
   
        myCriteria = myCriteria & "("
        myCriteria = myCriteria & "[nmsaf]= '" & Me.a.Value & "'"
        myCriteria = myCriteria & " or "
        myCriteria = myCriteria & "[Fsl]= '" & Me.C.Value & "'"
        myCriteria = myCriteria & ")"
        'Debug.Print myCriteria
        Me.Form.Filter = myCriteria
        Me.Form.FilterOn = True
   
   End If

KEN44.accdb 604 kB · 7 downloads

تحياتي

Expand  

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

كيف الحال اخي محمد ابو عبدالله 

بنسبة لتصفية  فقد قام kanory  بعمل المطلوب وهي تصفية بحسب الصف ثم بحسب الفصل وفكرة البرنامج استغني عن الكشوفات الورقية 

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

ولك شكري

KEN44.accdbFetching info...

تم تعديل بواسطه amhmad
اضافة
قام بنشر

انا ما قدرت اعمل شي بعد التصفية 

حاول تكرر علي بعد  التصفية 

ورد علي بالنتيجة 

بالنموذج ما قدرت اضيف سلوك ؟ 

 

قام بنشر
  في 13‏/7‏/2021 at 19:43, amhmad said:

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

كيف الحال اخي محمد ابو عبدالله 

بنسبة لتصفية  فقد قام kanory  بعمل المطلوب وهي تصفية بحسب الصف ثم بحسب الفصل وفكرة البرنامج استغني عن الكشوفات الورقية 

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

ولك شكري

KEN44.accdb 564 kB · 11 downloads

Expand  

هذا تعديل على ملفك .......

ولكن الملف الثاني افضل من حيث الادخال بحيث تستطيع ادخال اكثر من سلوك للطالب الواحد في اكثر من حصة """"

 

2.png

KEN66.accdbFetching info... ‏‏KEN55.accdbFetching info...

  • Like 3
قام بنشر
  في 15‏/7‏/2021 at 11:56, kanory said:

هذا تعديل على ملفك .......

ولكن الملف الثاني افضل من حيث الادخال بحيث تستطيع ادخال اكثر من سلوك للطالب الواحد في اكثر من حصة """"

 

Expand  

رائع اخي الكريم جزاك الله خير والله ينفع بعلمك   

 

هل من الممكن تحويل التاربخ للهجري ...

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