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

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

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

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

السلام عليكم و رحمة الله هذا كود منقول من أحد الكتب يجلب أسماء كل التقارير فى القاعدة ويشغلها من كمبوبوكس الكود فى حدث عند التحميل للنموذج Private Sub Form_Load() Dim newvallist As String newvallist = "" Dim obj As AccessObject For Each obj In CurrentProject.AllReports newvallist = newvallist + Chr(34) + obj.Name + Chr(34) + ";" Next obj Me.objCombo.RowSource = "value list" Me.objCombo.RowSource = newvallist Me.objCombo.Value = Me.objCombo.ItemData(0) End Sub ثم فى حدث بعد التحديث للكمبوبوكس لفتح التقارير حسب الاسم المختار Private Sub objCombo_AfterUpdate() DoCmd.OpenReport Me.objCombo, acViewPreview End Sub الملف المستخدم 2003 - 2007 كود أسماء كل تقارير القاعدة الحالية.rar و هذا تعديل للكود بحيث يجلب أسماء التقارير مع مسمياتها التوضيحية كود أسماء كل 8التقارير.rar

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

طيب وسجل الاضافة لاضافة سجل جديد محتاجه يكون موجود ؟

السلام عليكم تفضل اخى الكريم علة المطلوب تعديل واضافة على فورمة الادخال_2.rar

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

اليك هذا 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

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

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

هههههههههه كيفك أستاذ حماده ؟ أنا قبل تسجيل الدخول كنت على الانترنت و سمعت ضجيجاً وصراخاً داخل منتدى أوفيسينا فقلت أدخل المنتدى يمكن يكون هناك أعضاء يتعاركون أو شيئ من هذا القبيل فوجدتك تصرخ طالباً المساعدة هههههههه على العموم على حد علمي فأنت تحتاج للاستخدام دالة If وفي مثالك جرب التالي عند الضغط على زر الحفظ : On Error Resume Next DoCmd.SetWarnings False If MsgBox("هل تريد حغظ التغييرات", vbYesNo, "الجفظ") = vbNo Then Cancel = -1 Me.Undo DoCmd.SetWarnings True Else If Nz(Me.student_name, 0) = 0 Or Nz(Me.gender, 0) = 0 Or Nz(Me.faculty, 0) = 0 Or Nz(Me.class, 0) = 0 Or Nz(Me.entry_data, 0) = 0 Then MsgBox ("هناك حقول لم يتم كتابتها") If Nz(Me.entry_data, 0) = 0 Then Me.entry_data.SetFocus If Nz(Me.class, 0) = 0 Then Me.class.SetFocus If Nz(Me.faculty, 0) = 0 Then Me.faculty.SetFocus If Nz(Me.gender, 0) = 0 Then Me.gender.SetFocus If Nz(Me.student_name, 0) = 0 Then Me.student_name.SetFocus Else DoCmd.GoToRecord , , acNewRec End If End If

تمام اخى شيفان طريقة سهلة ورائعة

يا اهلا بك اخي حسين ممكن تعطي لي كل الاحتمالات لكي اعمل لك الكود المناسب تقبل تحياتي

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

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

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

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

حملته البرنامج ولايعمل هل المشكله الافس الذي عندي 2010

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

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

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

أخى الكريم بوركتم وجزيتم عنى خيرا

كون معي هناك اسألة تريد ان ينقل بيانات من جدول 2 الى جدول 1 يوميا تمام وما هو شروطك لهذه العملية