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

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

بسم الله الرحمن الرحيم نتابع من حيث توقفنا بأداة قوية و رائعة مجانية وغير محدودة بفترة معينة وكمان ال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

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

بسم الله الرحمن الرحيم اولاً الشكر كل الشكر الى اساتذتى الكرام الذى بفضلهم وصل المشروع الى هذا الحد وبالاخص : استاذ : جعفر لك جزيل الشكر استاذ : ابو عبدالله لك جزيل الشكر استاذ : شيفان لك جزيل الشكر استاذ : ابو خليل لك جزيل الشكر شرح العمل ببساطة يقوم المستخدم باختيار الالوان التى يريدها من نموذج color وتطبق على جميع البرنامج فقط قم باستدعاء هذه الداله فى حدث عند التحميل Call Color_V(Me) وسوف تقوم هى بضبط الاعدادات قم بستدعاء الوحدات النمطية والجدول الخاص بالتخزين الاكواد و النموذج الى برنامجك دون تعديل ويتوفر بالاصدارين لـ2010 و لـ2003 ونتمنى من اساتذنا ان يقوموا بتعديله حتى يصبح برنامج كبرنامج مسقط التقارير او القلعة ولا اسألكم سوي الدعاء Color 2010.zip Color2003.zip

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

انا عاجز عن الشكر تحية تقدير واجلال لحضرتك

جزيت وعفيت وسلمت وحفظك الله - مشكور

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

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

اليك هذا If Len(Me.Combo11 & "") <> 0 Then If Me.Combo11 = "اجمالى الطلاب النشطين" Then DoCmd.OutputTo acOutputReport, "active_s", acFormatPDF, "D:\active_s.pdf" ElseIf Me.Combo11 = "طبقا للكلية" Then DoCmd.OutputTo acOutputReport, "active_s_f", acFormatPDF, "D:\active_s_f.pdf" ElseIf Me.Combo11 = "طبقا للفرقة الدراسة" Then ElseIf Me.Combo11 = "طبقا للنوع" Then End If Else MsgBox "اختر التقرير اولا" End If End Sub

استاذي القدير @شفان ريكاني انا لم انقل الملفات كامله لسطح المكتب نقلت البرانامج الخاص بالاكسس الذي يوجد به النماذج

جزاك الله كل خير

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

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

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

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

وفقكم الله

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

لا انا هم عم استخدم اوفيس 2010 هل فتحت ملف زيب رار و نقلت الملفات الى خارج زيب رار ام فتحت برامج بداخله ؟ وما هو مشكلة عندك هل مشكلتك هو مثل مشكلتي في مشاركتي الاولى ؟

السلام عليكم الموضوع كان فكرة أخونا عمرو ، وإحنا شجعناه في الموضوع ، ولازلنا جعفر

مثالك هذا من كنوز ابي هادي ، فكيف عثرت عليه ؟ Private Sub CmdRunQuery_Click() ' هذه الطريقة من صنع المبدع الكبير أبو هادي Dim QueryName As String On Error Resume Next QueryName = "Q_fahad" DoCmd.DeleteObject acQuery, QueryName With CurrentDb.CreateQueryDef(QueryName, "SELECT *, Sumمنduration FROM contss WHERE Sumمنduration " & [Forms]![Fahad]![ch3]) .Close End With DoCmd.OpenQuery QueryName End Sub مطلوبك يتحقق بتبديل السطر الاخير بهذا DoCmd.OpenReport "Q_fahad", acViewPreview وضع معيار 2.rar

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

الاخ هاني السلام عليكم تم عمل فورم ترحيل البيانات تحياتي book1.rar

السلام عليكم عمل متميز اخى واستاذي ابو على واسمح لى بالمشاركة لعرض فكرة اخرى ولاثراء الموضوع اخلى الكريم يمكن ذلك ايضاً من خلال باستخدام معادلة للتنسيق الشرطي =IF($B3>TODAY(),IF($B3-TODAY()<=10,1,"")) تواريخ.rar

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

للرفع