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

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

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

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

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

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

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

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

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

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

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

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

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

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

حسب فهمي لطلبك هذا اضف هذا الى كودك Me.myPath = Me.myPath & "\" & ID_N & " _ " & nowaseka & " _ " & Format(dawared, "yyyy - mm - dd") اي سيكون الكود كالتالي Private Sub btn_mkdir_Click() Dim fs As Object Dim a As Object Set fs = CreateObject("Scripting.FileSystemObject") If fs.FolderExists(Me.myPath & "\" & ID_N & " _ " & nowaseka & " _ " & Format(dawared, "yyyy - mm - dd")) = True Then MsgBox "المجلد موجود سابقاً" Else Set a = fs.Createfolder(Me.myPath & "\" & ID_N & " _ " & nowaseka & " _ " & Format(dawared, "yyyy - mm - dd")) Me.myPath = Me.myPath & "\" & ID_N & " _ " & nowaseka & " _ " & Format(dawared, "yyyy - mm - dd") MsgBox "تم عمل المجلد بنجاح" End If End Sub والله يعلم

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

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

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

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

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

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

او Private Sub namex_DblClick(Cancel As Integer) DoCmd.GoToRecord , Me.Parent.Name, acGoTo, Me.CurrentRecord End Sub هنا لم يعد ل bookmark فائده استاذ جعفر فهي ضمنيا مع recordset تقبلو تحياتي ممكن توضح اكثر

مبارك استاذ شيفان ماشاء الله عليك قفزات في مستوى المشاركات وبشكل سريع نتمنى لك التوفيق

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

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

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

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

ألف مبروك استادي القدير Shivan Rekany كم انت متواضع وو ألف ميروك على الترقية ,,,,,,,,,,,, كما قلت في مدخلتك لا يزال المرء عالماً ما دام في طلب العلم ، فإذا ظن أنه قد علم فقد بدأ جهله

بسم الله ما شاء الله وفقك الله لكل خير أستاذنا وزادك من فضله ومن نجاح لنجاح بإذن الله

وعليكم السلام تفضل ضع الكود التالي على حدث "النقر المزدوج" على اي حقل في النموذج الفرعي DoCmd.SearchForRecord acDataForm, "test1", acFirst, "[id]=" & Me.ID او Forms!test1!ID.SetFocus DoCmd.FindRecord Me.ID او Me.Parent.Recordset.FindFirst "[ID] = " & Me.ID Me.Parent.Bookmark = Me.Parent.Recordset.Bookmark او Forms!test1.Recordset.FindFirst "[ID] = " & Me.ID Forms!test1.Bookmark = Forms!test1.Recordset.Bookmark جعفر

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

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

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

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

السلام عليكم ورحمة الله ضع هذا الكود فى حدث الصفحة 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

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

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

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

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

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

تم

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