مهند عبادي قام بنشر أكتوبر 8, 2004 قام بنشر أكتوبر 8, 2004 بالنسبة لبرنامج أخي رضا عقيل وحمايته لم أستطع للآن فكها والعمل مازال جارياً لذلك ويوجد لدي عدة أفكار لكسرها (بدون معرفة المعادلة) ، ولكنه يعطي رسالة خطأ مرجع مفقود .. فما هي المراجع المستخدمة في البرنامج !؟؟ أما بالنسبة لما ذهب إليه أخي أبو هادي من امكانية تعطيل الأحداث وتصفير المؤقت فهذا ممكن طبعاً .. ولكننا إذا وضعناها ضمن حدث لا يعمل البرنامج بدونه نكون قد اجتزنا هذه النقطة
هشام علام قام بنشر أكتوبر 8, 2004 الكاتب قام بنشر أكتوبر 8, 2004 (معدل) لسلام عليكم ==================================== اخى الكريم = ([أبو هادى],[مهند],[رضا]) Asfrinds ===================================== الفكرة ممتازة جدا موضوع التعديل والتاريخ ولقد جربتها ونجحت تمام ، ولكن لا تزال المشكلة قائمة بالدخول إلى التصميم وإزالة الحدث عند الفتح والفكرة الآن ان يكون اختبار النموذج فى وضع التصميم ام لا اى بمجرد دخولك الى التصميم يتم إغلاق البرنامج من المعروف يمكن اختبار النموذج فى وضع الفتح دالة IsLoaded والمشكلة فى تجميع الكود الــ Design view مثل دالة اختبار الفتح ، هى نفس الفكرة التى تناقشنا فيها سابقاً يا اخ مهند ولتبسيط الفكرة اكثر مثلا هذا الكود السبيط DoCmd.OpenForm "form1", acDesign يقوم بفتح النموذج فى وضع التصميم ، ولكن عند التصميم اريد أن أختبر النموذج للـ acDesign فما رائيكم فى الفكرة هل ستنجح إن شاء الله ام ؟ :) Function HacDesing(ByVal strFormName As String) As Integer Const conObjStateClosed = 0 Const conDesignView = 0 If SysCmd(acSysCmdGetObjectState, acForm, strFormName) <> conDesignView Then 'On Error Resume Next If Forms(strFormName).CurrentView <> conDesignView Then ' DoCmd.Quit HacDesing = True End If End If End Function مرفق ملف Design.rar تم تعديل أكتوبر 8, 2004 بواسطه هشام علام
سهل احمد العريشي قام بنشر أكتوبر 8, 2004 قام بنشر أكتوبر 8, 2004 بسم الله الرحمن الرحيم أخي رضا طبعا الرقم اللي بيظهر هو رقم الهارد وعلشان أحاول اجيب الطريقة عملت نموذج ووضعت حقل للرقم اللي يظهر لي وحقل لرقم التسجيل والنموذج مبني على استعلام وفي حقل رقم التسجيل وضعت هذه المعادلة ( رقم تسجيل البرنامج: ([HardDiskNo]-799197)*2 ) طبعا ما توصلت للحل الصحيح بس أعتقد العملية مهي بعيده عن كذ طبعا جلست أغير في الرقم اللي مكون من سته خانات ولكن تعبت وهذا اللي صار معايا وبعدين حطيت الرقم اللي أعطيتني وطلع خطا يعني كنت بحاول على أساس خاطي ممكن الرقم الصحيح علشان أتابع والأ طريقتي خطأ أخيك سهل احمد ( ابو نعيم )
رضا عقيل قام بنشر أكتوبر 9, 2004 قام بنشر أكتوبر 9, 2004 أخي سهل بما أن الرقم لديك بالسالب كالتالي ( -3959627 ) يكون رقمك هو -17892289 إخواني أبو هادي هشام علام مهند عبادي أعتقد أننا اقتربنا كثيراً
سهل احمد العريشي قام بنشر أكتوبر 14, 2004 قام بنشر أكتوبر 14, 2004 بسم الله الرحمن الرحيم شكرا لك أخي العزيز رضا وجزاك الله كل الخير أخيك سهل احمد ( ابو نعيم )
هشام علام قام بنشر نوفمبر 29, 2004 الكاتب قام بنشر نوفمبر 29, 2004 تجربة اخرى Function IsInDesignView(ByVal strFormName As String) As Boolean ارجاع القيمة إلى True إذا خصص النموذج للفتح فى وضع التصميم Dim oAccessObject As AccessObject Set oAccessObject = CurrentProject.AllForms(strFormName) If oAccessObject.IsLoaded Then If oAccessObject.CurrentView = acCurViewDesign Then IsInDesignView = True End If End If End Function الله المستعان :(
الردود الموصى بها
Join the conversation
You can post now and register later. If you have an account, sign in now to post with your account.