بسم الله الرحمن الرحيم
الأخوة الأفاضل...تحية طيبة وبعد
لدي نموذج رئيسي وبه زر لفتح نموذج اسمه البيانات الرئيسية بحيث يقوم بفتحه على سجل جديد والمشكلة لدي هي أني وضعت في نموذج البيانات الرئيسية في حدث عند الفتح هذا الكود:
If RecordsetClone.RecordCount = 0 Then MsgBox "لا يوجد بيانات ", vbInformation + vbMsgBoxRight, "" DoCmd.CancelEvent End If
فما العمل لكي يتم تجاهل هذا الكود عند فتح نموذج البيانات الرئيسية على سجل جديد
بواسطة زر أمر في النموذج الرئيسي ؟
ولكم مني جزيل الشكر
مرحبا بك أخي الكريم ،،،، ضع هذا الامر في حدث ( عند الفتح ) لنموذج ( البيانات الرئيسية )
doCmd.GoToRecord , , acNewRec
مع خالص تحياتي
تم تعديل هذه المشاركة بواسطة starnoor2000 في 3 يوليو 2004 في 12:49
المسلم من سلم الناس من لسانه ويده
شكراً على الرد ولكن:
لم يتم فهم سؤالي جيداً ففي نموذج البيانات الرئيسية احتاج إلى الكود السابق لكي يتم اخباري بأنه لا يوجد سجل في حال عدم وجود سجل يطابق السجل الموجود في نموذج الشاشة الرئيسية والمشكلة أني اريد وضع زر أمر في نموذج الشاشة الرئيسية لكي يفتح نموذج البيانات الرئيسية على سجل جديد ويتم تجاهل هذا الكود:
If RecordsetClone.RecordCount = 0 Then MsgBox "لا يوجد بيانات ", vbInformation + vbMsgBoxRight, "" DoCmd.CancelEvent End If
مرفق مثال
ضع لفتح النموذج عند الرغبة في الإدخال هذه العبارة :
DoCmd.OpenForm "FRMTeam Players", , , , , , "yes"
والآن غير حدثك إلى ما يلي :
If OpenArgs<> "yes" and RecordsetClone.RecordCount = 0 Then MsgBox "لا يوجد بيانات ", vbInformation + vbMsgBoxRight, "" DoCmd.CancelEvent End If
شكراً على الردود السريعة يا أخوان
لكنلم تنجح هذه الطريقه يا أخ مهند
أرجو منك الإطلاع على الملف المرفق لكي تتفهم الصورة بشكل أوضح
مع خالص شكري وتقديري لكم
طيب تخيلو إن أسمي نانسي وردو علي !؟
الله يعطيك 1000 عافية أخوي مبرمج2003 تسلم يالغالي .. هذا المطلوب بالضبط
هذا الموضوع مغلق.
