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

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

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

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

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

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

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

السلام عليكم ابا جودي انا اعتذر منك ، فالكود الذي اعطيتك اياه ، خلق خطأ آخر: 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

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

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

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

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

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

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

تم الارسال

الشكر والحمد لله سبحانه وتعالى وحده فهو الذى تتم بنعمته الصالحات

استاذى الجليل @jjafferr الكود بتاعى انا شغال بيه اللى وضعته يقوم بعمل المجلدات دفعه واحدة مجلدا داخل مجلدا داخل مجلد

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

هههههههه جزاكم الله خيرا والدى الحبيب واستاذى الجليل ومعلمى القدير @jjafferr

تم عمل اللازم وسيتم حذف الايميل بعد دقائق ، حتى لا يستغله القراصنة جعفر

وعليكم السلام أختي اعملي استعلام ليكون مصدر التقرير ، سواء بجدول او اكثر ، وعلى اساسه سيكون الذي تطلبيه اسهل في العمل جعفر

تم رفع هذا الكود فى مشاركة منفصله حتى لا ننسى هذه المشاركة تم ارفاق كود الحل من الفاضل ا / عبدالله باقشير 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

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

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

ما شاء الله أخي خبور خير رائع وجميع أكواده بسيطة وفعالة أعاده الله لنا وسلمه من كل سوء ولإثراء الموضوع أقدم هذه المعادلة لنفس الغرض =INDEX($a$2:$a$1000,MATCH(0,COUNTIF($D$1:D1,$a$2:$a$1000),0)) حيث وجود البيانات في العمود a ويتم كتابة المعادلة في الخلية d2 مع الضغط على Ctrl+shift+enter لأنها معادلة صفيف array formula ثم تسحب لأسفل وفقنا الله جميعا للخير دمتم في رعاية الله وحفظه

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

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

أخى الكريم الكود راح يكون هكذا ولاحظ التغيير فيه مع تغيير أماكن خلايا الشرط أصبحت ( T9 و U9 ) وتغيير النطاق بشيت الاستعلام مرفق مثال توضيحي على الملف الخاص بكم Sub Work() Sheet2.Range("S13:V5000").ClearContents r = 13 For i = 11 To Sheet1.Range("E10000").End(xlUp).Row + 1 If Sheet2.Range("T9").Value = "" Then GoTo a If Sheet2.Range("T9").Value <= Sheet1.Cells(i, "E") Then a: If Sheet2.Range("U9").Value = "" Then GoTo a1 If Sheet2.Range("U9").Value >= Sheet1.Cells(i, "E") Then a1: Sheet2.Cells(r, 19) = Sheet1.Cells(i, 2) Sheet2.Cells(r, 20) = Sheet1.Cells(i, 3) Sheet2.Cells(r, 21) = Sheet1.Cells(i, 4) Sheet2.Cells(r, 22) = Sheet1.Cells(i, 5) r = r + 1 End If End If Next i End Sub جلب بيانات بين تاريخين_2.rar

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

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

تفضل التعديل المناسب بمجرد كتابة تاريخ الانفكاك تختفي الروضة ، لتحدد روضته الجديدة وتاريخ المباشرة ايضا يمكنك عمل تقرير بمسيرة الموظف السابقة وتنقلاته الملاكات2.rar

جزاك الله خيرا أخي زيزو العجوز الكود صحيح للغرض المطلوب ويمكنك وضع الكود السابق في حدث تنشيط الشيت Private Sub Worksheet_Activate() 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 كما هو مطلوب

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

ربنا يخليك ياكبير بس هو فى غلطة بس المفروض تكون (انت انسان محترم وتستاهل كل خير ) وليس كما كتبت

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

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

الغفو اخي جعفر لا شكرا على واجب جزاك الله خير استاذي

الف مبروك استاذي القدير وتستاهل والله واكثر

الف شکر لک استاذي محمد نجار اه منك اخي وضاح شو عملت انت هههه شكرا لك شكرا لك اخوي واستاذي الحلواني واليكم نفس الخير شكرا لك يا عبقري المنتدى ... ان شاء الله راح نستفيد منك اكثر بخبرتك شكرا لك لكونك معنا شكرا لك سيدي ابو عبدالله شو اقولك استاذي اباخليل شكرا لك وشكرا على ما تقدم لكل اعضاء ... حقكم عظيم علينا شكرا لك استاذي الفاضل ... ادعوا من الله ان نتحمل ذلك تحياتي لك يا ابو ف ب ا شكرا لك اخوي محمد والف الف شكر لك سيدي

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

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

لفته طيبة منك أخى الكريم - ولا أخى الصعيدى - جزاك الله خيرا أستاذنا @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

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

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

تم

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

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