عدم تكرار الوظيفة

[ameer.iraq.93]

السلام عليكم 

ممكن تساعدوني

عندي قاعدة بيانات لمدرسة تحتوي ع جدول الوضائف وجدول بيانات الموظفين

جدول الوضائف يحتوي قائمة منسدلة فيها الوضائف مثلا مدير مدرسة \ معاون \ مشرف \

كيف امنع مستخدم البيانات من ادخال وظيفة المدير مرتين , الكل يعرف انه مدير مدرسة واحد فقط في كل مدرسة فكيف يصبح  مديرين  اثنين !! 

اريد عند ادخال وظيفة مدير مرتين تظهر رسالة هذه الوظيفة مستخدمة 

 

اسف ع الاطالة 

 

[nabil2255]

ارفاق مثالك اخي يكون افضل 

 

[محمد التميمي]

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

اخي في المرة القادمة ارفق مثال بسيط ليتسنى للاخوة مساعدتك وليتم التعديل على المثال المرفق ويقولون لك ( تفضل )

ضع هذا الكود في (عند عدم الوجود في القائمة) من القائمة المنسدلة

'downloaded from A-Soft Channel on youtube
On Error GoTo myError:
    Dim rst As DAO.Recordset
    Set rst = CurrentDb.OpenRecordset("اسم الجدول الفرعي", dbOpenDynaset)
        If vbYes = MsgBox("هذا الفرع الذي اظفته جديد ليس من ضمن القائمة . هل تريد اظافته الى القائمة " _
                & NewData & " ", _
                vbYesNoCancel + vbDefaultButton2, _
                "New اسم مصدر عنصر التحكم في الجدول الاساسي") Then

            rst.AddNew
                rst!اسم العمود في الجدول الفرعي = NewData
            rst.Update

            Response = acDataErrAdded
        Else
            Response = acDataErrContinue
            Me.اسم القائمة المنسدلة = Null
        End If
leave:
    If Not rst Is Nothing Then
        rst.Close: Set rst = Nothing
    End If
    Exit Sub
myError:
    MsgBox "Error " & Err.Number & ": " & Error$
    Resume leave

 

تم تعديل يونيو 22, 2020 بواسطه محمد التميمي

[ameer.iraq.93]

في ٢١‏/٦‏/٢٠٢٠ at 12:59, nabil2255 said:

ارفاق مثالك اخي يكون افضل 

 

هذا الملف حبيبي

المدرسة.accdb

[ameer.iraq.93]

4 ساعات مضت, محمد التميمي said:

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

اخي في المرة القادمة ارفق مثال بسيط ليتسنى للاخوة مساعدتك وليتم التعديل على المثال المرفق ويقولون لك ( تفضل )

ضع هذا الكود في (عند عدم الوجود في القائمة) من القائمة المنسدلة

'downloaded from A-Soft Channel on youtube
On Error GoTo myError:
    Dim rst As DAO.Recordset
    Set rst = CurrentDb.OpenRecordset("اسم الجدول الفرعي", dbOpenDynaset)
        If vbYes = MsgBox("هذا الفرع الذي اظفته جديد ليس من ضمن القائمة . هل تريد اظافته الى القائمة " _
                & NewData & " ", _
                vbYesNoCancel + vbDefaultButton2, _
                "New اسم مصدر عنصر التحكم في الجدول الاساسي") Then

            rst.AddNew
                rst!اسم العمود في الجدول الفرعي = NewData
            rst.Update

            Response = acDataErrAdded
        Else
            Response = acDataErrContinue
            Me.اسم القائمة المنسدلة = Null
        End If
leave:
    If Not rst Is Nothing Then
        rst.Close: Set rst = Nothing
    End If
    Exit Sub
myError:
    MsgBox "Error " & Err.Number & ": " & Error$
    Resume leave

 

عاشت ايدك حبيبي على المساعدة واعتذر لان نسيت ارفق المثال

المشكلة هي

عندي مدرسة بيها مناصب مدير مدرسة ومعاون ومشرف الى اخره  طبعا نوعة قائمة منسدلة 

كيف امنع المسخدم من ادخال منصب المدير مرتين يعني 

يعني مدير اسمة علي محمد ومدير ثاني اسمة مهدي علي  مستحيل اكو مدرسة بيها مدراء اثنين هذا شي خطا 

اريد رسالة تطلع هذا المنصب مستخدم   

ورفقت قاعدة البيانات حتى توضح الفكرة

 

@محمد التميمي هذه قاعدة البيانات

المدرسة.rar

تم تعديل يونيو 22, 2020 بواسطه ameer.iraq.93

[أبوبسمله]

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

اتفضل اخى الفاضل @ameer.iraq.93

ملحوظه : يجب عدم استعمال الغه العربيه فى تسميه الحقول والجداول يمكنك استخدام اللغه العربيه فالتسميه التوضيحيه للحقل من خصائص الحقل

كما يجب عدم استخدام مسافات فالتسميه واستخدام حرف كبير او علامه _ الشرطه السفليه

جرب ووافنا بالنتيجه

Private Sub الوظيفـة_BeforeUpdate(Cancel As Integer)
If Me.الوظيفـة.Column(1) = "مدير مدرسة" Then
    MsgBox "هذه الوظيفه تم تسجيلها من قبل"
    Me.Undo
End If
End Sub

بالتوفيق

المدرسة.accdb

[محمد التميمي]

 

3 ساعات مضت, الفلاحجى said:

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

اتفضل اخى الفاضل @ameer.iraq.93

ملحوظه : يجب عدم استعمال الغه العربيه فى تسميه الحقول والجداول يمكنك استخدام اللغه العربيه فالتسميه التوضيحيه للحقل من خصائص الحقل

كما يجب عدم استخدام مسافات فالتسميه واستخدام حرف كبير او علامه _ الشرطه السفليه

جرب ووافنا بالنتيجه

Private Sub الوظيفـة_BeforeUpdate(Cancel As Integer)
If Me.الوظيفـة.Column(1) = "مدير مدرسة" Then
    MsgBox "هذه الوظيفه تم تسجيلها من قبل"
    Me.Undo
End If
End Sub

بالتوفيق

المدرسة.accdb 496 kB · 3 تنزيلات

بارك الله بك اخي الفاضل استاذ الفلاحجي فهمت السؤال خطأ لاني كنت على عجلة من امري مهماً بالخروج 

واعتذر للاخ ameer.iraq.93

 

 

 

تم تعديل يونيو 22, 2020 بواسطه محمد التميمي

[أبوبسمله]

53 دقائق مضت, محمد التميمي said:

 

بارك الله بك اخي الفاضل استاذ الفلاحجي فهمت السؤال خطأ لاني كنت على عجلة من امري مهماً بالخروج 

واعتذر للاخ ameer.iraq.93

وفيك بارك الله اخى محمد ولا يهمك اخى كلنا نخطئ ونتعلم من اخطائنا

بالتوفيق اخوانى

[أبوبسمله]

السلام عليكم اخوانى

عذرا ع هذا الخطأ لانه فى حاله اضفنا مدرسه جديده ولها مدير جديد لن يقبل وفى حاله الجدول فارغ وعند التسجيل لن يقبل

سوف اراجعه مره اخرى

تم تعديل يونيو 23, 2020 بواسطه الفلاحجى

[أبوبسمله]

اتفضل اخى

جرب ووافنى بالنتيجه

Private Sub الوظيفـة_BeforeUpdate(Cancel As Integer)

x = Trim(DLookup("الوظيفـة", "البيانات", "[الوظيفـة] = 1 and [اسم المدرسة]='" & [اسم المدرسة] & "'"))
y = Me.الوظيفـة.Column(0)

If x = y Then
    MsgBox "هذه الوظيفه تم تسجيلها من قبل لهذه المدرسه"
    DoCmd.CancelEvent
    Else
End If

End Sub

 

المدرسه.accdb

[ameer.iraq.93]

ع

7 ساعات مضت, الفلاحجى said:

اتفضل اخى

جرب ووافنى بالنتيجه

Private Sub الوظيفـة_BeforeUpdate(Cancel As Integer)

x = Trim(DLookup("الوظيفـة", "البيانات", "[الوظيفـة] = 1 and [اسم المدرسة]='" & [اسم المدرسة] & "'"))
y = Me.الوظيفـة.Column(0)

If x = y Then
    MsgBox "هذه الوظيفه تم تسجيلها من قبل لهذه المدرسه"
    DoCmd.CancelEvent
    Else
End If

End Sub

 

المدرسه.accdb 488 kB · 0 تنزيلات

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

   و @محمد التميمي

 

 هو هذا المطلوب كفيت وفيت ربي يحفظك @الفلاحجى

طيب اذا ظفنة غير وظيفة يعني مدير ومعاون عدم التكرار يصير ؟ @الفلاحجى