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

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

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

ما شاء الله كود ولا أروع أستاذ @Shivan Rekany بالتوفيق للجميع مع العلم أن نصائح كيفية تصميم قاعدة بيانات مثالية ربما توفر على من يلتزم بها الكثير من الوقت والجهد والتفكير في حل المشكلات وربما يراها من لا يعرف قدرها غير مفيدة ولا ضير في ذلك فقديما قالوا ( الإنسان عدو ما ي*** ) كل عام وانتم جميعا بخير وسعادة ورضا عيدكم سعيد

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

بسم الله نبدأ عامنا الحالي بهذه الموسوعة 1200_Visual_Basic_macro_examples.rar عسى أن ينال إعجابكم

لاكمال ما عملت في القاعدة اولا عملت اضافة حقل لمصدر كومبوبوكس وعدلت في خصائص كومبوبوكس

تفضل أخي الكريم هذا مثال بسيط لحقل به سورة غافر وحقل به 45 آية من سورة يس والبحث في نص السورتين لاحظ تعديل سطر الفلتر إلى Me.Filter = "cleantxt([ayatext1]) Like ""*" & FindAsType & "*""" & _ "or cleantxt([ayatext2]) Like ""*" & FindAsType & "*""" نفعنا الله وإياكم بما علمنا وعلمنا ما ينفعنا البحث في حقلين بدون تشكيل.rar

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

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

السلام عليكم ورحمة الله هذه المرة لم أفهم المطلوب جيدا فالرجاء الشرح أكثر مع مثال للنتيجة المرجوة من هذه التعديلات... والملف الذي أرفقته ليس هو الملف الذي تعديله آخر مرة (لا توجد فيه تعديلات جلب النتائج حسب الفصل الدراسي وحسب رقم اللجنة)... بن علية

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

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

DoCmd.OutputTo acOutputReport, "rptRateCard", acFormatPDF, ("RateCard" & Format(Now(), "mmmyyyy") & ".pdf"), True

تم التعديل على طريقتي السابقة الفرق بيني وبينك انني استخدم الجدول لصنع القوائم ، وهي افضل من كتابة القيم جرب وأي ملاحظة اكتبها فرز2.rar

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

السلام عليكم ورحمة الله اكتب هذه المعادلة فى الخلية D4 =IF(C4="";"";$D$1-SUM($C$4:C4)) ثم اسحب نزولا

هذا كان فى بدايات الانتقال من الإكسيل إلى الأكسيس والحمد لله مازلنا نتعلم كل يوم فى منتدانا الغالى شكرا لك أخى شيفان

اتفضل اضفت حقل رقم في مربع تحرير وسرد وغيرت هذا السطر من البحث rs.FindFirst "[رقم الملف] = " & Me![مربع_تحرير_وسرد96].Column(1) في حدث بعد تحديث و عند الحالي ايضا اليك ملف بعد تعديل test5.rar

شكرا لكما . لقد قدمتما الحل ووفيتما اكثر. بارك الله فيكما وجعل اعمالكما في ميزان حسناتكما

المشاركة لاستاذنا و خبيرنا @عبد الفتاح كيرة يرجع ل 21 مايو في سنة 2011 اي يعني كان قبل 6 سنوات

في الاول غيرت نموذجك من نوع سبلايت الى نموذج مستمر وفي حدث الحالي كتبت هذا الكود Private Sub Form_Current() On Error Resume Next Me.Text11 = Me.اسم_ولى_الامر Me.Text72 = Me.رقم_الملف End Sub واضفت مربعين نصيين في اعلى النموذج مع زر واحد وفي خلف الزر كتبت هذا Private Sub Command74_Click() On Error Resume Next ' للعبور على الاخطاء Me.Command74.Enabled = False ' انبل زر الحدث لكي لا يتم الضغط على الزر مرتين Dim AddCul As String ' متغير لاضافة حقل Dim WeliAmmir As String ' متغير للتحديث حقل ولي امر Dim MyDcount As Integer ' متغير لتعداد السجلات Dim MiRic As Integer ' متغير لكي يكون معنا في كل سجل Dim WeliAmir As Integer ' متغير لتعداد اسم ولي الامر المكرر Dim delCol As String ' متغير لحذف الحقل المضاف في الاول Me.RecordSource = "" ' مصدر النموذج يساوي لا شيء لكي نقدر نضيف سجل الى جدول (جدول أ ) باس ( اسم ولى امر) AddCul = "ALTER TABLE [جدول أ] ADD [اسم ولى الامر] text(100)" ' اضافة حقل من نوع تيكست الى جدول أ و مسموح ل 100 حروف DoCmd.SetWarnings False ' ايقاف التحذيرات DoCmd.RunSQL (AddCul) ' تشغيل اضافة حقل MyDcount = DCount("[رقم الملف]", "[جدول أ]") ' تعداد رقم الملف في جدول أ weliammeir = "UPDATE [جدول أ] INNER JOIN [الاسماء المكررة 1] ON [جدول أ].[رقم الملف] = [الاسماء المكررة 1].[رقم الملف] SET [جدول أ].[اسم ولى الامر] = [الاسماء المكررة 1]![اسم ولى الامر] WHERE ((([جدول أ].[رقم الملف])=[الاسماء المكررة 1]![رقم الملف]));" ' تحديث حقل المضاف في جدول أ باسماء الي في حقل استعلام مكررة 1 بشرط ان يكون رقم الملف بيكون متساوى Me.Refresh ' تحديث النموذج DoCmd.RunSQL (weliammeir) ' تشغيل التحديث الحقل Me.RecordSource = "جدول أ" ' مصدر النموذج يساوي جدول أ Me.Refresh ' تحديث النموذج Me.اسم_ولى_الامر.SetFocus ' اكتيف اي تحديد اسم ولي امر DoCmd.GoToRecord , , acFirst ' الى سجل الاول For MiRic = 1 To MyDcount ' من سجل الاول الى اخر سجل If Len(DLookup("[كود ولى الامر]", "[جدول أ]", "[اسم ولى الامر]='" & Me.Text11 & "'") & "") = 0 Then ' اذا كود ولي امر الحالي ما بها اي بيانات اي عدد المسافة المستخدمة بيكون صفر Me.كود_ولى_الامر = Nz(DMax("[كود ولى الامر]", "[جدول أ]"), 0) + 1 ' كود ولي الامر الحالي بيكون يساوي اكبر رقم من كود ولي الامر في جدول أ زائد واحد واذا ما بها اي رقم كود ولي الامر يساوي صفر زائد واحد Else ' اذا ما طبق شرط الاعلاه Me.كود_ولى_الامر = DLookup("[كود ولى الامر]", "[جدول أ]", "[اسم ولى الامر]='" & Me.Text11 & "'") ' كود ولي الامر يساوي بحث عن كود ولي الامر في جدول أ بشرط ان يكون اسم ولي الامر بيكون يساوي مع الاسم في مربع نصي باسم تيكست 11 في اعلا النموذج End If ' انهاء الشرط WeliAmir = DCount("[اسم ولى الامر]", "[جدول أ]", "[اسم ولى الامر]='" & Me.Text11 & "'") ' تعداد اسم ولي الامر في جدول أ بشرط ان يكون اسم الولي امر يساوي اسم اللي في مربع نصي باسم تيكست 11 اللي في اعلى النموذج If WeliAmir > 1 Then ' اذا كان العداد الاعلى بيكون اكبر من 1 Me.له_اخوات = True ' له اخوات يساوي ترو اي صح اي عنده اخوات Else ' واذا ما طبع الشرط الاعلاه Me.له_اخوات = False ' له اخوات يساوي فالس اي الغاء الصح امامه اي ليس له اخوات End If ' انهاء الشرط Me.عدد_الاخوات = WeliAmir ' عدد الاخوات في النموذج يساوي العداد الاعلى DoCmd.GoToRecord , , acNext ' الى سجل التالي Next MiRic ' كن معنا مع السجل التالي وسيكون مع كل سجل يعمل هذا من فور ماي ريك الى اخر سجل Me.RecordSource = "" ' من جديد مصدر النموذج خلي بيكون لا شيء لكي نقدر ان نعمل الخطوة التالية Me.Requery ' تحديث delCol = "ALTER TABLE [جدول أ] DROP COLUMN [اسم ولى الامر]" ' حذف حقل اسم ولى الامر في جدول أ DoCmd.RunSQL (delCol) ' تشغيل الحذف Me.RecordSource = "الاسماء المكررة 1" ' مصدر النموذج بيكون استعلام اللي باسم الاسماء المكررة 1 DoCmd.SetWarnings True ' تشغيل التحذيرات Me.Command74.Enabled = True ' انبل الزر الحدث يساوي نعم End Sub وفي حدث عند الفتح النموذج كتبت هذا لكي يكون مصدر النموذج بيكون استعلام اسماء المكررة 1 Private Sub Form_Open(Cancel As Integer) Me.RecordSource = "الاسماء المكررة 1" End Sub لكن في البداية سيكون يبطيء العملية وهذا يرجع لاك تستخدم استعلام على الاستعلام و بيأخذ الاستعلام الاول معلوماته عن الفانكشن وعند كتير حقول بيأخذ البيانات من فانكشن و بعدين تعمل الجمع بين تلك الحقول وبعدين تستخد ذلك الحقل الا وهو اسم ولي الامر * حسب رأيي اذا تأخذ اسم الولي الامر بطريقة ان يتم الحذف الاسم الطالب سيبقى لك اسم الاب وهذا حسب فراغ بين اسم الاب واسم الطالب والله يعلم اتفضل اليك القاعدة القي نظرتا اليه ولى الامر.rar

السلام عليكم يجب عليك أن تزيل جميع عناصر النموذج من التخطيط. الصور التالية توضح ذلك: طريقة ازالة التخطيط: و هذا ملفك بعد التعديل عليه: ‏‏‏‏DBSystem -1122.rar

السلام عليكم استبدل الكود السابق بهذا الكود Option Explicit Sub Button1_Click() Dim ws As Worksheet, wb As Workbook Dim NextRow As Long, LastRow As Long On Error Resume Next Set wb = Workbooks("الصادر.xlsx") Set ws = ThisWorkbook.Sheets("قاعدة البيانات") NextRow = ws.ListObjects("Table2").Range.Columns(3).Cells.Find("*", SearchOrder:=xlByRows, SearchDirection:=xlPrevious).Row If wb Is Nothing Then Set wb = Workbooks.Open(ThisWorkbook.Path & "\" & "الصادر.xlsx") Else wb.Activate End If With wb.Sheets("الصادر العام") LastRow = .ListObjects("الجدول1").Range.Columns(3).Cells.Find("*", SearchOrder:=xlByRows, SearchDirection:=xlPrevious).Row + 1 .Range("C" & LastRow).Value = Format(Date, "yyyy/mm/dd") .Range("D" & LastRow).Value = "طلاب" .Range("E" & LastRow).Value = ws.Range("E" & NextRow).Value .Range("C" & LastRow).Select End With End Sub khaled.rar

جزيت خيرا ممكن الغاء حماية الواجهة

أليك الحل للكومبو 3 و4 كمبوبوكس بطريقتين3 Salim.rar

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

استاذ معاذ بالفعل عند عمل جدول منفصل لولى الامر وجده لا يجدى بل كان عبء على القاعدة ومن انجح القاعدة تقليل الجداول وليس كثرتها اما بخصوص موضوع ولى الامر هذا برنامج جوه برنامج طلع موضوع كبير كنت فاكره سهل 1 - لازم داله لتجميع حساب ولى الامر على حسب عدد الابناء 2 - نموذج حسابات منفصل وتقارير منفصله وايصال دفع بالمدفوع والمتبقى لعدد الابناء 3- فصل ولى الامر الذى له عدد ابناء للبحث عنه بالاسم او بالرقم ليظهر عدد الابناء ببيانتهم غير امو كثيرة جدا والحمد لله تقريبا خلصت منها 95 % وعند الانتهاء من القاعدة سوف يتم عرضها واشكرك على المدخله ولك تحياتى

هنا ياتي البعبع السوداني ليقول الفكرة تكاد تكون مختلفة بالنسبة لي ليس من الضروري فصل جدول اولياء الامور عن الطالب يمكن ادراج بيانات ضمن بيانات جدول تسجيل الطلاب وتسجيل كل الطلاب بصورة عادية جدا جدا لكل طاب سجل جديد وبعد زلك يمكن فرز الطلاب باستخدام الية الفرز علي حسب ولي الام(نظلل اسم ولي الامر ونختار من قائمة كلك يمين عبارة يتضمن) وبزلك يجلب لنا التقرر كل الطلاب المسجلين ضمن ولي الامر وهنا يمكن حساب عددهم بتجميع ال كود الطاب sum لاحظ المرفق ولكن يجب ان تعمل شي اخر ك كنموزج للتصفية ومن خلاله تستدعي التقرير علي حسب الفرز لاحظ المرفق لكن يحتاج لبعض العمل ونصيحتي لك لاتزحم البرنامج بالشاشات والجداول وشكر والله الموفق معاذ الزين السودان واتساب 00249127976617 ibnjabalapp@gmail.com راسلني يا الظابط

حسب الرسالة الضاهرة في الصور ة البرنامج لم يجد جدول البيانات ولا ادري اين ذهب الجدول ليدك او ماهو سبب حذفه (قولي جدول البيانات معناه نطاق الجدول المسمى tbData) المهم قمت بتعديل بسيط حيث يقوم البرنامج بالتعرف على جدول البيانات بطريقة اخرى ( بواسطة نطاف يحدد برمجيا بدل من النطاق المعمول في الشيت) جرب اخي الملف وان شاء الله سيعمل لديك تحياتي و عذرا على الرد المتأخر UserForm Flexibles 2003 .rar السلام عليكم استادي العزيز محمد صالح انه لشرف لي مرورك بالموصوع فمبالك بكلماتك هذه اعتز بشاهدتك كثرا و جازاك الله خيار لك مني فائق الاحترام و التقدير

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