أبو آدم

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

أخي العزيز الاخوة ابو خليل ومنتصر كأنني وصلت للحل ولكنني بحاجة لبعض التركيز ... وبعض النوم لنا لقاء بعد الفجر.... قرييييييييييب

أخي العزيز عذرا للتأخير ... أقدر ان لكل حاجاته التي يصر عليها ... وهذا اقدره وادعو له من باب متابعة الحاجات و السعى اليها انا عزيزي .. كما يقولون .. نص كم في المسائل المحاسبية ولكن دعنا نتكلم في الاصول العامة ... وهذا الرأي صواب يحتمل الخطأ ان نخرج مسألة الدفعات والارصدة من جدول الحركات ، ونكتفي هناك باحتساب المبالغ المتحققة فقط ونأسس جدولا للدفعات الخاصة بالعداد بغض النظر عن كونها تسديد ذمم او دفعات مقدمة ، ونجعل فيه كود العداد وقيمة الدفعة وتاريخها وصفتها ( تسديد أو دفعة بالحساب او دفعة مقدمة او ما تراه مناسبا) ثم لاحقا وعن طريق الاستعلام او جدول مؤقت نحسب ميزان الذمم لذا قم باخراج اي شيئ يتعلق بالدفعات من جدول الحركات واجعله في جدول خاص وادخل به بعض المعلومات لعداد واحد على الاقل وارفقه حتى نستكمل العمل. ولا تنزعج من بعض التأخير ... اذا سمحت !!!

بفضل الله تمت بطيب قولكم ... واكتملت بجميل حضوركم و أجر الدعاء واقترانه بالرضا ... لي ولكم

أخوتي الافاضل أبدأ بإذن الله معكم في هذا الموضوع مشروعا لفتح بوابة أخزن من خلالها كل ما يسمح به وقتي من مقتطفات وتلميحات وأفكار وتطبيقات بعضها ضروري وبعضها مفيد وبعضها قد يلزم وبعضها نحتاج لفهمه عند استخدامه و منها يلزم فهمه كيما نتقن استخدامة. فهي سلسلة تتوالى فيها الافكار من هنا وهناك ، نسأل الله العون للاستمرار وندعو الله ان تعم الفائدة وتتحقق. وأنتهج هنا التبسيط والشرح والتصوير وطرح الادوات والطرق واترك لابداعاتكم استخدامها حين تلزم. وبالتشاور مع الاخوة كان الرأي أن تكون هذه المشاركة بوابة للمشاركات التي تتعلق بالفكرة وتحوي عناوين وروابط المشاركات المعنية . مع شكري وتقديري لاخوتي ابو خليل و منتصر الانسي لتشجيعهم لي ومساهماتهم الطيبة . والله من وراء القصد ﴿وَمَا أَسْأَلُكُمْ عَلَيْهِ مِنْ أَجْرٍ إِنْ أَجْرِيَ إِلَّا عَلَى رَبِّ الْعَالَمِينَ﴾ الشعراء/109. ولكنني اطمع بصالح دعائكم بظهر الغيب كيف نستخدم التقويم ( لإختيار وتحديد التاريخ ) http://www.officena.net/ib/index.php?showtopic=36090 التحكم بالوقت ( الساعة) http://www.officena.net/ib/index.php?showtopic=36110 تغيير النموذج الفرعي ضمن نموذج رئيسي http://www.officena.net/ib/index.php?showtopic=36111 إضافة "إشعار حقوق الطبع والنشر" إلى قاعدة البيانات http://www.officena.net/ib/index.php?showtopic=36112 محرك بحث http://www.officena.net/ib/index.php?showtopic=35575 تطبيق نسخة تجريبية http://www.officena.net/ib/index.php?showtopic=34558 مربعات تحرير ذكية لاختيار التاريخ http://www.officena.net/ib/index.php?showtopic=36124 سجل تجميعي أفقي Horizontal Field طلب الأخ outnet وإبداع منتصر الآنسي http://www.officena.net/ib/index.php?showtopic=36136 ترصيد الاجازات The vacations Balance http://www.officena.net/ib/index.php?showtopic=36147 بحث و تحليل في قيم مركبة لحقل طلب نارت لبزو و تطبيق منتصر الآنسي http://www.officena.net/ib/index.php?showtopic=36156 .......

حبذا لو ارفقت لنا قاعدة بيانات للتطبيق و التعديل

نسيت المرفق يا طيب

إخوتي الاعزاء فكرة اليوم التحكم بالوقت ( الساعة ) Time Control كلمات استدلالية اضافة وقت - طرح وقت - On Timer - DateAdd - نموذج - كود التطبيق جزء من تصور شامل اقتطفت لكم اليوم فكرة التحكم و السيطرة على الوقت حيث يحتوي النموذج F2 ( من أعلى اليمين) حقل غير ممكن لليوم يظهر اسم اليوم حقل غير ممكن لليوم يظهر تاريخ اليوم حقل غير ممكن للساعة يظهر الساعة ( 12 ساعة AM . PM ) (مفعل مع On Timer) حقل غير ممكن للساعة يظهر الساعة مع الثواني (مفعل مع On Timer) – 1000 تساوي ثانية واحدة ثم مجموعة ازرار وحقل غير منضم ( في الوسط ) حقل غير منضم ممكن للساعة يظهر قيمة افتراضية للوقت (الساعة الثامنة صباحا) (ساعة بداية الدوام) ( يمين من الاعلى للأسفل +) زر لاضافة دقيقة واحدة على قيمة الوقت ( الساعة ) في حقل الوقت الافتراضي زر لاضافة خمسة دقائق على قيمة الوقت ( الساعة ) في حقل الوقت الافتراضي زر لاضافة عشرة دقائق على قيمة الوقت ( الساعة ) في حقل الوقت الافتراضي زر لاضافة ستون دقيقة ( ساعة واحدة) على قيمة الوقت ( الساعة ) في حقل الوقت الافتراضي ( يسار من الاعلى للأسفل -) زر لطرح دقيقة واحدة على قيمة الوقت ( الساعة ) في حقل الوقت الافتراضي زر لطرح خمسة دقائق على قيمة الوقت ( الساعة ) في حقل الوقت الافتراضي زر لطرح عشرة دقائق على قيمة الوقت ( الساعة ) في حقل الوقت الافتراضي زر لطرح ستون دقيقة ( ساعة واحدة) على قيمة الوقت ( الساعة ) في حقل الوقت الافتراضي ( يمين أسفل الوسط) زر للعودة للوقت الافتراضي في حقل الوقت الافتراضي ( يسار أسفل الوسط) زر لتثبيت الوقت الحالي في حقل الوقت الافتراضي الاضافة و الطرح للوقت تتم باستخدام طريقة DateAdd حسب البنية التالية T1 = DateAdd("h", 1, T1) ولسان حال الكود يقول في الحقل T1 تعامل مع (n دقائق ) ( h ساعات) , (1 بالاضافة) (1- بالطرح) , من أصل قيمة الحقل T1 وكفى ... وفي التطبيق مزيد توضيح NA_TimeControl.rar

أخي العزيز ما خاب من استشار ومن شاور الناس شاركهم عقولهم جزاك الله خيرا انا في كل مشاركة أضع وصف (عنوان للمشاركة) باللغة العربية و الانجليزية هل اقتراحك الثاني ان تتجمع العناوين في المشاركة الاولى في الصفحة الاولى !!!

متابعة يا اخوان هل هناك فائدة ترجى ... أو تحققت !!! أنا مستمر..............

عذرا على التأخير جدول للدفعات مرتبط بالعداد نعم راس باطراف

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

إخوتي الأعزاء فكرة وتطبيق اليوم كيفية تغيير النموذج الفرعي ضمن نموذج رئيسي How To Change Sub forms كلمات استدلالية: نموذج - نماذج فرعية - مربع تحرير وسرد تتمحور الفكرة حول وجود نموذج رئيسي يتضمن نموذجا فرعيا واحدا ، سأقوم بتغيير محتويات نافذة النموذج الفرعي لاظهر نموذج فرعيا آخر او أي نموذج اريد ... ببساطة !!! لدي ثلاثة نماذج فرعية مصدرها جداول او استعلامات ، سيتم الاطلاع على هذه النماذج الفرعية من خلال نموذج رئيسي ، وسيتم التبديل بينها من خلال مربع تحرير وسرد ( Combo Box ) في النموذج الرئيسي. مصدر مربع التحرير و السرد قائمة قيم أو جدول يتم انشاؤه لهذه الغاية ( حسب الرغبة و الغاية ) ويمكن استبدال مربع التحرير و السرد اذا رغبت بزر خيارات ( Option Buteen ) أو مجموعة خيارات (Option Group ) . يتم تسمية نافذة النموذج الفرعي الموجودة في النموذج الرئيسي frmSubImage . في حدث بعد التحديث لمربع التحرير و السرد نستخدم الجملة الشرطية ، حسب الصورة والباقي واضح في التطبيق المرفق ..... وصحتين وعافية وابواب الابداع و الاستخدام والاستفادة عندكم .... واليكم المرفق NA_ChangeSubForm.rar

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

حياك الله يا فتى الوادي لم أخلط ولكنني لم أرى ردك فاعذرني أما بالنسبة لردك ، رد طيب ، ولكن لي عليه تعليق أن اذنت لي

أخي العزيز في حدث بعد التحديث للحقل المعني أضف الكود التالي Private Sub nob_d_AfterUpdate() Dim rst As Recordset Set rst = Me.RecordsetClone rst.MoveFirst Do Until rst.EOF If rst![nob d] = Me![nob d] Then MsgBox " السجل مكرر ، رقم المصنف مسجل سابقا ", vbExclamation + vbMsgBoxRight + vbMsgBoxRtlReading, " تنبيه" Me.Undo DoCmd.CancelEvent Exit Do End If rst.MoveNext Loop rst.Close End Sub والله الموفق ... وهو المستعان

أخي العزيز في حدث عند النقر لزر معاينة في النموذج ، استبدل الكود لديك بالكود التالي DoCmd.OutputTo acOutputReport, "kst", acFormatSNP, _ CurrentProject.Path & "\kst.snp", True حيث يتم انشاء التقرير بصيغة ٍSnapShot وعرضه مباشرة دون تعارض مع كود إخفاء نافذة الاكسس جرب ووافني بالرد

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

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

شكرا للتشجيع وساتابع باذن الله

أخي العزيز بعض الافكار .... الادارات المديريات المدارس الطلاب السيارات ووسائط النقل الاثاث و اللوازم المرشدين

أخي العزيز استفسارك عام وشمولي بشكل كبير حبذا لو حددت قطاعا محددا للسؤال عنه ، و الابواب التي فتحتها انت أدرى بما خلفها هل تتحدث عن قواعد بيانات لمدارس محافظة مثلا ؟؟ هل تتحدث عن قواعد بيانات للموارد البشرية مثلا ؟؟ ....

أخي العزيز أعدت فحص الكود ووجدت الخلل، والخطأ مني حيث كتبت الكود مباشرة ولم انسخه نسخا وسهوت عن الفرق بين الكودين للسنة الثابتة و المتغيرة فعذرا الكود الصحيح Function copyright() Dim DB As Database Dim P As Property Set DB = DBEngine(0)(0) Set P = DB.CreateProperty("Copyright Notice", DB_TEXT, "© Nart Lebzo Software " & Year(Now)) DB.Properties.Append P End Function ولكن لا بأس فكلاهما نفس الفكرة حيث أن الكود الذي اوردته من المصدر تحدد فيه السنة ضمن النص ، والذي أوردته انا يدعم تغيير السنة حسب التاريخ ... فقط شاكرا متابعتك وتنبيهك لعموم الفائدة و التصحيح ، وساقوم بتصحيح الكود في المشاركة الأصلية والتمسوا لي العذر فمشاركتي كانت قبيل الفجر

تلميح اليوم كيفية إضافة "إشعار حقوق الطبع والنشر" إلى قاعدة البيانات How To add Copyright Notice to the database كلمات استدلالية:Copyright Notice - وحدة نمطية - نموذج افتح وحدة نمطية جديدة أنشئ وظيفة جديدة باسم copyright وحسب النص التالي Function copyright() Dim DB As Database Dim P As Property Set DB = DBEngine(0)(0) Set P = DB.CreateProperty("Copyright Notice", DB_TEXT, "© Nart Lebzo Software " & Year(Now)) DB.Properties.Append P End Function افتح إطار التنفيذ المباشر (immediate ) بالضغط على ctrl+G و اطلب تنفيذ ? Copyright() Enter ليتم إضافة الكائن "إشعار حقوق الطبع والنشر" للمجموعة في معلومات قاعدة البيانات إذا حاولت إعادة تشغيل الوظيفة ستحصل على الخطأ "لا يمكن الإلحاق : الكائن موجود مسبقاً في المجموعة" ولا داعي لحفظ الوحدة النمطية فقد تم المراد ولا داعي لوجودها للإفادة من هذا الكائن وإظهاره و التعرف عليه يمكننا وفي أي نموذج وفي حدث عند الفتح (مثلا) Private Sub Form_Open(Cancel As Integer) Dim DB As Database Set DB = DBEngine(0)(0) Me.Caption = DB.Properties![CopyRight Notice] End Sub أو على شكل صندوق رسائل Private Sub Command0_Click() Dim Hi As Integer ' MsgBox response Dim DB As Database Set DB = DBEngine(0)(0) Hi = MsgBox(DB.Properties![CopyRight Notice] , 64, "CopyRight Notice") End Sub ما رأيكم ... دام فضلكم

يلزمك شيئ مثل كشف حساب للعداد دعني انظر في الامر !!!!