اذهب الي المحتوي
أوفيسنا
بحث مخصص من جوجل فى أوفيسنا
Custom Search

مساعدة في برنامج ادخال السلوك


amhmad

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

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

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

    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

تحياتي

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

في ١٢‏/٧‏/٢٠٢١ at 06: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

تحياتي

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

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

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

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

ولك شكري

KEN44.accdb

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

في ١٣‏/٧‏/٢٠٢١ at 22:43, amhmad said:

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

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

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

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

ولك شكري

KEN44.accdb 564 kB · 11 downloads

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

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

 

2.png

KEN66.accdb ‏‏KEN55.accdb

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

في ١٥‏/٧‏/٢٠٢١ at 14:56, kanory said:

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

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

 

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

 

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

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

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