نجوم المشاركات

اعرض الملف برنامج شيكات بسم الله والصلاة والسلام على رسول الله وعلى آله وصحبه ومن والاه ..أما بعد: السلام عليكم ورحمة الله وبركاته برنامج شيكات أقدم لإخوتي الكرام برنامج شيكات عسى أن ينال رضاكم وابتغي به مرضاة الله تعالى أولاً وأخيراً بنشر العلم الذي تفضل به علينا يتألف البرنامج من شاشة دخول ترحب بالمستخدم الكريم admin:اسم المستخدم 123: كلمة المرور يتألف من ثلاثة أوراق عمل الأولى: تتم بها عملية تسجيل الشيكات مع إمكانية التصفية التلقائية لعدة معايير بين تاريخين تحددهما الثانية:تتم بها كتابة أرقام الشيكات التي لدى المستخدم مع إمكانية الطباعة الثالثة:ورقة تقارير تتعلق بأعداد وقيم الشيكات المصروفة وغير المصروفة والملغاة توجد قائمة منسدلة مطاطية بزاويتها لتسمية المصارف التي يتعامل معها المستخدم الكريم أرجو الله تعالى أن يكون عملي هذا خالصاً لوجهه الكريم والسلام عليكم ورحمة الله وبركاته أخوكم المحب لكم محمد حسن المحمد أبو يوسف صاحب الملف محمد حسن المحمد تمت الاضافه 12 ديس, 2016 الاقسام قسم الإكسيل

السلام عليكم ورحمة الله وبركاته اخوانى الكرام بالمنتدى كل عام وانتم بخير وتقبل الله منا ومنكم صالح الاعمال لاحظت انه يوجد اسئلة حول كيفية انشاء شريط ادوات مخصص لاكسيس 2007 و 2010 حيث انه فى الاصدارات السابقة من اكسيس 2003 و 2000 كان يمكنك بواسطة الاكسيس نفسه ان تقوم بهذا الامر اما فى اكسيس 2007 وما فوق فيوجد عدة طرق لكنها لا تاتى بالغرض دائما الطريقة الاولى : هو الذهاب الى File فى حالة 2010 او زر الاوفيس فى حالة 2007 واختيار Options ثم 1- الذهاب الى Customize Ribbon ونختار New Tab ونلاحظ ظهور شريط او تبويب جديد باسم (New Tab (custom وتحته مجموعة Group جديد باسم (New Group (custom وهذا يكون بشكل افتراضى ولتغيير اسم التبويب نحدده ونضغط Rename ونكتب الاسم ولتسمية Group نحددها ونضغط Rename 2- اضافة الازرار نقوم بعد ذلك باضافة الازرار بواشسظة السحب والالقاء Drag Drop ويمكن ان نختار الازرار التى نريدها من القائمة فى الاعلى والتوضيح فى الصورة هذه الطريقة لاضافة اوامر موجودة بالاكسيس اصلا ك النسخ واللصق والمحاذاة باختصار الاوامر الموجودة بشريط الادوات 3- اذا اردنا ان قوم باضافة زر يقوم بعمل شىء مخصص مثلا يقوم بفتح فورم معين اولا نقوم بانشاء الماكرو الخاص بالعملية ونسميه مثلا OpenForm والآن نذهب الى Customize ونختار Macros ثم نضيف الماكرو الذى نريده واخيرا يمكن اظهار او عدم اظهار اى من التبويبات باغاء علامة check بجانبها وهكذا نكون قد انتهينا من الطريقة الاولى وعيوب هذه الطريقة انها تطبق على جميع قواعد البيانات الموجودة عندك وليس على واحدة فقط اذا نقلت قاعدة البيانات الى جهاز آخر لا تعمل الاشرطة لان هذا التخصيص يكون فى الاكسس نفسه ويمكن حل هذه المشكلة بتصدير التخصيص ثم نقله الى الجهاز المطلوب واستيراده

السلام عليكم اخي محمد فهم الكود اخذ مني وقت ، واعتقد بأني فهمته طيب ، اذا كنا في المسلسل رقم 6 ، وكان عندنا الملفين التاليين عند الادراج: Router_config.jpg Read_Router_config_Manual.doc . فكيف تريد حفظ هذين الملفين؟ جعفر

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

وعليكم السلام استخدم الامر Format ، هكذا Expr1: [barcod_item] & Format([total],"0.000") جعفر . .

تفضل . . جعفر 487.تنسيق شرطي.accdb.zip

اتفضل طريقتين سوى فورم 1 بطريقتي السابقة بجدول واحد فورم 2 بجدولين مع تقدير قائمة منسدلة جديدة.rar

تفضل في جدول الالحاق Table3 ، نجعل الحقل في الجدول لا يقبل التواريخ المتكررة . واستعلام التوحيد لجمع التواريخ ، وتم توحيد اسم الحقل كـ D . ثم نستخدم استعلام التوحيد كمصدر لاستعلام الالحاق: . ومن هذا الاستعلام نأخذ أكبر واصغر قيمة للتاريخ . والنتيجة . ونعمل مصدر بيانات النموذج ، هذا الاستعلام الاخير ، ولكننا يجب ان نشغل الاستعلام الالحاقي قبل عرض البيانات في النموذج . والنتيجة . جعفر 486.تواريخ.mdb.zip

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

طلعت محمد حسن جزاك الله خيرا تحياتى و منتظرين المزيد

نعم اخي بكل تأكيد اتمنى ان ينال اعجابك تحكم في شكلي ومشروط.rar

وعليكم السلام مايكروسوفت تشجع المبرمجين بإعطائهم قوالب Templets جاهزة للعديد من برامج الاكسس ، لذا ابحث في الرابط التالي للحصول على ما تريد: https://access-templates.com/ اما انا ، فبحثت في جوجل عن "ms access templates schools" ، ثم من النتائج ، اخترت: https://access-templates.com/tag/school.html https://access-templates.com/tag/student+database.html جعفر

السر في الجواب ، هو معرفة السؤال جعفر

تفضل ارجو ان يكون هذا طلبك ، في التقرير نعمل استعلام ، ونربط الحقول التي نريد قيمتها من بقية الجداول . وهذه النتيجة المطلوبة . وعليه ، نعمل تقرير يكون مصدره الاستعلام اعلاه: . جعفر 485.New Microsoft Office Access Application (2).mdb.zip

اي فكرة ؟؟ انت لم توضح شئ الى الان!! جعفر

اعطي مثال من مرفقك لوسمحت ، بالذي تريد الوصول اليه. جعفر

وعليكم السلام المشكلة كانت في اشياء قديمة انت كنت عاملها في البرنامج: . و . وتم حذفها ، وحُلّت المشكلة جعفر 453.Aziz.accdb.zip

بعد اذن استاذنا جعفر لمزيد من التوضيح لصاحب الموضوع أخى الكريم التقرير لا يمكن الكتابة فيه من الاساس ولكن يعرض نتائج فقط وبالتالى فكرتك ممكن تطبيقها فى نموذج بعدة طرق سواء قايمة منسدلة أو دالة Dlookup كما ذكرت انت بالتوفيق

وعليكم السلام لا يمكن البحث في التقرير/الريبورت . جعفر

السلام عليكم الطريقة الصحيحة في استخدام الدالة Dir https://www.techonthenet.com/access/functions/file/dir.php ولكن من تجربتي ، فهذه الدالة بطيئة نوعا ما في البحث عن ملف/مجلد في الشبكة الدالة Kill هي لحذف الملفات وليس المجلدات ، بينما الدالة RmDir هي لحذف المجلدات الفارغة ، اما اذا كانت هناك ملفات في المجلد ، فيجب حذف الملفات قبل حذف المجلد ، الرابط التالي فيه امثلة http://www.rondebruin.nl/win/s4/win004.htm ولكن ، الملفات والمجلدات التي يتم حذفها بالدوال اعلاه ، تُحذف نهائيا ، ولكن اذا اردت حذفها الى سلة المهملات ، فاستخدم الوحدة النمطية في الرابط التالي: http://vbadud.blogspot.com/2008/08/vba-send-file-to-recycle-bin.html جعفر

محمد حسن المحمد تحياتى و جزاك الله خيرا و يا ريت بلاش تغيب علينا

بارك الله فيك اخي ابو يوسف وجعلة الله في ميزان حسناتك

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

جرب هذا الكود ليعمل الكود بشكل جيد يجب ازالة الخلايا المدمجة من صفحة البيانات في الصف الاول Sub Translate_Data() Dim rg_to_copy As Range Dim lr As Integer Dim m As Integer m = 0 Application.ScreenUpdating = False On Error Resume Next Sheets("النتائج").Cells.ClearContents lr = Application.Max(Sheets("البيانات").Range("A:A")) For I = 1 To lr If Sheets("البيانات").Cells(I + 7, "O") = "اوفسينا" Then With Sheets("البيانات") .Select Set rg_to_copy = Union(.Range(Cells(I + 7, 1), Cells(I + 7, 4)), .Range(Cells(I + 7, 15), Cells(I + 7, 17)), _ .Range(Cells(I + 7, 26), Cells(I + 7, 28))) End With rg_to_copy.Copy Sheets("النتائج").Cells(m + 1, 1).PasteSpecial m = m + 1 End If Next Sheets("النتائج").Range("b:b").SortSpecial Application.ScreenUpdating = True Application.CutCopyMode = False End Sub

مشاركة مع الاستاذ ابو خليل وبعد اذنه اخي عمرو (ان اصبت في الاسم) انا حرجع من الاول وسارد على الاستفسار بدون ان احاول فهم البرنامج 1. هنا اذهب لخاصية مرئي للنموذج الفرعي = لا ومن خلال التصميم ثم حفظ 2. حدث بعد التحديث للقائمة Private Sub Combo51_AfterUpdate() Transaction_sub_Out.Visible = Not IsNull(Combo51) End Sub الان نقفل الطلب الاول ثم نذهب للطلب الثاني بالتوفيق

بارك الله فيك اخى

وعليكم السلام هذا الكود سيحذف البيانات من الجدول clients من قاعدة البيانات الاخرى: السر في الطريقة الاولى في الامر IN '1 mySQL = "Delete * From clients IN " & "'" & Me.txtPath & "'" CurrentDb.Execute (mySQL) او '2 Dim db As DAO.Database Set db = OpenDatabase(Me.txtPath) mySQL = "Delete * From clients" db.Execute (mySQL) 'DoCmd.SetWarnings False 'DoCmd.RunSQL (mySQL) 'DoCmd.SetWarnings True جعفر

اسمه مثال : يمكنك ارفاق جدولين فقط للتطبيق ، مع بعض البيانات اليسيرة

افتح راس وتذييل الصفحة ـ ادراج مربع نص في راس وتذييل الصفحة يعني اعلى الصفحة على الهامش ــ ادراج حقل من زر الامر الاجزاء السريعة ــ اختر من الحقول Page ــ اختر تنسيق الصفحة الذي تريده ــ ثم انقر على موافق في مربع الحوار حقل ــ الآن انقل مربع النص الى اي مكان في الصفحة الذي تريده وهذا مثال والسلام عليكم تجربة.rar

هناك موضوع آخر أود أن تشاركني فيه ولو بكلمة فوجود ردودك في الموضوع كما لاحظت يجعل الكثير من الأعضاء يقبلون على قراءة الموضوع والمشاركة فيه الموضوع هو :( هل يمكن تصميم جدول مدرسي بالإكسيل ؟) http://www.officena.net/ib/index.php?act=p...=14&t=28023 عاشق الإكسيل يسأل أ / أحمد يعقوب أن يبادر بالرد

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