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

السلام عليكم وحياالله الشباب بالاضافة الى ما تفضل به أخي أوس رجاء تلاحظ تسلسل الارقام ، فهي 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 ، لانه لا يخبرنا عن الاخطاء التي تحدث في الكود ، واستعمالي لها يكون في نطاق ضيق الطريقة الصحيحة للتعامل مع هذه المشكله هي: جعفر

السلام عليكم انا اضيف لك سبب ، بالاضافة الى سبب أخوي أبو إبراهيم: برنامج مسقط التقارير يُعتبر برنامج قائم بحد ذاته ، و إحمل برامجك داخل قاعدة بياناتك والذي كذلك يُعتبر برنامج قائم بحد ذاته ، اي يمكن استعمالهم بدون عملية الدمج (طبعا برنامج مسقط التقارير يحتاج الي تعديل ليعمل بمفرده (والنسخة التالية ستكون كذلك ان شاء الله) ، ولكن البرنامج الآخر فيمكن ان يعمل بطريقة مستقله) ، انت لست بحاجة الى نقل الكائنات الى برنامجك ، فالبرنامج يستطيع ان يقوم بالعمل وهو برنامج مستقل ، بمجرد ان تناديه برمجيا ، ولكن انظر المشكلة التي صادفة omarahmed1424 لما اراد دمج البرنامج في برنامجه: ولاحظ جوابي عليه: جعفر

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

حياك الله الظاهر ان العلم بنفسه لا ينفع ، لذا كان لازم أحضّر الشيوخ بالبخور علشان يخبروني هذه المعلومة اللي ما كانت موجودة هذا الكود الجديد Forms!test1!ID.SetFocus [Forms]![test1]![مربع_تحرير_وسرد15] = Me.ID DoCmd.FindRecord [Forms]![test1]![مربع_تحرير_وسرد15] Me.Requery ولكني عملت تغيير في استعلام النموذج الفرعي ، وكذلك استعلام مربع التحرير والسرد. جعفر 620.testx.mdb.zip

جرب هذين الكودين الاول يقوم باخفاء الاعمدة والثاني حذفها اختر ما تريد 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

أخى الكريم الكود راح يكون هكذا ولاحظ التغيير فيه مع تغيير أماكن خلايا الشرط أصبحت ( 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

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

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

تم

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