D-LINK2000

اخي العزيز يمكنك غلق الشاشة الافتتاحية باستخدام الكود التالي DoCmd.Close acForm, "form1", acSaveNo وذلك في الحدث form open في النموذج الثاني main window حيث form1 هو الشاشة الافتتاحية وبهذا الإجراء والكود السابق الذي تم كتابته في ردي السابق تستطيع ان تجعل الشاشة الافتتاحية والنموذج التالي لها يعملان في سهولة دون تعقيد او حدوث اخطاء ... وتذكر ان مدة بقاء النموذج الشاشة الافتتاحية يتوقف على ما تبقى من 59 ثانية منذ تحميل النموذج في الواجهة . والله ولي التوفيق

اخي العزيز لقد قمت بدراسة الكود البرمجي الخاص بالشاشة الافتتاحية ووجدت ان استخدام هذا الكود لا يعطي مرونة في تحديد الزمن المراد إظهار الفورم على لاشاشة قبل الوصول إلى النافذة الرئيسية main Window فلو تتبعت الفرق بين الساعة عن تحميل الفورم والعداد اسفلها ستجد انه يبدأ من الثواني التي سجلت عند تحميل الفورم وتقريباً يتم تحميل النموذج الىخر عند الوصول للثانية 59 وهذا يفسر لك سؤالك لما يغيب الفورم احياناً واحياناً اخرى يتم فتح النافذة الرئيسية بسرعة. ولي ملحوظة اخرى ان استخدام هذا الكود له حسنة واحدة فقط الا وهى العلامة المتحركة مثلما في الويندوز اكس بي فقط اما لو خيرت بين استخدام هذا الاسلوب وبين استخدام اسلوب التيمر من خصائص الفورم ونقوم بتحديد الزمن اللازم في خانة timer interval بالعدد مثل 100 ، 500 ، 1000 ، .... الخ وبعد ذلك نقوم باسناد غلق النموذج وفتح النموذج الآخر عن طريق الماكرو من خلال on timer باستخدام الامر open form ، close form اتمنى ان اكون وفقت في شرح الأمر لك وغليك الكود بعدما قمت بحذف الرقم 5 لانني وجدته غير مؤثر في وقت عرض النافذة هذا لحد علمي والله اعلم ورسوله Private Sub Form_Timer() Dim S As Integer S = Second(TIME) W = TIME() Static sintPic As Integer Me("S" & sintPic).Visible = False sintPic = (sintPic + 1) Mod 6 Me("S" & sintPic).Visible = True If W > D + (S) Then DoCmd.OpenForm "MAIN WINDOW" End Sub

بارك الله فيك اخي ولقد اطلعت على البرنامج وتمام يا باشا تمام وننتظر منك المزيد

اخي العزيز الذي قام بإنشاء الفورم قام باسناد العملية إلى الإجراء TIMER كما يلي S = Second(TIME) W = TIME() If W > D + (5 * S) Then DoCmd.OpenForm "MAIN WINDOW" DOCMD.CLOSE Static sintPic As Integer Me("S" & sintPic).Visible = False sintPic = (sintPic + 1) Mod 6 Me("S" & sintPic).Visible = True End Sub لقد قمت بإضافة الكود DOCMD.CLOSE لإلغلاق الفورم الرئيسي الافتتاحي لانه يظل عالقا وعلى ما يبدو ان هذا البرنامج يعمل مع ACCESS2003 بصورة جيدة بينما لا يعمل مع ACCESS XP لقد قمت بتعديل البرنامج إلا انيي لا استطيع تحميله على المنتدى ولا اعرف السبب حتى الآن. على فكرة قمت بالتجربة على ACCESS XP ونجحت التجربة وعلى فكرة كل الذي قمت به فقط هو اضافة الأمر السابق docmd.close وباقي البرمجة التي قام بها منشئ الفورم صحيحة وتعمل وكل ما عليك هو ان تحذف main window وتضع اسم الفورم المراد تحميله اتمنى ان اكون قد ابديت بعض الاهتمام للموضوع

اخي الفاضل مشرف قسم الأكسيس شكراً على مجهوادتك الرائعة في هذا المجال وشكراً على اهتمامك بالموضوع على فكرة وضع القيمة الافتراضية = 0 انت تعلم انها افتراضية وخصوصاً في الحقول ذات النوع رقم وهي ليست المشكلة التي اتحدث عنها ... المشكلة التي عندي هي ان الاستعلام لا يعمل إلا إذا قمت بفتح سجلات لكل الأصناف الواردة والمقيدة في جدول المشتريات في كلا الجدولين المبيعات والمرتجعات ولو بقيمة مبدئية صفر حيث تتحقق المعادلة المدونة في الاستعلام لقد حاولت ارفاق مثال صغير ولكن رفض تحميل الملف وظهرت رسالة "فشلت عملية إرفاق الملف , غير مصرح لك بإرفاق هذا النوع من الملفات" . سوف اشرح ما قمت به " لقد قمت بانشاء جدول من خانتين اسمه المشتريات ( كود ، العدد الوارد) وجدول المبيعات (كود ، العدد المباع) وجدول المرتجعات (كود ، العدد المرتجع). قمت بادخال 4 أصناف كود 1 ن كود 2 ، كود 3 ، كود 4 بالأعداد الأفتراضية الواردة لكل صنف على التوالي 100 ، 200 ، 300 ، 400 وذلك في جدول المشتريات. ثم قمت بادخال صنفين مرتجع وليكن كود 1 بعدد 50 وكود 2 بعدد 40 وقمت بادخال صنفين مباع كود 2 بعدد 20 وكود 3 بعدد 5 وبعد ذلك قمت بإنشاء استعلام كما يلي كود - العدد المشترى - العدد المباع - العدد المرتجع ثم ادرجت معادلة في الحقل التالي كما يلي: الصافي:[العدد المشترى]-[العدد المباع]-[العدد المرتجع] وعند تشغيل الاستعلام وجدت ان الاستعلام عرض كل الأصناف ولكن لم يحسب الرصيد إلا للكود رقم 2 لأنه مدرج في الثلاثة جداول المشتركة في المعادلة اما باقي الأصناف فظهر الحقل الصافي لها فارغ لانها غير مدرجة في الثلاث جداول المشتركة في المعادلة. اعلم انني اثقلت عليك ولكن هذا الأمر هام بالنسبة لي ارجو الاهتمام اخي المشرف لأنني قمت بعمل برنامج وتنقصني هذه الفكرة حتى استطيع أن اقوم بإنهاءه وتكون فرحتي الأولى بإنشاء برنامج بسيط.

اخواني عباقرة الاكسيس انا منتسب جديد لهذا المنتدى الرائع الذي يحتوي على افضل مشرفين واعضاء انا قمت بعمل قاعدة بيانات مخزون تحتوي على الوارد والصادر والمرتجع ... والمشكلة هيه انه عندما اقوم بإدخال المشتريات وادخال المبيعات من بعض المشتريات وادخال بعض المرتجعات منها واستدعي الاستعلام الذي يقوم بحساب الرصيد المتبقي منها اجد خانة الرصيد فارغة فرضاًُ لدينا 3 أصناف صنف1 ، صنف2 ، صنف3 وقمت بتسجيل 3 أصناف في الوارد وقمن ببيع بعض الوارد من الصنف رقم 1 وقمت بارجاع بعض الوارد من الصنف رقم 2 وقمت بالاستعلام عن المتبقي فاجد الخانة فارغة لكل الأصناف وبالبحث وجدت انني لابد من تسجيل كل الأصناف الواردة في جدول المرتجعات وجدول المشتريات بقيمة على الأقل صفر حتى يتم الاستعلام ويقوم بحساب الرصيد وهذا الأمر صعب في الأصناف الكثيرة فليزمني هذا بأن اقوم بتسجيل كلالأصناف في الجدولين المرتجعات والمبيعات . ارجو لو ان هناك طريقة لا تجعلني اقوم بهذا العمل الممل واحصل على نتيجة الاستعلام وعلى ارصدة الأصناف دون الدخول في عملية التسجيل المملة. ولكم مني جزيل الشكر اخوكم