رسالة ان الصنف موجود فى النموذج الفرعى

[الحلبي]

السلام عليكم 

مش عارف ايه اللى بيحصل معايا

مرفق مثال

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

لو موجود فى الفرعى لا تظهر الرسالة

جزاكم الله خير

test.accdb

[ِAbo_El_Ela]

اية المطلوب 

[طلب اكسس]

فيه خطأ في صياغة السؤال

[محمد أبوعبدالله]

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

تفضل اخي الكريم

    If DCount("*", "t2", "itemname='" & Me.itemname & "'" & " and masterid ='" & Me.masterid & "'") > 0 Then
        MsgBox "صنف مكرر", vbInformation, "تحذير"
        DoCmd.CancelEvent
    End If

test7.rar

44 دقائق مضت, طلب اكسس said:

فيه خطأ في صياغة السؤال

اخونا يسأل عن عدم تكرار الصنف في الفاتورة

تحياتي

[ابوخليل]

السلام عليكم

صحيح السؤال غير واضح وكل واحد منا سوف يفسره حسب فهمه

وصحيح ايضا لما قالوا : فهم السؤال نصف الإجابة

انا فهمت ان  د.حلبي يريد اظهار رسالة عند عدم وجود الصنف في الفرعي بناء على معلومتين : رقم الفاتورة / اسم الصنف

وهذا الحل ان كنت فهمت

Private Sub itemname_AfterUpdate()
Dim i_name As String
i_name = DCount("itemname", "t2", "masterid='" & Me.masterid & "'" & " And itemname='" & Me.itemname & "'")
If i_name > 0 Then
Exit Sub
Else
MsgBox "الصنف غير موجود"
End If
End Sub

 

 

test2.accdb

[الحلبي]

الاساتذه والمعلمين الكبار واهرمات المنتدى / @محمد أبوعبدالله @ابوخليل  (ترتيب اسماء الاساتذه ليس الا حسب ترتيب المشاركة)

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

كود الاستاذ / ابو عبد الله مصبوظ ولكن العكس فى ان الصنف غير موجود تظهر الرسالة

كود الاستاذ أبو خليل هو قصدى ومحقق لطلبى

تقريبا كود الاستاذ/ ابو خليل  هو نفسه كود الاستاذ / ابو عبد الله  مع اختلاف النتبجه 

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

جزاكم الله كل خير وجعلكم خير مساعد لنا وبارك الله فى علمكم وزادكم علما وايمانا

كل الاحترام والتقدير لكما