أبو آدم

الشكر موصول لأستاذتنا الكبيرة زهرة العبدالله (منتدى الفريق العربي) على إجابتها والمرفق لأستاذتنا زهرة za-dorat-Last.rar

إخوتي وأحبتي الفكرة في التطبيق المرفق ، مجتزأة من تطبيق متكامل معروف أن هناك كثير من التطبيقات حول موضوع شريط المعلومات ، ولكنني هنا أقدم اليوم تطبيقا يستخدم الفكرة مقترنة بجعل مصدر المعلومات للشريط جدول أو إستعلام أو جملة SQL ، وللشريط غاية إخبارية رقابية. المدير و / أو مراقب الجودة معني بالإطلاع على آخر التطورات بالنسبة للمعاملات المسجلة في الفروع ، ومتابعة تطور مستويات الإنجاز بشكل مستمر ، ومن ذلك تم إنشاء شريط معلومات في أسفل النموذج الرئيسي ، ويكون مصدر السجلات للشريط إستعلام أو جملة SQL لتصفية آخر السجلات الجديدة ، ومستوى تعقيد وبساطة مصدر المعلومات يعتمد على التطبيق ، وهنا قمت بتبسيط المصدر قدر الإمكان بحصر المصدر بالمعاملات المسجلة من 1/5/2011 ولغاية 31/5/2011 ، ولمعلومات محدودة ، ومن هذا الشريط يستقي المراقب معلومات رئيسية ، كافيه لبناء تصور سريع عن حجم ومجريات العمل ، ومستويات الأداء. كما يقوم التطبيق الأصلي بإعادة تحديث مصادر المعلومات كل فترة محددة ، ومستوى التصفية يعتمد على الساعة خلال اليوم وليس أيام شهر كما في التطبيق المرفق. آملاً أن يكون للتطبيق فائدة لبعض إخوتي وأحبتي والله من وراء القصد .... ................. NA_InformationBar.rar

لإستخدام Sum ، ولتجميع قيم أجور الشحن كإجمالي لصفقات الموظف ، ولكل موظف على حدى ، وكمصدر لسجلات نموذج Me.Form.RecordSource = "SELECT EmployeeID, Sum(Orders.Freight) AS Freight FROM Orders GROUP BY EmployeeID;" وتكون النتيجة

أخي العزيز الكود غايته منع تكرار سجل لطالب في يوم معين نقوم بعد التحديث (إدخال رقم الطالب) بالبحث في جدول StuDay عن الرقم المدخل وهو Caller-ID2 بشرط تطابق الرقم المدخل في النموذج الفرعي بالرقم في الجدول باستخدام DLookup وعند التطابق (العثور على سجل) ، يتم إظهار رسالة تنبيه بالأمر ، ثم جعل قيمة الحقل Null فراغ للرقم ، وفراغ لحقل الاسم ، ونقل التركيز مرة أخرى لحقل الرقم. والله أعلم ..... ...........

أخي العزيز تقبل الله الطاعات "أو" خطيرة ، فحبذا لو قررت واحدة حتى نجيبك عليها!!

11:43 11:45 11:49 جميل ... أثناء فتح الموضوع لتجهيز الرّد تم تدافع الحلول ... (تمت الاجابة)

أخي العزيز إن كنت قد أحسنت الفهم عنك ، جرب هذا الكود Dim strMsg As String, strTitle As String Dim strMsgNo As String, strTitleNo As String strMsg = ""هل ترغب بإستكمال الإجراء strTitle = " تنبيه" If MsgBox(strMsg, vbQuestion + vbYesNo + vbDefaultButton2, strTitle) = vbYes Then DoCmd.SetWarnings False DoCmd.OpenQuery "upT" DoCmd.OpenQuery "upB" DoCmd.OpenQuery "upC" DoCmd.OpenQuery "upD" DoCmd.OpenQuery "upE" DoCmd.OpenQuery "upEX" DoCmd.OpenQuery "delT" DoCmd.OpenQuery "delB" DoCmd.OpenQuery "delC" DoCmd.OpenQuery "delD" DoCmd.OpenQuery "delE" DoCmd.OpenQuery "delEX End If ووافني بالنتيجة ......

جزيت خيراً أبا الحارث ... ولا شكّ أنك مما نفخر به ونعتزّ ... وإخوتنا وأساتذتنا يملؤون الدنيا مما علّمهم الله سررت بمرورك الطيب ..............

أخي العزيز أنا لم أتمكن من التعامل مع التطبيق المرفق ، فما أرفقته (كما فهمتها أنا) جدول للأصناف الواردة (المشتريات)، وجدول للأصناف المباعة ، ولم أتمكن من تحديد ضابط لوضع الرصيد في أي من الجدولين ، فلا أريد أن أضع لك حلاً في علم لست من أهله ، أما الكود فهو في المرفق: DSum("[عدد]", "Table1", "[الصنف] = '" & Me!الصنف.Value & "'") والأمر هنا عام فأجبتك عنه ، وهو مجموع الحقل عدد من الجدول Table1 بشرط الصنف في النموذج بأنتظار تدخل أحد الإخوة من أهل الإختصاص

التعديل الذي إقترحه الأخ Ksmn64 يطبق بإضافة الكود التالي للنموذج الأصل frmCustomer بعد إعادة تسمية حقل الإسم ب CompNam Private Sub TaxNum_AfterUpdate() Me.CompNam = Me.TaxNum.Column(1) End Sub

بارك الله لكما وبكما والحمد لله الذي بفضله تقضى الحاجات (تمت الاجابة)

شَرُفتُ بمروركم الطيب أخي محمد صالح تواصلكم يعنيني وتَقَرُ به عيني ... فمرحباً ورفيق دربي الحبيب أبو خليل ... نسير بمعّيتك ... وعين الله ترعانا بمجلس العلم و الفائدة هذا والله المستعان ... ......

أخي العزيز كانت فكرة التطبيق محدودة بالكود ، وما تفضلت به متاح وشكرا لمرورك الطيب ...............

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

أخي قصي شكرا على هذا النقل الطيب ، آملين أن يستفيد منه إخوتنا تمت التجربة على ويندوز 7 وعمل التطبيق بشكل جيد ............

أختي الفاضلة أتابع الموضوع منذ البداية ، ولدي سؤال : لماذا الأكسس بتقاريره غير مناسب ؟؟ من ناحية التنسيق !! حتى نلجأ للوورد !!! ..........

إخوتي وأحبتي حين يكون لدينا نموذج أصل (أب) لعرض السجلات في جدول ما ، ويكون في هذا النموذج مربع تحرير وسرد يكون مصدر الصف فيه جدول العملاء ، ونحتاج لنموذج تابع منبتق لتسجيل عميل جديد ، وفي نفس الوقت وبعد إضافة معلومات العميل نريد أن يتم تحديث مصدر الصف في مربع التحرير و السرد في النموذج الأصل ليتم إظهار السجل الجديد ، مع العلم بأن النموذج المنبثق الخاص بإدخال سجلات العملاء الجدد سيتم في التطبيق إستدعاؤه من أكثر من مكان أو نموذج ، أي أنه لا يستوي الأمر معنا بتحديث مصدر الصف لمربع التحرير و السرد في النموذج الأصل من خلال زر الأمر عند إغلاق النموذج المنبثق وإلا سنضطر لإنشاء أكثر من نموذج منبثق لإستدعاء كل واحد منهم مرتبطا بكود تحديث معلومات كل نموذج استدعاه. Forms!Form1!combo2.Requery ويكمن الحل في تحديد شرط تحديث مصدر الصف لمربع التحرير و السرد في النموذج الأصل مع أمر إستدعاء النموذج المنبثق ، ومن النموذج الأصل ، وبذلك أيضا يمكن إستخدام وإستدعاء نفس النموذج المنبثق من أكثر من نموذج لعدم إرتباطه بأيها، وذلك بإستخدام الكود التالي خلف زر أمر إستدعاء النموذج المنبثق من النموذج الأصل : DoCmd.OpenForm "frmAddCustomer", WindowMode:=acDialog Me.TaxNum.Requery وقضي الأمر مرفق تطبيق للتوضيح ............. NA_RequeryingComboBox.rar

رفع الله قدرك يا رفيق الدرب ، ونسأل الله العظيم أن يذكرنا وإياك عنده .. إنه سميع الدعاء نأمل من الله أن تقضى حاجة أخينا بما قدمت ...........

أخي العزيز جرب التعديل المرفق ووافنا بالنتيجة ........ ............ NA_Total_Up.rar

أخي العزيز بعد إذن أساتذتي و أخوتي أنت تتحدث عن نظام أرشفة ، وحيث أنني أدعي أن الحل لدي ، فأرجو أن ترفق لي قاعدة بسيطة بها الجدول الرئيسي للسجلات التي سترتبط بها هذه المجلدات و الملفات مع توضيح للحقل الذي سيرتبط به إسم المجلد وإن كانت لديك آلية لتسمية المجلد ، وبعد الإطلاع سأوافيك بالحلّ بإذن الله. والطلب أعلاه هو لتقليل مدارات التعديل لصعوبتها ، ومنعا من ضياع الوقت . والله من وراء القصد وهو المستعان ........ ............

نسأل الله أن يجزي القائمين على الموقع خير الجزاء ، ويجعل ما قدموا في ميزان حسناتهم وهذه دعوة للإخوة للمساهمة في نشر الموقع لتعميم الفائدة منه. وجزيتم خيرا على الدلالة على الموقع ، والشكر موصول للأخ ذيب اليمن .................

جال ببالي خاطر أن أنفذ تطبيقا بسيطا يعتمد على جمل SQL صغير الحجم كبيرة المفعول ، وأشارككم بها ، من باب العصف الذهني ، علّ فائدة بسيطة تتحقق منها لأحد إخوتنا وننال دعوة طيبة بظهر الغيب. وإخترت ثلاثة منها ينطبق عليها الوصف ، صغيرة الحجم كبيرة المفعول أولها : DoCmd.RunSQL "SELECT *INTO Customers_copy FROM Customers;" وتقوم بنسخ الجدول Customers بكامل محتوياته و تسميه الجدول الجديد Customers_copy ، باستخدام INTO ثانيها : DoCmd.RunSQL "SELECT CustomerID, CompanyName, ContactName INTO Table2 FROM Customers;" وتقوم بنسخ أعمدة محددة بالإسم من الجدول Customers بكامل محتوياتها وإنشاء جدول جديد و تسميه Table2 ، باستخدام INTO وثالثها: Me.Combo2.RowSource = "SELECT DISTINCT City FROM Customers;" وتقوم باسناد مصدر صفوف لمربع التحرير و السرد من الجدول Customers ومن العامود City ( ومن غير تكرار) والمحلل لتركيبة الجملة يرى مدى بساطتها وبالمقابل أداء كبير .... وهذه الروتينات أستخدمها لإنشاء الجداول المؤقتة لغايات إستخراج النتائج الإحصائية أو تجميع معلومات من مجموعة جداول في جدول واحد . آملاً من الله عزّ وجلّ أن يستفيد منها الإخوة والله من وراء القصد ....... NA_SQL01.rar

أخي العزيز مفهوم القيمة الإفتراضية يطبق على الحقول الجديدة ، حين تقوم بطلب إضافة سجل جديد تظهر القيمة الإفتراضية ، كمُسماها : أي أنك تفترض لهذا الحقل قيمة تاريخ اليوم ففي حال قبولك لهذا الافتراض يتم تثبيت القيمة في الحقل و إلا يتم تثبيت القيمة التي تضعها في الحقل أثناء إدخال البيانات . أما القيم القديمة فتبقى على حالها .... هذا فيما أعلم ... والله أعلم ...............

أخي العزيز التقويم في التطبيق مفعل جزء منه فقط ، والفكرة تطبيقية وليست كاملة ، يمكنك استخدام أي تطبيق آخر للمفكرة . في عرض التصميم لنموذج المفكرة وفي مقطع تذييل النموذج ، قم بتحويل خاصية Visible من لا الى نعم ، فينتهي الأمر ولكننا ندخل في مسألة تفعيل كامل تطبيق التقويم. وللعلم الزر الذي تتحدث عنه ينقلك للشهر التالي وليس للسنة التالية ... .............

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