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

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

للأسف لم اتشرف بالاطلاع على هذه المشاركة إلا الآن... فاتني الكثير!

السلام عليكم انا لم انزل المرفق ، ولكن لعمل مجلد داخل آخر ، يجب ان تعمل المجلد الخارجي ، فمجلد داخله ، فمجلد داخله ...... ، ولا تستطيع عمل المجلدات دفعة واحدة اعتذر اذا لم تكن ملاحظتي في سياق الطلب جعفر

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

ههههههههههههههههههههه احيانا الواحد بيمر باشياء بتطير العقل

حياك الله اخي محمد اعتقد المطلوب يختلف قليلا . . تكرما فتح موضوع جديد وبمثال مصغر به المطلوب ليتم التطبيق عليه تحياتي

السلام عليكم جميعا.. لا يخفى على شريف علمكم أهمية المكتبات المرجعة في تطوير وتحسين قواعد بيانات أكسس، ومن المستحيل جداً أن تجد قاعدة بيانات بدون مكتبة مرجعة ما؛ سواءً كانت افتراضية أو مضافة من قبل المطور. .. لكن ما أعتقد أن بعضنا يجهله هو ما هية تلك المكتبات وكيفية ربطها والاستفادة منها.. والمكتبات المرجعية هي عبارة عن وظائف عامة Public Functions قائمة بذاتها أو مدرجة ضمن أصناف Classes، تم برمجتها لتستخدم على نطاق واسع. يمكن الوصول إلى المكتبات المتوفرة في ويندوز عن طريق مربع الحوار الخاص بإضافة المكتبات، أو عن طريق الشفرة عبر الإعلان عن متغير من نوع References، وما يميز هذا الأخير هو أنه يمكنك من تحديد مسار المكتبة وفحصه برمجيا؛ وبالتالي تصيد الخطأ ومعالجة.. << من الخطأ الشائع اعتقاد البعض أن ملفات المكتبات المرجعية يجب أن تكون ضمن مجلد نظام ويندوز System32 Folder! وهذا غير صحيح.. لكن ويندوز يقوم بوضعها هناك أفتراضياً؛ لسهولة الوصول والمشاركة بين التطبيقات، ولتقليل تكرار الملفات وخفض مساحة التخزين >> >> أكسس مكتبة مرجعية.. > عند إضافة قاعدة بيانات أكسس كمكتبة مرجعية يقوم أكسس << بدمج >> قاعدة البيانات الرئيسية بقاعدة البيانات المرجع لتصبح قاعدة بيانات واحدة.. > يمكن إضافة قاعدة بيانات أكسس كمكتبة مرجعية بجميع إمتدادتها المعروفة (mda,mdb,mde;accda,accdb,accde). > يمكن أيضاً أن تحتوي قاعدة البيانات على نماذج، تقارير، وحدات نمطية.. > يمكن تشغيل النماذج والتقارير بعد تغليفها بوظائف عامة. ** تجربة المثال.. * قمت بإنشاء قاعدة بيانات خالية من كل شيء إلا من ميكرو الإقلاع Autoexec، ووظيفة معززة للإقلاع تحتوي هي أيضا على وظيفة تقوم بفتح نموذج يحتوي على قائمة سرد بها أسماء النماذج في قاعدة بيانات المرجع. * قاعدة بيانات المرجع هي NorthWind 2007 * أضفت في هذه القاعدة وحدة نمطية أنشأت بها بعض الوظائف ومنها وظيفة إقلاع النموذج الذي سبق الإشارة إليه.. إليكم المثال Adding DataBase As Reference.zip

السلام عليكم ابا جودي انا اعتذر منك ، فالكود الذي اعطيتك اياه ، خلق خطأ آخر: If Len(strFileNames & "") = 0 والحل في هذا الكود ان شاء الله (السطر الاول من الكود ادناه) ، وبقية الكود موجود عندك اصلا: strFileNames = "" strFileNames = apiBrowseFiles("Select a File, OR Multiple Files", sFolder, , strFilter) ' user didn't select any file, s/he proceed cancel If UBound(strFileNames) = 0 Then 'No Path, Exit Sub End If جعفر

اذا لم يتم العمل قم بالارسال الى akram2125@gmail.com

ما شاء الله تبارك الله اخوي سلمان هل هذه البرامج تم تصميمها على أكسس ؟

شكرا لك اخوي @حربي العنزي الله يجزيك كل خير

الف مبروك عليك اللقب وتستاهل كل خير يالطيب الله لايحرمنا من شخصك الكريم يارب

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

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

استاذ @سلمان الشهراني تحيبة طيبة ان شاء الله انا ممكن اساعد حضرتك ممكن تراسلنى على الخاص

الله يسعدك ان شالله يالغالي

اليك قاعدة بياناتك بعد اضافة الكود الاعلاه Database9.zip

عفوا أخي أوس انا لا احبذ On Error Resume Next ، لانه لا يخبرنا عن الاخطاء التي تحدث في الكود ، واستعمالي لها يكون في نطاق ضيق الطريقة الصحيحة للتعامل مع هذه المشكله هي: جعفر

شكرا لك اخوي @SAROOK الله يبارك فيك عزيزي

تم رفع هذا الكود فى مشاركة منفصله حتى لا ننسى هذه المشاركة مشاركة من الفاضل أ / عبدالله باقشير مرفق الملف و الشرح ___________.rar و لا تنسونا من صالح الدعاء تحياتى

همممم هذا علم وتخصص كذلك كلام سليم 100% ، شكرا على الملاحظة أخوي رمهان جعفر

تم رفع هذا الكود فى مشاركة منفصله حتى لا ننسى هذه المشاركة تم ارفاق كود الحل من الفاضل ا / عبدالله باقشير Private Sub Workbook_SheetSelectionChange(ByVal Sh As Object, ByVal Target As Range) Sh.Cells.Interior.ColorIndex = xlNone If Target.Cells.Count > 1 Then GoTo 1 For R = 2 To 6 With Cells(Target.Row, R).Interior .ColorIndex = 8 .Pattern = xlSolid End With Next 1 End Sub مرفق الملف و الشرح __________________.rar و مشاركه اخرى من أ / ابو اسامة العينبوسي مرفق الملف و الشرح HILITE.ra و مشاركه اخرى من أ / h63 مرفق الملف و الشرح New_Folder.rar و لا تنسونا من صالح الدعاء تحياتى

جرب هذين الكودين الاول يقوم باخفاء الاعمدة والثاني حذفها اختر ما تريد Sub hid_col() Dim my_rg As Range Set my_rg = Range("a2").CurrentRegion my_rg.Columns.Hidden = False x = my_rg.Rows.Count Set my_rg = Range("a2").CurrentRegion.Offset(1).Resize(x - 1).Resize(1) For i = 1 To my_rg.Count If Application.CountIf(my_rg.Range(Cells(1), Cells(i)), my_rg.Cells(i)) > 1 Then my_rg.Cells(i).EntireColumn.Hidden = True End If Next Set my_rg = Nothing End Sub '============================================================================= Sub del_col() Dim my_rg As Range Set my_rg = Range("a2").CurrentRegion my_rg.Columns.Hidden = False x = my_rg.Rows.Count Set my_rg = Range("a2").CurrentRegion.Offset(1).Resize(x - 1).Resize(1) For i = my_rg.Count To 1 Step -1 If Application.CountIf(my_rg.Range(Cells(1), Cells(i)), my_rg.Cells(i)) > 1 Then my_rg.Cells(i).EntireColumn.Delete End If Next Set my_rg = Nothing End Sub

::: تحية للاستاذ الحلواني ::: هذه الجداول هي جداول النظام يقوم اكسس بانشاءها تلقائيا . :::تفضل هذه قاعدة بياناتك مع اضهار جداولك الرئيسية, علما انه ليس بينهما علاقة كل مافي الامر ان الجدول "Subjectbl"هو مصدر سجلات الحقل [التحصيل الدراسي] في الجدول "بودرة" حقل محسوب.rar

تم رفع هذا الكود فى مشاركة منفصله حتى لا ننسى هذه المشاركة نموذج أدخال بيانات عميل و فاتوره مشاركة من الفاضل أ / هادى محمد المامون سالم مرفق الملف و الشرح Invoice.rar و لا تنسونا من صالح الدعاء تحياتى

كانت Northwind مثالا فقط، ضع أي قاعدة بيانات تريد وبقدر ما تشاء.. الجميل هنا أنه بإمكانك دمج أكثر من قاعدة بيانات واحدة لتعمل جميعها وبشكل مدمج في قاعدة بيانات واحدة... في الحقيقة لم أجرب ذلك.. لكن لا أعتقد أن لذلك أثر على قاعدة البيانات.. نظم (32،64) لها أثر على بيئة التشغيل فقط.

الف شكر وشكرا لك اخوي @kamel2711 @moham_q @Rebaz Bahram شكرا لك استاذي الحبيب رمهان الله ينور طريقك ...

عليكم السلام تم التعديل على النموذج الفرعي ومطلوبك تجده في استعلام1 يغنيك عن الاضافة الى الجداول وكما تعلم الاستعلام هو جدول ويزيد عليه ايضا Database122.rar

تفضل سوف ينتقل بمجرد كتابة تاريخ المباشرة الملاكات3.rar

علشان حدث التنشيط يشتغل ممكن تضغط على أي شيت تاني وبعدين تضغط على الشيت المطلوب وزيادة في التأكيد ممكن تحط الكود في حدث فتح المصنف Private Sub Workbook_Open() وإذا كان الملف أكثر من شيت يجب تحديد شيت العمل المطلوب With Worksheets("Sheet1") ووضع الكود هنا ثم إنهاء التعامل مع الشيت المطلوب End With

اخي سامي ارجو ان يفيدك هذا الموضوع https://www.officena.net/ib/topic/74957-مشكلة-بطء-عرض-التقرير/?do=findComment&comment=481182 تحياتي

ممكن تزودنا ببرنامج مجاني؟

مبروك استاذ شفان

يمكنك التواصل معي اخي @سلمان الشهراني علي الخاص او علي الايميال التالي Soft.sample2014@gmail.com

شكرا والف شكر لك سيد @abo3aesha_2014

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

اولا نختار ثم نكتب ثم نيمست نيكست حتى وصول الى هنا واختر ما تريد تقبل تحياتي

السلام عليكم ورحمة الله ضع هذا الكود فى حدث الصفحة Private Sub Worksheet_SelectionChange(ByVal Target As Range) Application.ScreenUpdating = False Dim dat As Byte dat = Month(Now) If dat = 1 Then Columns("DI:DE").Hidden = False Else Columns("DI:DE").Hidden = True End If If dat = 6 Then Columns("DK").Hidden = False Else Columns("DK").Hidden = True End If If dat = 7 Then Columns("DK").Hidden = False Else Columns("DK").Hidden = True End If Application.ScreenUpdating = True End Sub

الف مبروك وتستاهل اكثر

ألف مبروك اخي شفان من اعلى لاعلى

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

لفته طيبة منك أخى الكريم - ولا أخى الصعيدى - جزاك الله خيرا أستاذنا @Shivan Rekany ما أعتقد أن لقبا ما أيا كان يوافكم حقكم علينا نسأل الله لكم الخير الوفير والجزاء العميم على ما قدمتم وما زلتم تقدمون أحسن الله اليك

العفو اخي@Shivan Rekany ماشاء الله عيك ربنا يبارك فيك نتمنا لك اكثر من هيك تستاهل الترقيه

الف مبروك اخ شفان ... انطلاقة قوية متوازنة

السلام عليكم ورحمة الله انسخ هذا الكود والصقه فى الموديول Sub HidUnhde() Dim dat As Byte dat = Month(Now) If dat = 1 Then Columns("DI:DE").Hidden = False End If If dat = 6 Then Columns("DK").Hidden = False End If If dat = 7 Then Columns("DK").Hidden = False End If End Sub

شكرا لكم جميعا ان شاء الله ان نقدر نقدم مابامكاننا للجميع و ان شاء الله ان نقدر ننطي حق هذه اللقب شكرا لك @ابو زاهر @wael_rafat @sandanet @شامل2

الف مبارك ويستاهل كل خير

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

أخي رمهان إحنا نستخدم أكسس ، ونحاول نطوّعه لما نريد ، وخاصية حمل برامج في الاكسس عن طريق Blob لا يعرف عنها الكثير الجميع يتفق معاك ان الاكسس (احد برامج المايكروسوفت) ليس افضل برنامج ، ولكن هذا ليس مكان مناقشة هذا الموضوع هنا شرحت السبب: . والآن الى شرح "فبدل ان اعمل هذه الجداول المؤقته داخل قاعدة بياناتي ، ويكبر حجمها ": بعض الاوقات نضطر الى عمل جدول/جداول مؤقته داخل برنامجنا ، وعملها ، هو تخزين بيانات ، ثم حذفها ، بحيث ان الحاجة لهذه الجداول تنتهي بقفل البرنامج (غالبا) ، وبهذه الطريقة يكبر حجم البرنامج ، لأن اكسس لا يُعيد حجم البرنامج الى اصله عند حذف السجلات ، وانما نضطر الى عمل ضغط واصلاح لأعادة البرنامج الى حجمه الاصل. قبل حوالي اسبوعين ، واثناء التجارب على احد البرامج وكان حجم جزء الجداول BE حوالي 40MB ، عملت جدول مؤقت وبدأت اشتغل عليه بتجاربي ، وعندما انتهيت ، حجم البرنامج وصل الى حوالي 750MB ، فطبعا استعملت زر الضغط والاصلاح ، ورجع الى حجمه الطبيعي طيب لو اني كان عندي جدول مؤقت خارج برنامجي ، وعملت له رابط في برنامجي ، واشتغلت عليه ، ولما انتهي من عملي ، احذف الجدول المؤقت (طبعا مع قاعدة البيانات اللي الجدول فيها) ، مو يكون افضل لي ؟ او يعني الافضل ان اجعل الضغط والاصلاح تلقائي عند اغلاق البرنامج ؟ نعم استطيع ان اعمل هذا الجدول المؤقت الخارجي برمجيا ، ولا حاجة لإرفاقه ، ولكن في حالتي ، كنا شخصين نشتغل على هذا البرنامج ، وابن عمي كانت مسؤليته عمل الجداول المؤقته ، فلما خلص عمله ، ارفقت شغله بالكامل جعفر

السلام عليكم ورحمة الله وبركاته هذه اول مشاركة لي في هذا المنتدي شيت اكسيل للحضور والانصراف حضور وانصراف.rar