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

تعديل في شرط العرض في برنامج تنظيم المواعيد


إذهب إلى أفضل إجابة Solved by jjafferr,

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

الملف المرفق من ملفات الأستاذ ابو ادم حفظه الله 

حاولت ان اطوعه للاستفادة منه ولكن واجهتني مشكلة كالتالي 

في جدول حفظ المواعيد هناك تصنيف للموعد (فئة 1 - فئة 2) 

المطلوب عند فتح الفورم الرئيسي ان يتم عرض الفئة 1 والزر المضاف باللون الأحمر لعرض بيانات فئة 2

أي ان الفئتين لا تعرض معاً 

قد يكون الشرح غير وافي لكن المرفق ان شاء الله يوضح المطلوب

NA_Calendar.mdb

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

وعليكم السلام اخوي عبدالله 🙂

 

عملت هذا الاختيار في النموذج للفئتين (وفي الجدول كتبت ارقام كذلك ، بدل عن الفئة ... ) :

image.png.44eb83b2d21030bdb9d9df073bc81f44.png

 

في الجدول الشهري استطعنا نحل الموضوع ، لأن القيم اللي في نفس الحقل ، على اسطر مختلفة (تفريق القيم تكون بإشارة نهاية السطر) ،

ولكن في جدول الاسابيع ، القيم اللي في نفس الحقل ، الفارق بين القيم يجب ان يكون علامة مميزة مثل فاصلة او فاصلة منقطة والافضل | ، اما المسافة فليس معناها قيمة مختلفة !!

image.png.964bfe9a0dea1b0061546126fba440ee.png

.

جعفر

1367.NA_Calendar.mdb.zip

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

سلمت اناملك استاذ جعفر

بس قلي ايش سويت ووين حطيت الشرط ☺️

 

الحين لو اردت التالي 

الفئة 2 اضيف لها شرط صبلحسة بينما الأولى بدون

يعني اللي يضغط 2 حسب الصلاحية لكن 1 للكل 

 

 

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

حياك الله 🙂

 

4 ساعات مضت, عبدالله المجرب said:

بس قلي ايش سويت ووين حطيت الشرط

عملت الدالة fApptType في وحدة نمطية مستقلة ، وتقوم بهذه التصفية ، ونناديها من الاستعلام ، ونرسل لها قيمة الحقل ، هكذا :

image.png.cf254e5bbf79c42267c70c631f3d3b61.png

.

هذه الدالة ، وفيها الشرط الالذي يتأكد من قيمة السطر (وليس الحقل كاملا) في Day1Data (مثلا) ، ويقارنه بالسجلات في الجدول tblAppointments ، لحقل ApptSubject و ApptType :

Function fApptType(D As String) As String
On Error Resume Next
    'D = Day1Data , Day2Data , ...
    'Op = option selected in Forms!frmCalendarMain!Opt_ApptType
    
    If Len(D & "") = 0 Then Exit Function
    
    Dim Op As String
    Dim x() As String
    Dim i As Integer
    
    Op = Forms!frmCalendarMain!Opt_ApptType
    
    x = Split(D, vbCrLf)
    
    For i = 0 To UBound(x)
    
        'if the ApptType the same, then show it
        If DCount("*", "tblAppointments", "[ApptSubject]='" & x(i) & "' And [ApptType]='" & Op & "'") > 0 Then
        
            fApptType = fApptType & vbCrLf & x(i)
        End If
        
    Next i
    
    fApptType = Mid(fApptType, 3)
    
End Function

.

 

والظاهر ان اهتمامك بالشهر فقط ، لذا :

احذف النموذج frmCalendarWeek ، واستورده من نسخة سابقة ،

واحذف الاستعلام qry_tbl_WeekData 🙂

 

جعفر

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

مشكور اخوي جعفر ما قصرت

 

 

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

 

 

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

في الملف الحالي اذا اخترت  عرض اليوم يكون كانه ورقة مسطرة بالساعات

 

المطلوب ان يكون عرض اليوم مجرد مربع واحد بحجم الفورم وفيه تظهر الاحداث 

ويكون هو العرض الاساسي اي بمجرد فتح البرنامج تكون واجهة العرض يوم واحد على شكل مربع واحد بحجم الفورم وبه الاحداث 

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

  • أفضل إجابة

وعليكم السلام 🙂

 

اخذت نسخة من النموذج اليومي ، وابدلته من نموذج مستمر الى نموذج فردي ، ثم عملت استعلام ينادي وحدة نمطية لأخذ البيانات من الجدول tblAppointments 🙂

وعملت تعديل للمكتبات لتعمل على النواتين 32بت و64بت 🙂

 

جعفر

1367.NA_Calendar.mdb.zip

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

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