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

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

بسم الله الرحمن الرحيم نتابع من حيث توقفنا بأداة قوية و رائعة مجانية وغير محدودة بفترة معينة وكمان الSource Code متاح يعنى مفتوحة المصدر الأداة اسمها v-tools نشوف صورة الأداة بعد فك الضغط وتثبيتها ستظهر فى Add-ins أو الاضافات 1-الاعدادات مثل اللغة ومعلومات عن الاداة الخ... 2-معلومات فنية عن قاعدة البيانات مثلا تاريخ الانشاء واخر تعديل وهكذا 3-من المعروف ان الاكسس به الكثير من الصور والايقونات هذا الاختيار يمكنك من تطبيق هذه الصور على عناصر التحكم تابعوا الصورة 4- فى هذا الاختيار قوالب جاهزة لخصائص النماذج مثلا انا بعمل كل النماذج فى قاعدة معينة ممنوع الاضافات والحذف والتعديل سكرول بار عمودى وافقى مثلا وهكذا بهذا الاختيار ممكن تحفظ هذه الاعدادات فى قالب من تسميتك وتستدعيه لتطبيقه على اى نموذج جديد بدون الحاجة الى عمل الاعدادات مجددا كل مرة عند تصميم نماذج جديدة تابعو الصورة 5- ولا اعرف ده بتاع ايه ولا فاهم منه حاجة 6- من اقوى خصائص هذه الاداة هى مكتبة الكائنات مثلا انا فى كل قاعدة بيانات بصممها بحتاج اطبق عليها نظام صلاحيات المستخدمين اللى بيتكون من عدد من النماذج و الاستعلامات والوحدات النمطية الى اخره بدلا من استيرادها من قاعدة اخرى بعملية بسيطة جدا ممكن تحفظ الكائنات المفضلة فى مكتبتك الخاصة وتعملها ادراج فى اى قاعدة بيانات جديدة بدون الحاجة الى استيرادها او كتابة اكوادها مرة أخرى وفيها ايضا خاصية حفظ الاكواد تدرج كود مفضل وتستدعيه فى اى قاعدة جديدة تابع الصورة 7-خاصية البحث العميق فى النماذج والاستعلامات وهكذا ولكنها ليست بقوة الاداة الاولى فى الموضوع Find And Replace 8-بعد تصميمك لنموذج معين بألوان محددة يمكن ان تتغير الالوان بتغيير بعض اعدادات الثيمات فى هذا الخيار يثبت الالوان والتصميم ليظل ثابتا حتى لو تم تغيير الثيمات والألوان 9-من اقوى خصائص الاداة وهذه الخاصية العمل على SQL فى الخاصية دى بتتعامل مع جمل SQL فى الاستعلامات من حيث البحث والاستبدال وتغيير جملة معينة وتطبيقها على كافة الاستعلامات مرة واحدة بدون الحاجة الى فتح كل استعلام على حدى وايضا خاصية البحث داخل جمل الاستعلامات وعرض عدد النتائج الموجودة فى القاعدة والتعامل معها ايضا دفعة واحدة تابع الصورة و بكده نكون خلصنا شرح سريع للاداة باقى فقط تجربتها وممكن بعض الخبراء عندنا يعدلوا على الاداة لانها كما ذكرنا اداة مفتوحة المصدر واعتذر عن اى خطأ فى الشرح لاحظوا انى مجرد هاوى بالنسبة للأداة تعمل على كافة الاصدارات وده الرابط الرسمى للاداة و اصداراتها المختلفة ttp://www.skrol29.com/us/vtools.php دمتم فى أمان الله

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

أبشر بما يسرك أبا خليل هذه وظيفة مخصصة لجلب التسمية التوضيحية للتقارير Public Function GetReportCaption(RptName As String) As String Static RptCaptions As Collection If RptCaptions Is Nothing Then Set RptCaptions = New Collection On Error Resume Next GetReportCaption = RptCaptions(RptName) If Err.Number = 0 Then Exit Function On Error GoTo 0 DoCmd.OpenReport RptName, acViewDesign, , , acHidden RptCaptions.Add Reports(RptName).Caption, RptName DoCmd.Close acReport, RptName GetReportCaption = RptCaptions(RptName) End Function وهذا استدعاؤها من نفس كود الكمبوبوكس Private Sub Form_Load() Dim newvallist As String, myrpt As String newvallist = "" Dim obj As AccessObject For Each obj In CurrentProject.AllReports myrpt = GetReportCaption(obj.Name) newvallist = newvallist + Chr(34) + myrpt + Chr(34) + ";" Next obj Me.objCombo.RowSource = "value list" Me.objCombo.RowSource = newvallist Me.objCombo.Value = Me.objCombo.ItemData(1) End Sub طبعا أنا مؤقتا وضعت التسمية التوضيحية مكان اسم التقرير المطلوب الآن هو وضع اسم التقرير فى العمود الأول للكمبوبوكس ووضع التسمية فى العمود الثانى له يعنى خطوة واحدة إضافية و نعلن الانتصار بعون الله المرفق كود أسماء كل 7التقارير.rar

انا كاتبها في مثالي : عبدالفتاح ولكني لم استطع الوصول اليه تفضل تم التعديل كود أسماء كل التقارير4.rar

السلام عليكم ورحمة الله بداية أشكر صاحب الموضوع على سلاسة الطرح واسلوبه المميز - وكذلك تلك الأدوات المفيدة ولا شك من كون هذه الأدوات تسهل كثير من الأعمال وتختصر كثير من الأوقات - ولكنى أرى (كرأى شخصى فحسب ) أن مجرد المحاولة لصنع ما تريد بنفسك لابد وأن يكسبك المزيد من الخبرة . ثانيا أشكر لأستاذنا @Shivan Rekany حسن ظنه بى - فانى مجرد طويلب علم بمدرستكم ثالثا - كمساهمة صغيرة على قدر علمى : هنا بهذا الموضوع أداة مساعدة مفيدة لحصر ولم شمل أكود vba وتيسير استدعائها طبعا الموضوع لأستاذنا @Shivan Rekany (كده خالصين ) وهنا بهذا المرفق أداة صغيرة من كنوز المنتدى وظيفتها ضبط خاصية الشفت للبرنامج أرجو أن تفيد بشىء هذا هو المرفق Shift.zip

السلام عليكم اخى الكريم يمكنك ان تستخدم الكود التالى كأحد الحلول Sub Test() Dim ws As Worksheet, Lastrow As Long Set ws = ورقة2 Lastrow = ورقة2.Cells(Rows.Count, 3).End(xlUp).Row ws.Range("C4:C" & Lastrow).AdvancedFilter Action:=xlFilterCopy, CopyToRange:=ورقة11.Range("B4"), Unique:=True End Sub

شكرا لك استلذي شفان نسخت الملفات للدي ضبط شكرا لك ولاخوان جميعا بالمنتدي

السلام عليكم استاذنا وحبيبنا عبد الفتاح شكرا لك ان تضع الكل في اهتمامك للاثراء : هذه طريقة اخرى باستخدام جدول النظام وعندي تساؤل ولكني سأطرحه لاحقا كود أسماء كل التقارير2.rar

تمام مستر أوس . وعلى سبيل المثال البحث عن كلمة داخل أكواد النماذج والتقارير والدوال يمكن عمله بكود Vba Public Sub findWord(ByVal SearchWord As String) Dim objComponent As Object Dim strMessage As String Dim strModuleList As String strModuleList = vbNullString For Each objComponent In Application.VBE.ActiveVBProject.VBComponents If objComponent.CodeModule.Find(SearchWord, 1, 1, -1, -1) = True Then strModuleList = strModuleList & "; " & objComponent.Name End If Next objComponent strMessage = "Text '" & SearchWord & "' found in " If Len(strModuleList) > 0 Then ' strMessage = strMessage & "modules: " & Mid(strModuleList, 3) strMessage = strMessage & "modules: " & strModuleList Else strMessage = strMessage & "no modules" End If End Sub

ياسلام استاذ رمهان ، شكرا لك وتعقيباتك الذهبية في ردي كنت ابسط الحل للسائل فبدلا من فتح الاستعلام يفتح التقرير وما دامنا في التحسين يمكننا من خلال ما تفضلت به توظيف المعيار داخل التقرير ويعتبر الاستعلام contss زائد معيار3.rar

بسم الله ما شاء الله يا استاذ رمهان كود اكثر من رائع

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

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

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

سلمت اناملك استاذ عبدالفتاح لايوجد ""لا يمكن"" في بيئة البرمجة ولكني لا حظت ان الوحدة النمطية ستفتح جميع التقارير في قاعدة البيانات ثم تغلقها عند فتح النموذج

راااااااااااااااااااااااااااااائعة جدا جدا هذه النتيجة وتحقق بها المطلوب

طبعا هى وظيفة يمكن استدعاؤها فى الاستعلام

هل يمكن استدعاء GetReportCaption فى استعلام ؟؟؟؟؟؟؟؟؟

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

ما دام سيتغير الاتجاه وتقرر الاستعانة بوسائط فأنا أرجح رأي آخر فاذا اردنا توظيف مربع التحرير فعلينا ان نكتب التقارير بحروف عربية .. واعتمد احدى الطريقتين الأوليين ,, واريح راسي

المشكلة اننا لن نتمكن من الوصول الى خصائص التقرير الا بعد فتحه

عملك يؤدي الغرض بامتياز ولكن الفكرة التي نريد الوصول اليها تختلف نحن لا نريد ان نستعين باستعلامات ولا جداول نريد توظيف مربع التحرير فقط

ما شاء الله يا ابا جودي

استاذ @ابو خليل لو تكرمت ممكن مرفق حضرتك بالفكرة

الى الاكسل ، لا ، ليس بطريقة مباشرة ولكن عادة إعداد التقرير (وفي حالتنا هنا لتصديره الى اكسل) يكون مرة واحدة فقط ، لذا يمكنك العمل على هذا التصدير بالتحكم في الاكسل ، بتجزئته ، هكذا: 1. سنتعامل مع الاكسل عن طريق النموذج وليس التقرير ، 2. ارسال البيانات ، والتي عادة تكون من الاستعلام ، الى الاكسل ، بحيث تبدأ من السطر A4 ، وهنا تستطيع استعمال الوحدة النمطية من برنامجي: والتي استعملتها هنا: 3. ارسال قيمة مربع نص (كالذي في رأس التقرير) ، الى الحقل B2 من الاكسل ، 4. ارسال قيمة اخرى الى الحقل B3 من الاكسل ، 5. ارسال قيم اخرى في نهاية الصفحة الاكسل ، ... وهكذا ، بإستخدام الكود مثل الموجود هنا (جزء ارسال البيانات الى الاكسل): جعفر

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

جزاك الله خير تقبل تحياتى

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

بارك الله بك أخي ابا جودي هل من طريقة أخرى دون زيادة نموذج وأيضاً موضوع الحذف ؟؟

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

السلام عليكم أخي أوس رجاء النظر في الرابط التالي جعفر

وهنا بهذا الموضوع أداة لصنع شريط القوائم للأكسس وبه رابط لهدية أبى غفران (أستاذنا @صالح حمادي) حفظه الله وهى أداة مصنوعة بالأكسس أيضا

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

شكرا أخوي شفان يحتاج المرة الجاية اكتب ، للدعم الفني رجاء مراجعة الاستاذ شفان جعفر

ممكن بعد اذن استاذى الحبيب ومعلمنا الفاضل @Shivan Rekany حضرتك طبعا كفيت ووفيت جزاكم الله خيرا ممكن اضيف هذا المرفق بطريقة اخرى لتعم الفائدة باكثر من فكرة open report from compobox.rar

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

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

أ/ خالد شكرا جزيلا

الشكر لله وحده اخى الحبيب @ابو عبدلله طيب جرب المرفق ده طبعا هتحتاج تعمل بعض التعديلات لو عجبتك الحيلة دى وممكن تلاقى حل عند اساتذتنا الكرام انا مش عارف بصراحه هل هناك طريقة برمجيه لعمل طلب حضرتك واللا لا انا كل اللى عملته بفضل الله تعالى احتالت بهذه الحيلة للوصول للهدف المنشود وتم من وجهة نظرى اخى الكريم انا مجرد طالب علم هاو ليس اكثر قد تجد فى جعبة اساتذتنا الكرام ما يثلج صدرك وفى انتظار رد حضرتك لو عجبتك الفكرة لو احتاجت تعدل اى شئ تانى طبعا انا تغاضيت عن الاضافة الان فقط حتى تقوم بتجربة المرفق على هذا الوضع فالاصل عندنا كما فهمت من حضرتك هو عدم التعديل الا على السجل الاخير فقط فى النموذج stu.rar

السلام عليكم ورحمة الله تعالى وبركاته ماشاء الله عليك وتسلم ايدك استاذ @king5star عمل رائه ومجهود تشكر عليه وكل الشكر والتقدير لحضرتك على اهدائك الطيب وكما اشاد اساتذتا الكرام بارك الله فيهم وفيك عمل خارج عن المألوف وكنت اتمنى يكون فى 1000 لايك ولكن للاسف الموجود لايك واحده

انقل كل الملفات الى مكان واحد مثلا قرص D و جرب

حسب فهمی لسؤالك في تاريخ الى قبل تحديث اكتب If me.date1 > me.date2 then Msgbox "لا یجوز " Cancel = -1 End if غير me.date1 بأسم مربع نصي تاريخ من و me.date2 بأسم مريع نصي تاريخ الى

اولا انا طالب من طلاب العلم فى هذا الصرح الشامخ ثانيا جزاكم الله خيرا على شعوركم الطيب واسمحوا لى ان اول مشاركة لى تكون المرفق الاتى - اخفاء اطار الاكسس -تغيير ايقونة الاكسس وتصغير القاعدة على شريط المهام بايد عربية وبدون اى مشاكل ان شاء الله اولا اخص بالشكر كل من 1- الاستاذ @أبا عمر اخفاء اطار الاكسس والذى يعمل مع اكسس 2000-2002-2003-2007-2010-2013-2016 وقمت بتجربته دون اى مشاكل مطلقا 2- الاستاذ Naser Masarwa صاحب فكرة تصغير قاعدة البيانات الغاء اطار اكسس + تغيير ايقونة الاكسس.rar

استأذن من استاذي الحبيب @Elsayed Bn Gemy اتفضل اليك هذا Option Compare Database Private Declare Function LoadKeyboardLayout Lib _ "user32" Alias "LoadKeyboardLayoutA" (ByVal pwszKLID As String, ByVal flags As Long) As Long Private Sub ÃãÑ0_Click() Call LoadKeyboardLayout("00000401", 1) ' ARABIC End Sub Private Sub ÃãÑ1_Click() Call LoadKeyboardLayout("00000409", 1) ' ENGLISH End Sub واليك ملفك بعد تعديل تغير اللغة.rar

كل ثانية تمر في هذه الساعة ان شاء الله هي ثواب لك يااااااارب اشكرك من كل قلبي ..جزاك الله خيرا عنا في كل ثانية

السلام عليكم الاخ الكريم / ناصر المصري جزاك الله خيرا وحمد لله علي السلامة .. ونرجو ان يكون غيابك خير من الله وان تكون في احسن حال شاهد اخي الكريم المرفق التالي .. واخبرني بالنتائج .. فكرة بسيطة لتنفيذ طلبك الخاص بالطباعة تقبل خالص تحياتي طباعة صفحات محددة لاكثر من ورقة-new.rar

اولا: شروط المنتدى لا تسمح بهذا ، ثانيا: البرنامج الذي استفيد منه ، اشتريه ، وخصوصا اذا استعماله خلال الفترة التجريبية اثبت جدارته جعفر

للرفع

تابع الدرس التاسع كائن المدى / النطاق Range نستعرض كائن من نوع النطاق أو ما يسمى بالمدى أو المجال وهو الأكثر شيوعاً أي أن أغلب الأكواد تشير بكثرة لهذا النوع من الكائنات Sub MZM14 () Range("d2:i10").Select End Sub يقوم الكود بتحديد المجال المشار إليه بين القوسين Sub MZM15 () Range("d2:i10").Columns(2).Select End Sub يقوم الكود بتحديد العمود الثاني بالمجال المشار إليه بين قوسين Sub MZM16 () Range("b10:f15").Columns(2).Value = 0 End Sub يقوم الكود بكتابة قيمة صفر في العمود الثاني من المجال المحدد بين القوسين Sub MZM17 () Range("c5:c10").Rows(1).Value = 100 End Sub يقوم الكود بكتابة قيمة 100 في الصف الأول من المجال المحدد بين القوسين وهو هنا الخلية C5 Sub MZM18 () Range("d2:i10").Cells(2, 3).Select End Sub يقوم الكود بتحديد الخلية الواقعة في الصف الثاني من العمود الثالث داخل المجال المحدد بين القوسين وهي الخلية F3 Sub MZM19 () Range("f10:i15").Cells(3, 2).Value = 200 End Sub يقوم الكود بكتابة قيمة 200 بالخلية الواقعة في الصف الثالث من العمود الثاني داخل المجال المحدد بين القوسين وهي هنا الخلية G12 Sub MZM20 () Worksheets(3).Range("f1:h5").Value = 100 End Sub يقوم الكود بكتابة قيمة 100 في المجال المحدد من الورقة الثالثة من أوراق المصنف Sub MZM21 () Range("d2:i10").Clear End Sub يقوم الكود بمسح محتويات المجال المشار إليه بين قوسين Sub MZM22 () Worksheets(3).Range("a1:c10").Font.Bold = True End Sub عند المجال المحدد من الورقة الثالثة في أوراق المصنف قم باختيار خاصية Bold سماكه الخط Sub MZM23 () Worksheets(3).Range("a1:c10").Font.Italic = True End Sub عند المجال المحدد من الورقة الثالثة في أوراق المصنف قم باختيار خاصية Italic إمالة الخط Sub MZM24 () Worksheets(3).Range("a1:c10").Font.Underline = True End Sub عند المجال المحدد من الورقة الثالثة في أوراق المصنف قم باختيار خاصية Underline وضع خط تحت البيانات Sub MZM25 () Worksheets(3).Range("a1:c10").Font.Name = " Arabic Typesetting" End Sub عند المجال المحدد من الورقة الثالثة في أوراق المصنف قم باختيار نوع الخط Arabic Typesetting Sub MZM26 () Worksheets(3).Range("a1:c10").Font.Size = 18 End Sub عند المجال المحدد من الورقة الثالثة في أوراق المصنف قم باختيار حجم الخط 18 Sub MZM27 () Worksheets(3).Range("a1:c10").Columns(1).Font.Size = 18 End Sub عند المجال المحدد من الورقة الثالثة في أوراق المصنف بالعمود الأول فقط قم باختيار حجم الخط 18 Sub MZM28 () Worksheets(3).Range("a1:c10").Rows.Font.Bold = True End Sub عند المجال المحدد من الورقة الثالثة في أوراق المصنف لجميع صفوف المجال قم باختيار خاصية Bold Sub MZM29 () Worksheets(3).Range("a1:c10").Rows(3).Font.Bold = True End Sub عند المجال المحدد من الورقة الثالثة في أوراق المصنف بالصف الثالث فقط قم باختيار خاصية Bold Sub MZM30 () Range("f20:i25").Cells.Font.Italic = True End Sub عند المجال المحدد من الورقة الثالثة في أوراق المصنف بجميع الخلايا قم باختيار خاصية Italic Sub MZM31 () ActiveCell.Formula = "=C1+D2" End Sub عند الخلية الحالية النشطة اكتب المعادلة المذكورة Sub MZM32 () Range("h10").FormulaR1C1 = "=r[-1]c[-1]+r[1]c[1]" End Sub لإدراج المعادلة بمقدار إزاحة اقل من صف وعمود لليمين + إزاحة اكبر من صف وعمود لليسار للخلية المختارة وبالتالي سيكون الناتج معادلة G9+I11 Sub MZM33 () Range("h10").FormulaR1C1 = "=rc[1]+rc[2]" End Sub لإدراج المعادلة بمقدار إزاحة أكبر من صف وعمود لليسار + إزاحة اكبر من صفين عمودين لليسار للخلية المختارة وبالتالي سيكون الناتج معادلة I10+J10 Sub MZM34 () Worksheets(3).Range("H10").Offset(1, 2).Value = 100 End Sub لإدراج القيمة 100 بمقدار إزاحة زائد عمودين لليسار وصف من الخلية المختارة وهي ستكون الخلية J11