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

[عبدالله المجرب]

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

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

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

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

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

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

NA_Calendar.mdb

[jjafferr]

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

 

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

 

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

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

.

جعفر

1367.NA_Calendar.mdb.zip

[عبدالله المجرب]

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

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

 

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

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

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

 

 

[jjafferr]

حياك الله 🙂

 

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

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

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

.

هذه الدالة ، وفيها الشرط الالذي يتأكد من قيمة السطر (وليس الحقل كاملا) في 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 🙂

 

جعفر

[عبدالله المجرب]

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

 

 

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

 

 

[jjafferr]

ما فهمت قصدك !!

[عبدالله المجرب]

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

 

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

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

[عبدالله المجرب]

للرفع

[jjafferr]

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

 

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

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

 

جعفر

1367.NA_Calendar.mdb.zip

[عبدالله المجرب]

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

 

أبدعت بصراحة 

 

وفقك الله وجعا ما تقدمه في ميزان حسناتك