اختيار قيمة من مربع تحرير وسرد من قيمة مربع نص

[ابو عبد الله العراقي]

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

الأستاذة الافاضل الاخوة الأعزاء في منتدى اوفيسنا

في قاعدة البيانات المرفقة وفي نموذج Meetingfrm   عند ادخال تاريخ الاجتماع سوف يتم تحديث وتحديد العام الدراسي تلقائيا في مربع نص كود السنة الاكاديمية  هذه العملية المطلوب تطبيقيها على مربع تحرير وسرد السنة الاكاديمية (اي عند ادخال تاريخ الاجتماع يتم اختيار العام الدراسي تلقائيا في combo box  اختيار السنة الاكاديمية بدل من ان يتم اختيار العام الدراسي يدويا في هذا الكومبوبوكس ؟ ( يعني اختيار قيمة من مربع تحرير وسرد من قيمة مربع نص ) هل من الممكن ؟؟

AcademicYear.rar

[Foksh]

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

جرب هذه الفكرة البسيطة ، في حدث بعد التحديث لمربع نص تاريخ الإجتماع :-

Private Sub MeetingDate_AfterUpdate()
    Me.Academic_Name = Me.Text7
End Sub

 

طبعاً هذا سيعتمد على تحديث القيم في القائمة المنسدلة بشكل تلقائي كل سنة دراسية على سبيل المثال ,

AcademicYear.accdb

[ابوخليل]

7 دقائق مضت, Foksh said:

 

طبعاً هذا سيعتمد على تحديث القيم في القائمة المنسدلة بشكل تلقائي كل سنة دراسية على سبيل المثال ,

 

تمام استاذنا .. ويمكن وضع ضابط من اجل تجاوز الخطأ فيما لو لم تكن القيمة موجودة ضمن القائمة

 

[Foksh]

الان, ابوخليل said:

تمام استاذنا .. ويمكن وضع ضابط من اجل تجاوز الخطأ فيما لو لم تكن القيمة موجودة ضمن القائمة

 

بالطبع سيكون الموضوع أكبر من مجرد قيمة = قيمة ، فماذا لو كان الاختيار لتاريخ أكبر بـ 5 سنوات وغير مدرج في الكومبوبوكس Academic_Name !!!!

 

[ابوخليل]

انا كنت اعمل على المثال .. وسبقتني 👍

يوجد حل افضل .. وهو تحويل القائمة الى مربع نص

وهنا لن يكون بحاجة الى جدول السنوات Academicyeartble

[Foksh]

5 دقائق مضت, ابوخليل said:

انا كنت اعمل على المثال .. وسبقتني 👍

 

لا تعلو عين فوق حاجبها .. أنتم الأصل ومنكم نستفيد ونتعلم معلمي الفاضل  .

 

6 دقائق مضت, ابوخليل said:

يوجد حل افضل .. وهو تحويل القائمة الى مربع نص

 

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

[ابوخليل]

19 دقائق مضت, Foksh said:

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

صحيح 

هذا تصحيح للمثال كما تفضلت .. لعله يناسب ابو عبدالله

AcademicYear2.rar

[ابو عبد الله العراقي]

الأخ الكريم Foksh شكراً جزيلا على تواصلك معي وعلى الآراء التي ابديتها صحيح كلامك أستاذ بالنسبة للتصميم فما الحاجة إلى ان يكون هناك جدول للسنة الدراسية ولان تكون غير قابلة التكرار ، هو بالفعل هو هذا الجدول السنة الاكاديمية موجود في قاعدة البيانات والعام الدراسي غير قابل للتكرار ومرتبط أيضا وما في مشكال في الجدول ولا في قاعدة البيانات لكن المشكلة التي حصلت وأصبحت تتكرر هو الخطأ في اختيار العام الدراسي لان العام الدراسي يتم اختياره أولا ثم يتم ادخال التاريخ وحتى لو كان الامر بالعكس ادخال التاريخ ثم اختيار العام الدراسي فالخطأ محتمل في اختيار العام الدراسي لذلك حاولت احل هذه المشكلة بإدخال الكود تحويل التاريخ الى العام الدراسي تلقائيا ،

وجزاك الله خيرا فقد اوصلتني إلى بداية حل المشكلة والاخ العزيز أبو خليل الذي اود أيضا ان اشكره على المساعدة التي يبديها لي ولكافة المشاركين في هذا المنتدى ، هو أيضا أبو خليل فكرته رائعة بأن احول الكومبوبوكس إلى مربع نص لكن فكرته وكلامه صحيح مئة بالمئة فماذا لو كان العام الدراسي غير موجود وغير مدخل في الجدول الأساسي ؟ كيف نحل هذه المشكلة ؟؟؟؟

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

مع الشكر والتقدير 

شكرا جزيلا لكم مرة أخرى

 

 

تم تعديل السبت at 21:26 بواسطه ابو عبد الله العراقي

[Foksh]

20 دقائق مضت, ابو عبد الله العراقي said:

الأخ الكريم Foksh شكراً جزيلا على تواصلك معي وعلى الآراء التي ابديتها صحيح كلامك أستاذ بالنسبة للتصميم فما الحاجة إلى ان يكون هناك جدول للسنة الدراسية ولان تكون غير قابلة التكرار ، هو بالفعل هو هذا الجدول السنة الاكاديمية موجود في قاعدة البيانات والعام الدراسي غير قابل للتكرار ومرتبط أيضا وما في مشكال في الجدول ولا في قاعدة البيانات لكن المشكلة التي حصلت وأصبحت تتكرر هو الخطأ في اختيار العام الدراسي لان العام الدراسي يتم اختياره أولا ثم يتم ادخال التاريخ وحتى لو كان الامر بالعكس ادخال التاريخ ثم اختيار العام الدراسي فالخطأ محتمل في اختيار العام الدراسي لذلك حاولت احل هذه المشكلة بإدخال الكود تحويل التاريخ الى العام الدراسي تلقائيا ،

وجزاك الله خيرا فقد اوصلتني إلى بداية حل المشكلة والاخ العزيز أبو خليل الذي اود أيضا ان اشكره على المساعدة التي يبديها لي ولكافة المشاركين في هذا المنتدى ، هو أيضا أبو خليل فكرته رائعة بأن احول الكومبوبوكس إلى مربع نص لكن فكرته وكلامه صحيح مئة بالمئة فماذا لو كان العام الدراسي غير موجود وغير مدخل في الجدول الأساسي ؟ كيف نحل هذه المشكلة ؟؟؟؟

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

مع الشكر والتقدير 

شكرا جزيلا لكم مرة أخرى

 

 

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

Private Sub MeetingDate_AfterUpdate()
    Dim academicYear As String
    Dim rs As DAO.Recordset
    Dim response As VbMsgBoxResult
    Dim prevDate As Variant

    On Error GoTo ErrHandler

    academicYear = IIf(Month(Me.MeetingDate) >= 9, _
                       Year(Me.MeetingDate) & "-" & (Year(Me.MeetingDate) + 1), _
                       (Year(Me.MeetingDate) - 1) & "-" & Year(Me.MeetingDate))

    Set rs = CurrentDb.OpenRecordset("SELECT Academic_Name FROM AcademicYearTble WHERE Academic_Name = '" & academicYear & "'", dbOpenSnapshot)

    If rs.EOF Then
        response = MsgBox("العام الدراسي """ & academicYear & """ غير موجود." & vbCrLf & "هل تريد إضافته؟", vbQuestion + vbYesNo + vbMsgBoxRight, "إضافة عام دراسي")
        
        If response = vbYes Then
            CurrentDb.Execute "INSERT INTO AcademicYearTble (Academic_Name) VALUES ('" & academicYear & "')", dbFailOnError
            Me.Academic_Name = academicYear
        Else
            MsgBox "تم إلغاء التحديث.", vbExclamation
            Me.Undo
        End If
    Else
        Me.Academic_Name = academicYear
    End If

    rs.Close
    Set rs = Nothing
    Exit Sub

ErrHandler:
    MsgBox "حدث خطأ: " & Err.Description, vbCritical + vbMsgBoxRight, ""
    On Error Resume Next
    rs.Close
    Set rs = Nothing
End Sub

 

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

AcademicYear2.accdb

[ابو عبد الله العراقي]

عاشت ايدك أستاذ

ممنون منك و جزاك الله كل خير وفتح عليك