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

اخي الفاضل : المحاسب الجديد

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

تفضل ملفك بعد التعديل

في الحقيقة لا تحتاج الا الى جدول به حقل واحد وهو المدينة وتكتب فيه اسماء المدن المطلوبه

ثم تقوم بعمل حقل جديد في الجدول الرئبسي به اسم المدينة ومن ثم تسند القيم الموجوده في الجدول الجديد الى هذا الحقل الجديد وسيصبح لديك حوالي ثلاث مدن وهي ( الشارقة - الفجيرة - دبي )

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

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

بشكل جيد مع التواريخ ورقم القضية كما في الصوره .

Exp_10-2.rar

بالتوفيق

اخي الفاضلة زهرة " ادامك وحفظك الله"

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

شكرا لك علي مجهودك .. واعتذر جدا علي التأخير بالرد لظروف طارئة

بس ليس هذا ما كنت اريدة ، بسبب:

ان الجدول الرئيسي هو (T_Main) ويحتوي كل بيانات الدعوى ، والجدول (T_CourtHearing) به أريد ان يكون به فقط تواريخ جلسات الدعوى

لذلك لا اريد ان تتكرر البيانات في الجدول(T_CourtHearing) .

لقد عدلت بالكود بالربط بين الجدولين ، فأصبح :

strSQL = "SELECT T_CourtHearing.HearingDat, T_Main.officeNo, T_Main.caseNo, T_Main.caseCity " & vbCrLf & _
"FROM T_Main INNER JOIN T_CourtHearing ON T_Main.officeNo = T_CourtHearing.officeNo;"

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

لذلك مطلوب وضع هذه العبارة داخل الكود ولا اعرف الطريقة ؟

  "WHERE Month([HearingDat])= " & intPubMonth & " AND Year([HearingDat]) = " & intPubMyYear & _

وفيما يلي الكود بالكامل :

Public Sub DisplayMeetings()
    Dim strSQL As String
    Dim intTemp As Integer
    Dim intDays(37) As Integer
    Dim strDays(31) As String
    Dim strcaseNoSubject As String 
    Dim strofficeNo As String      
    Dim strHearingDat As String     
    Dim strCity As String           
    Dim r As Integer
    Dim rst
    For r = 1 To 37
        Me("Day" & Trim$(r)) = ""
    Next r
strSQL = "SELECT T_CourtHearing.HearingDat, T_Main.officeNo, T_Main.caseNo, T_Main.caseCity " & vbCrLf & _
"FROM T_Main INNER JOIN T_CourtHearing ON T_Main.officeNo = T_CourtHearing.officeNo;"

    Set rst = CurrentDb.OpenRecordset(strSQL)
    If rst.RecordCount > 0 Then
        For r = 1 To 37
            If Me("Box" & Trim(r)) = "" Then
                intDays(r) = 0
            Else
                intDays(r) = Me("Box" & Trim(r))
            End If
            Me("Day" & Trim(r)) = ""
        Next r
           rst.MoveFirst
                Do While Not rst.EOF
strofficeNo = Format(rst!officeNo, "") 
strHearingDat = rst!HearingDat         
strcaseNoSubject = left(rst!caseNo, 20)
strCity = rst!caseCity               
intTemp = Day(rst!HearingDat)
strDays(intTemp) = strDays(intTemp) & vbCrLf & strofficeNo & "-" & "ÏÚæì" & strcaseNoSubject & " " & strCity
    rst.MoveNext
        Loop
    For r = 1 To 37
       If intDays(r) <> 0 Then
                intTemp = intDays(r)
                Me("Day" & Trim(r)) = strDays(intTemp)
            End If
        Next r
    End If
    rst.Close
End Sub

مرفق الملف للتعديل عليه

مع جزيل الشكر والامتنان

Exp_13-ZA.zip

اخي الفاضل : المحاسب الجديد

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

strSQL = "SELECT T_CourtHearing.HearingDat, T_Main.officeNo, T_Main.caseNo, T_Main.caseCity " & vbCrLf & _
"FROM T_Main INNER JOIN T_CourtHearing ON T_Main.officeNo = T_CourtHearing.officeNo " & _
"WHERE Month([HearingDat])= " & intPubMonth & " AND Year([HearingDat]) = " & intPubMyYear & ""

ملفك بعد التعديل على جملة الإستعلام في الكود

Exp_13-ZA-UP.rar

بالتوفيق

اخي الفاضلة زهرة " ادامك وحفظك الله"

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

هذا هو المطلوب

شكرا جزيلا