أبو آدم

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

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

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

وهذا ايضا متاح بفضل الله تفضل ...... NA_DcountUp.rar

انشيئ نموذج جديد وفي عرض التصميم في قسم التفصيل اذهب الى activex control قم باختيار Microsoft ProgressBar control من خصائص النموذج On Timer اكتب الكود Private Sub Form_Timer() Dim i As Integer For i = 1 To 100 ProgressBar2.Value = i If i = 100 Then End If Next i DoCmd.Close End Sub ProgressBar2 هو اسم عنصر التحكم الافتراضي ( قم بتغييره بالاسم الموجود لديك) في خصائص النموذج وفي Timer Interval ضع رقما مناسبا للسرعة التي ترغب بها مثل 1000 او 2000 / 100 أو 200 ( حسب اصدار الاوفيس) بسيطة .... جرب ووافني بالنتيجة والله من وراء القصد وهو حسبي ............

كانت مشاركتي ردا على هذا

نصيحة هامة ابتعدوا عن تسمية الكائنات و الحقول بالاحرف العربية منعا للمعانات في كتابة الكودات مرفق مثال معدل NA_Dcount.rar

Private Sub Form_Load() Me.strTot = DCount("title", "[جدول تسجيل الكتب]", "[تاريخ الورود]< #20/10/2013#") End Sub في حدث عند التحميل للنموذج استخدمت نفس الكود

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

دعوة طيبة لطيب http://www.officena.net/ib/index.php?showannouncement=21&f=89 .....

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

حياك الله أخي فكرة جميلة الحلول القوية و المؤثرة تأتي بالتجربة و الحوار فكرتك تعتمد على جدول الاسماء الواسعة مشكلة : ماذا ان لم يكن الاسم موجودا في الجدول وافنا بالحل كجزء من قوة الفكرة !!

أخي لماذا لا تجعل هذه الخطوات في بنية الجدول وفي خصائص الحقل ؟؟ ......

نصيحة ... عند تنسيق النموذج ، مهم جدا ترتيب الجدولة في منطقة التفصيل التي تتم الحركة بها بين الحقول ........ واليك مثالك معدلا ( انتقل للموظف رقم 4 ) NA_Alert message.rar

اخوتي الفضلاء الحلول دائما متاحة ، ولكنكم تستعجلون فنحن نحاول خدمتكم بما يتاح لنا من وقت وصحة بدن ، فاعذرونا أخي اذهب للنموذج بوضع التصميم حقل اسم الموظف (الاسم) on get focus ضع خلفها الكود التالي Dim x, x1 As String x = Me.تاريخ_الميلاد+ 21915 x = Format(x, "yyyy") x1 = Format(Date, "yyyy") If x = x1 Then MsgBox " تقاعد هذا العام " & x End If أغلق النموذج بعد الحفظ وجرب بعد تعديل بعض تواريخ الميلاد لتكون مناسبة لهذه السنة حاولت ان اجعل الحوار في الكود بسيطا حتى تصل فكرة الحوار مع الكود نعرف اولا المتغيرات كقيم x , x1 ثم نعرف قيمة المتغير الاول وهي سنة التقاعد المحتسبة = تاريخ الميلاد + 21915 ثم نعرف قيمة المتغير الثاني وهي هذه السنة ثم نحدد الشرط وهو اذا كان تاريخ التقاعد مساويا لتاريخ السنة الحالية ، أظهر رسالة تنبيه بذلك بسيطة .... يمكن تعقيد أو تبسيط الكود حسب الحاجة و الخبرة المتاحة ولك عندي بعض النصائح ابتعد عن تسمية الحقول بالاحرف العربية حتى تتجنب الارهاق في الكودات ابتعد عن حفظ القيم المحتسبة في الجداول ( فهذا ليس مكانها) والله من وراء القصد وهو حسبي

قمت بالنسخ و اللصق الى نموذجك اغفلت مسألة التايمر و نبهناك لها النموذج يعمل جيدا هل افهم انك تريد ان تعرف كيف تنسيئ الشريط بنفسك ؟؟ ......

أولاً : جهز نموذج ليظهر فيه التنبيه !!!

وضح أكثر، فلم احسن الفهم عنك !!!

اذا لم يكن ما قدمناه كافيا ففي جعبتنا المزيد باذن الله ............

عفوا المرفق المعدل مرفق هنا NA_ProgressBar.rar

أخي العزيز في خصائص النموذج وفي Timer Interval ضع رقما مناسبا للسرعة التي ترغب بها مثل 1000 او 2000 وسيعمل الشريط حسب رغبتك باذن الله ..........

تصورك عن عملية الجرد ليست واضحة لدي ربما مزيد من التوضيح يساعدنا !!! ........

جرب DCount("FieldName" , "TableName" , "Criteria= #20/10/2013#")

اخوتي الفضلاء في التقرير و في حدث عند الفتح Private Sub Report_Open(Cancel As Integer) Dim prtDefault As Printer Set Application.Printer = Application.Printers("Microsoft Office Document Image Writer") Set prtDefault = Application.Printer End Sub وفي التقرير وفي حدث عند الاغلاق Private Sub Report_Close() Call fResetDefaultPrinter End Sub مستعينين بالوظيفة Public Function fResetDefaultPrinter() Dim prtDefault As Printer Set Application.Printer = Application.Printers("<Default Printer Name>") Set prtDefault = Application.Printer End Function بسيطة ... والله أعلم

أخي علي ارجو ان تستفيد من هذا الرابط http://www.officena.net/ib/index.php?showtopic=41998&hl