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

[حمدى الظابط]

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

Private Sub الاحد1_BeforeUpdate(Cancel As Integer)
txtc = DLookup("[الاحد1]", "Teacher Class", "[الاحد1]='" & Me!الاحد1 & "'")
txtc2 = DLookup("[الاحد-مادة1]", "Teacher Class", "[الاحد1]='" & Me!الاحد1 & "'")
txtc3 = DLookup("[NAMEe]", "Teacher Class", "[الاحد1]='" & Me!الاحد1 & "'")

If txtc > 0 Then
        Beep
        MsgBox "...هذا الفصل " & الاحد1 & "..لديه مادة.." & vbCrLf & "  باسم : " & txtc2 & vbCrLf & "  للمدرس : " & txtc3, vbCritical + vbMsgBoxRight, "تنبيه"

End If
End Sub

المطلوب

تعديل الكود ليتناسب مع نموذج ورقة بيانات
وكل عام وحضرتكم بخير
 

 

‫‫جدول 2 ‫‬.rar

[kaser906]

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

حسب علمي نموذج ورقة البيانات لايقبل النماذج الفرعية اضافة على ذلك يوجد فورم باسم msqغير موجود

والكود يظهر اخطاء حتى مع النماذج المستمرة

بالاضافة الى الاخطاء الكثيرة في تسمية الحقول

::بالتوفيق::

إذا كنت ترى أن هذه المشاركة مفدة فلا تنسى التقيم

تم تعديل مايو 27, 2018 بواسطه kaser906

[حمدى الظابط]

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

[kaser906]

18 ساعات مضت, حمدى الظابط said:

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

أخي الكريم

التسمية العربيية في حد ذاتها ليست خطأ إذا كتبت بطريقة صحيحة  فقط تصعب عملية كتابة الكود وقراءته وفهمه

فمثلا قمت بكتابة 

الاحد-مادة1 والمفروض تعتمد كتابتها بالشرطة السفلية الاحد_مادة1

ايضا استحدام الكلمات المحجوزرة  number

نأتي لموضوعك

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

وضح ما هو دور نموذج Msq الغير موجود اصلا في المثال

النموذج به خدث بعد التحديث لحقل الاحد من خلال دالة DLookup للحقول

txtc  txtc1 txtc2    وهذه الحقول غير موجود بالنموذج ولم تم تعريفها كمتغير

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

::بالتوفيق::

إذا كنت ترى أن هذه المشاركة مفيدة فلا تنسى التقييم

[حمدى الظابط]

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