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

تفضل 🙂 تعديل في الكود اعلاه ، فيصبح: Select qry_1.A1, qry_1.B1, qry_1.C1 from qry_1 UNION ALL Select qry_2.iName, "" , qry_2.iSection from qry_2 ORDER BY qry_1.A1 . . وطبعا ممكن يكون احد الاستعلامين او كلاهما : استعلام مجاميع ، استعلام جدولي ... جعفر 1156.Union_qry.accdb.zip

الاستعلامات الاستعلامات هي أهم كائنات قواعد البيانات ، من خلال الاستعلام يمكنك عمل الكثير كما سنري بإذن الله و لدينا عشرة أنواع من الاستعلامات خمسة منها لها واجهة رسومية يمكن استخدامها لتكوين الاستعلام باستخدام الفأرة أو كتابة الاستعلام يدويا و الخمسة الأخري سنكتب فيها جمل ال SQL مباشرة و الأصل فى الاستعلامات أنها جميعا فى النهاية عبارة عن جمل و تعبيرات SQL و قبل أن نعرض الي تعريف الانواع العشرة ، تعالوا نتعرف الي ما تعنيه هذه الحروف الثلاثة SQL Structured Query Language السي كيو ال هو لغة التعامل مع قاعدة البيانات و ينقسم الي 3 أقسام لغة معالجة البيانات DML Data manipulation language لغة تعريف البيانات DDL Data Definition language لغة التحكم فى البيانات DCL Data Control language لغة معالجة الييانات ادراج بيانات تحديث بيانات حذف بيانات استرجاع بيانات لغة تعريف البيانات هي إنشاء قاعدة البيانات فى البداية كان يتم انشاء قاعدة البيانات باستخدام جمل SQL ثم بعد ظهور نظم ادارة قواعد البيانات مثل الاكسس أصبحت هذه العملية تتم من خلال واجهة رسومية سهلة الاستخدام قادرة علي انشاء و التحكم أيضا فى قواعد البيانات و هذه اللغة مسئولة عن : إنشاء جدول الغاء جدول تعديل جدول العلاقات لغة التحكم تتولي معالجة صلاحيات المستخدمين و هذه العمليات أيضا أصبحت تتم من خلال الواجهة الرسومية لنظم ادارة قواعد البيانات و نعود ثانية الي الأكسس : :d سنبدأ فى هذا الموضوع بتعريف أنواع الاستعلامات ، كتعريف عام قبل أن نعرض اليها بالتفصيل بإذن الله تعالي: 1. استعلامات الاختيار : select query 2. استعلامات الجداول المحورية : ؛Cross Tab Query 3. استعلام تحديث : Update Query 4. استعلام إضافة : Append Query 5. استعلام حذف : Delete Query 6. استعلام إنشاء جدول : Make Table Query 7. استعلامات التوحيد : Union Query 8. استعلامات التمرير : Pass-Trough Queries 9. استعلامات تعريف البيانات : Data definition queries 10. الاستعلامات الفرعية : Sub-query استعلامات الاختيار : select query تكوين مجموعة من السجلات المبنية علي جدول أو أكثر من بحيث تمثل كل الببيانات أو المجموعة من السحلات التي تحقق شروط معينة. بالاضافة الي امكانية التحكم فى ترتيب السجلات . – مثل جميع الطلاب الذين تتعدي درجاتهم 90 و بلدهم القاهرة و عدد أيام الغياب لديهم أقل من خمسة – مع كون الشروط الثلاثة نخص بيانات مسجلة فى ثلاث جداول مختلفة. و كما تكلمنا سابقا ، يمكن عمل ذلك باحدي طرق تصفية الجداول ، و لكن هنا سيكون لدينا كائن استعلام محفوظ ، يمكن استخدامه فى أي وقت . أيضا يمكن استخدامه لتجميع البيانات التي تشترك فى خواص معينة ، أي تلخيص البيانات و في هذه الحالة يطلق عليها استعلام تجميع استعلامات الجداول المحورية : ؛Cross Tab Query و هي أداة تحليلية تستخدم لتحليل البيانات بناء علي الخاصية المطلوبة ، فيتم فيها تجميع البيانات التي تجمعها خاصية معينة و تحليلها بالنسبة لخاصية أخري و تقديم الاحصائية المناظرة بمعني : لو لدينا بيانات عدد من الطلاب ، و تقديرهم و الجنسية ، و نريد احصائية تكون الصفوف فيها هي البلد و الأعمدة هي التقدير و محتويات الجدول عدد الطلاب الذين ينتمون الي كل بلد و كل تقدير أو مثلا بدلا من العدد نريد البيانات مجموع المصروفات المناظر ، أو أكبر تاريخ ميلاد لكل بلد و لكل تقدير فنحن نتحدث عن تطبيق مباشر للاستعلامات من نوع Cross Tab استعلام تحديث : Update Query تحديث كل أو بعض قيم بيانات فى جدول بشروط او بدون استعلام إضافة : Append Query اضافة سجلات الي جدول بشرط و بدون استعلام حذف : Delete Query حذف كل أو بعض السجلات من جدول بشرط أو بدون استعلام إنشاء جدول : Make Table Query إنشاء جدول جديد يحوي بيانات مختارة استعلامات السي كيو ال المحددة SQL Specific Queries استعلامات التوحيد : Union Query مثل استعلامات الاختيار ـ، و لكن تتميز عليها بامكانية توحيد أو ضم بينات أكثر من جدول فى نفس الحقل فمثلا لو لدينا جدول به أوامر البيع و آخر به أوامر التوريد ، و كلاهما به حقل رقم الامر و القيمة و أردنا أن ننشيء استعلام واحد يجمع بيانات الجدولين بحيث يكون به ثلاث حقول الاول يوضح نوع الامر و الثاني رقمه و الثالث القيمة و تكون القيمة موجبة فى حالة اوامر التوريد و سالبة فى حالة اوامر الصرف ، فنحن نتحدث عن تطبيق مباشر لاستعلامات التوحيد استعلامات التمرير : Pass-Trough Queries تستخدم لارسال أوامر بلغة اس كيو ال ، الي خادم قاعدة بيانات مباشرة من خلال ال ODBC ، و قد يكون لها مردود باعادة عرض سحلات و قد لا يكون لها ، و تفاصيل كتابة الاوامر فيها تعتمد علي قاعدة البيانات التي سنقوم بالتمرير اليها و نمر سريعا علي تعريف ال ODBC : Open Database Connectivity (ODBC): A standard method of sharing data between databases and programs. ODBC drivers use the standard Structured Query Language (SQL) to gain access to external data.) امكانية الاتصال بين قواعد البيانات ، و مشاركة البيانات بينها ، و تعتمد علي لغة الاستعلامات البنائية ( اس كيو ال) النمطية للتعامل مع البيانات استعلامات تعريف البيانات : Data definition queries و هي تستخدم لانشاء و حذف و تعديل الجداول و الفهارس الاستعلامات الفرعية : Sub-query و هو ليس نوع جديد ، و لكنه تطبيق لاستخدام استعلامات الاختيار ، و لكن هذه المرة لتعريف حقل أو معيار لحقل و طبعا هذا تعريف عام ، كبداية للحديث ، و يلي ذلك عرض الموضوع بالتفصيل بإذن الله

برنامج حسابات مجانى وليس تجربيى وأسأل الله عز وجل أن ينفع به عباده الصالحين وأسالكم الدعاء رابط البرنامج المساعد فى حالة وجود اوفيس اعلى من اصدار 2007 https://drive.google.com/open?id=1whC89PuJhad_duy-4o0pOCc4lqiYTQKr هذا هو البرنامج برنامج_حسابات_مجانى.rar

جرب هذا الكود وأعلمنا بالنتيجة ....... If (Count < 0) And (Me.CurrentRecord > 1) Then DoCmd.GoToRecord , , acPrevious ElseIf (Count > 0) And (Me.CurrentRecord <= Me.Recordset.RecordCount) Then DoCmd.GoToRecord , , acNext End if

مارأيك بجدول فيه الارقام السرية مشفرة؟ انظر المرفق تشفير باسورد المستخدم عند الادراج وفك تشفيره عند تسجيل الدخول.accdb

السلام عليكم كود سيط لعمل كلمة مرور يوضع بعد التحديث او عند الضغط بزر If [password] = 123 Then MsgBox "تفضـل بالدخـول", , "مبـروك" DoCmd.Close DoCmd.OpenForm "اسم النموذج" ElseIf [password] <> 123 Then MsgBox " كلمة المرور خطأ ", 16, "تنبيه" [password] = Null End If test.rar

السلام عليكم لم اقهم سؤالك (تتكرر قيمتها بإختياري) اذا كان قصدك عندما تقوم بفتح سجل جديد تجد قيمة ثابته: ممكن عملها باكثر من طريقة 1- عن طريق وضع القيمة الافتراضية لحقول 2- عن طريق الدالة if If IsNull(text) Then Me.text= 0 End If 3- جعل القيمة الاقتراضبة للحقل تتكرر مثل اخر سجل تم الكتابة به =dlast("اسم الحقل","اسم الجدول") اعلمنا النتائج

اسم المستخدم: user2 الرقم السرى: 2 مع العلم أن صلاحيات المستخدمين لا يدخلها غير من له صلاحية الاشراف وهى متاحه لهذا المستخدم

الف شكر للاستاذ محمد طاهر مدير الموقع علي هذا الشرح المميز بارك الله فيك 🌺🌺⁦❤️⁩🌺🌺

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

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

ووالديك بالرحمة ان شاء الله 🙂 جعفر

اخي العزيز هذا مثال لاحد الاخوة بالموقع اتمنى يكون المطلوب officena.rar اخي العزيز/ ارفق نموذج للعمل للسرعة

وعليكم السلام 🙂 هذا ابسط استعلام 🙂 يكون عندك استعلامين ، كل واحد يعمل بطريقته وبسجلاته ، الشرط الوحيد هو ان يكون عدد الحقول نفسه لجميع الاستعلامات اللي تريد توحدها 🙂 ودمج الاستعلامات يكون عن طريق الامر Union ، والذي به لا تحصل على سجلات متكررة ، بينما الامر Union All ، يعطيك كل السجلات. مثال: الاستعلام qry_1 فيه الحقول A1 و B1 و C1 ، بينما الاستعلام qry_2 فيه الحقلين iNames (وبه بيانات نفس اللي في الحقل A1) و iSections (وبه بيانات نفس اللي في الحقل C1) يعني الحقل B1 لا يوجد له حقل مشابه في qry_2 : استعلام التوحيد يصبح: Select qry_1.A1, qry_2.B1, qry_1.C1 from qry_1 union all Select qry_2.iName, "" , qry_2.iSection from qry_2 Order By qry_2.iName جعفر

مرحبا ابو اشرف استعلام التوحيد يجمع بيانات جدولين كانهم جدول واحد لحقل واحد او عدة حقول بشرط ان انها تكون من نفس النوع SELECT * FROM tbl1 UNION ALL SELECT * FROM tbl2; هنا صيغة الاستعلام لكافة حقول الجدولين مع اضهار البيانات المكررة SELECT txt1 FROM tbl1 UNION ALL SELECT txt1 FROM tbl2; هنا لحقل واحد لكل جدول مع التكرار SELECT * FROM tbl1 UNION SELECT * FROM tbl2; هنا بدون تكرار استعلام توحيد.accdb اعتذر استاذي ابو خليل شاهدت ردك بعد انزال الرد

تفضل من هنا

الف مبروك استاذنا

مبروك أخي @خالد سيسكو اعانك الله على حمل المسؤولية وزادك الله من علمه ونفع الله بعلمك

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

جرب المرفق الآن ووافني بالنتائج الكود =DMin("[sale_price]";"[details]";"[CodeName]='" & [CodeName] & "' and [type]='" & [Type] & "'") Database11.accdb

اشكرك انا اصلا لما حضرتك تأخرت في الرد دخلت علي الجداول وغيرت الباسورد عشان اقدر ادخل وأشوف البرنامج.. ماشاء الله جزاك الله خيراً برنامج جميل تحياتي

مبارك عليك أستاذ @خالد سيسكو .. وفقك الله ..وجعلك ذخراً للاسلام والمسلمين

مرحبا حسب فهمي للموضوع ان اليوم يبدأ من 12 ظهر وينتهي في 11:59 دقيقة اذا كان صحيح ممكن معالجة الموضوع بعدة طرق ولكن قبل ذلك لدينا اربع احتمالات التسليم قبل الساعة 12 التسليم بعد 12 الاعادة قبل 12 الاعادة بعد12 اولا اطلع على الملف المرفق اذا كان الحل صحيح حساب الايام.accdb

جزاك الله خيراً 🌺الباسورد ايه🌺

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

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

التعامل مع البيانات فى الجداول لاضافة بيانات : أنشيء جدول باحدي الطرق الثلاثة السابقة افتح الجدول فى وضع ورقة العمل datasheet view باختيار الجدول ثم open أو بالنقر المزدوج عليه إضغط علي الخلية الأولي ، و ابدأ فى الكتابة ملاحظة : السجل الذي تدخل فيه البيانات حاليا ، تظهر بجواره علامة قلم صغير للدلالة علي انه يتم تحريره حاليا . للانتقال الي الحقل التالي اضغط Tab و للانتقال الي الخلية السابقة اضغط Shift + Tab إضغط علي أزرار التنقل ( الأسهم للانتقال خطوة واحدة فى اتجاه السهم ) لتكرار البيانات الموجودة فى الخلية الأعلي : CTR + ' لالغاء ما كتبت مباشرة بعد كتابته : CTR + Z لتعديل بيانات مكتوبة : تحرك بالماوس فوق الكلمة المراد تعديلها ، و أدرج المؤشر فى النقطة التي تريد التعديل فيها أو اختار كلمة أو مجموعة حروف لاستبدالها حذف السجلات أولا اختار سجل واحد من المربع الرمادي الموجود فى بداية السجل او مجموعة سجلات ، باختيار اول سجل و ضغط شيفت ، ثم اختيار السجل الأخير و لكي يتم الحذف : اضغط علي ايقونة الحذف رقم 5 و الموجودة بجوار أيقونة الاضافة رقم 4 او اضغط علي زر DELETE أو من القائمة المختصرة للماوس Delete Record أو من قائمة EDIT نختار Delete Record نسخ و قص و لصق السجلات أولا اختار سجل واحد من المربع الرمادي الموجود فى بداية السجل او مجموعة سجلات ، باختيار اول سجل و ضغط شيفت ، ثم اختيار السجل الأخير و استخدم الايقونات الشهيرة للقص و النسخ و و ختار الخلاية التي تريد اللصق اليها و اختار اللصق و طبعا يمكن تنفيذ نفس الاوامر من قائمة Edit او بالاختصارات علي التوالي : CTR + X للقص CTR + C للنسخ CTR + V لللصق أو من القائمةالمختصرة للماوس ترتيب البيانات اختار الحقل الذي تريد الترتيب علي اساسه ، و اختار ايقونة الترتيب سواء التصاعدي أو التنازلي أو من Records , Sort, Ascending or Descending تصفية البيانات اذا كنت تريد قصر العرض علي بيانات محددة لها خاصية تجمعها فتوجد أكثر من طريقة لتصفية البيانات ( عمل فلتر ) اذا كنت تريد عمل التصفية بكلمة أو أكثر او جزء من كلمة ، فاخترها ثم من القائمة المختصرة للماوس ، اختار Filter By Selection أو اضغط مباشرة علي الايقونة رقم 1 هنا فتظهر فقط السجلات التي تحوي ما تم اختياره فى الحقل المناظر و للاختيار العكسي اختار Filter Excluding Selection فيظهر كل ما لا يحوي ما تم اختياره و يمكن أيضا تنفيذ تلك الأوامر من قائمة Records Filter و لازالة الفلتر ، نختار remove Filter من القائمة المختصرة أو من قائمة Filter أو اعد الضغط علي ايقونة الفتر و التي ستجدها مضغوط عليها عند تطبيق أي فلتر ( الايقونة رقم 3 ) طريقة أخري اختار الحقل الذي تريد تطبيق الفلتر عليه و انقر بالزر الايمن للماوس ، و اختار Filter For و اكتب معيار الفلتر المطلوب تنفيذه و يمكن أيضا استخدام ال * للتعبير عن جزء غير معلوم من المعيار مثل *مد فكانك كتبت أي شيء يتنهي ب "مد" و الآن بقي لنا بندان من البنود الموجودة فى قائمة Records Filter الا و هما Filter By Form و Advanced Filter و لنبدأ ب Filter By Form الا و هو التصفية من خلال النماذج و يوجد له ايقونة مخصصة فى الايقونات ، و هو الفلتر و بجانبه نموذج ، الايقونة رقم 2 و عند اختياره ، يظهر اطار به كل رؤوس او أسماء حقول الجداول ، و و باختيار أحد الحقول تنفتح قائمة سرد تحوي محتويات هذا الحقل ( البيانات المسجلة فيه ) فنختار ما نريد منها ، ثم نضغط علي زر Apply Filter لتفيذ الفلتر و هنا يمكن وضع الشروط علي أكثر من حقل فتكون الشروط من نوع AND مثل الاسم = محمد طاهر و البلد = مصر و المهنة = مهندس و هذا باختيار تلك القيم فى الحقول المناظرة و نلاحظ أنه يمكن استخدام معاملات > و < و Like و الأخيرة تستخدم للنصوص مثال فى حقل العمر >15 فى حقل البلد "السعودية" لكل ما ينتهي بال م Like "*م"" و اذا أردنا اضافة شروط اضافية من نوع OR أي "أو" نجد علامة تبويب فى اسفل الاطار ، نختارها لاختيار الشروط الاضافية من نوع or و ايضا لتطبيق الفلتر نضغط علي ايقونة الفلتر ( رقم 3 ) فى الشكل السابق و لازالته نضغط عليها ثانية أو من قائمة records ِapply filter Sort remove Filter Sort و الان لنجرب سويا الفلتر علي الجدول المرفق اذا فتحنا الجدول ، نجد فى الاسفل أن عدد السجلات المعروضة 11 سجل نريد تطبيق الفلتر الاتي : أن كود البلد = 2 فكما سبق ـ اما أن نختار رقم 2 فى كود البلد فى أي سجل ، و نختار ايقونة التصفية بالاختيار أو من القائمة المختصرة ، أو من القائمة العلوية و فى كل الاحوال ستكون النتيجة أن عدد السجلات 3 بدلا من 11 و الان لنجرب الفلتر بالنموذج أو لا نزيل الفلتر الموجود بالضغط علي ايقونة الفلتر ثم نختار الفلتر بالنموذج و نختار فة حقل المرتب salary الرقم 1000 من القائمة ثم نضغط علي زر الفلتر فتكون النتيجة سجلان لسمير و تامر و الان نريد أن نختار كل من مرتبه أقل من 1000 فنختار ثانية الفلتر بالنموذج ، و فى حقل المرتب نكتب <1000 فتكون النتيجة 4 سجلات للموظفين 5و6و9و11 و هنا قبل التطبيق يجب التأكد من عدم وجود شروط أخري ، حيث أنه يحتفظ بالتصفيات السابقة ، فمن يظهر له سجل واحد بدلا من 4 فسيكون فى حقل كود البلد مكتوب شرط أنه يساوي 2 و عليه ازالة هذا الشرط قبل التطبيق و الان التجربة الخيرة نريد شرط مركب ان الاسم يبدأ بحرف ال A و معه أن البلد = 1 لنكتب فى الاسم A و تليها * و سنجدها تتحول اليا الي Like "a*" و نضيف شرط كود البلد ، ثم نطبق الفلتر ، فتكون النتيجة سجلان أحمد و عبده --------------- و الخيار الأخير هو الفلتر المتقدم advanced Filter و هو يتيح التصفية و الترتيب سويا ، و هو يناظر التعامل مع الاستعلامات كما سنري لاحقا و للتعامل معه ننقر نقرا مذدوجا علي الحقل المراد تطبيق المعايير عليه أو نسحبه الي الشبكة و نجد اسفل اسم الحقل خانتان الاولي لاختيار نوعية الترتيب تصاعدي أو تنازلي و الثانية لوضع المعايير الخاصة بالتصفية ، و يتم التعامل معها بنفس طريقة التعامل مع التصفية من خلال النماذج و طبعا يمكننا اختيار أكثر من حقل ووضع أكثر من معيار لكل حقل و ذلك فى الخلية الاخير المعنونة ب OR و الآن الي المثال السابق و قبل أن نطبق المثال الجديد ، حاول تطبيق التجارب السابقة من خلال الفلتر المتقدم و بالطبع سنحصل علي نفس النتيجة و لكن لنجرب التجربة الأولي سويا أن كود البلد = 2 أولا نفتح الجدول ، و نختار فلتر متقدم ، و سنجد أخر فلتر نفذناه مكتوب كقيمة افتراضية فنقوم بازالة العمودان فى الاسفل و نختار مجددا كود البلد بسحيه الي الشبكة أو النقر المزدوج عليه فنجد أن اسم الحقل قد كتب فى خانة Field و فى خانة Critera نكتب 2 و نختار زر الفلتر ، فنجد أن المعروض 3 سجلات و هنا يمكن التحكم فى الترتيب مثلا لو أردنا عرض تنازلي بالاسم نختار حقل الاسم بالنقر المزدوج أو السحب ثم فى خامة الترتيب نختار descending و نترك خانة المعيار Criteria خالية و نضغط علي زر الفلتر لنرس السجلات الثلاثة مرتبة تنازليا بالاسم و الان الي المثال المركب نريد الاسماء التي تبدا ب M or A و يكون العرض مرتبا بالمرتب و البلد لا تساوي 2 و بتطبيق الفلتر نجد الموظفين معروضين بالترتيب التالي 6 ، 11 ، 1 ، 2 و كما ذكرنا ، فان خصائص التصفية المختلقة يتم الاحتفاظ بآخر ما نفذ منها قكيمة الفتراضية للتصفية القادمة ، مع اختلاف الاسلوب المتبع و عليه ، فاذا فتحنا الفلتر بالنموذج سنجد المثال السابق مكتوب فيه استعدادا لتنفيذه ، و هنا سيتضح لنا كيفية الاستفادة من علامة التبويب OR لتطبيق المثال السابق و الآن أترككم مع تطبيق الامثلة السابقة :)

بارك الله فيك شرح وافي وكافي .. تم التطبيق على جدول البيانات ( Table1 ) المرفق.

وعليكم السلام ورحمة الله وبركاته تفضل اخي الكريم Dim db As DAO.Database Set db = CurrentDb Dim tField As DAO.TableDef Dim Fld As DAO.Field Set tField = db.TableDefs("Table1") Set Fld = tField.CreateField("Check1", dbBoolean) tField.Fields.Append Fld Fld.Properties.Append Fld.CreateProperty("DisplayControl", dbInteger, CInt(acCheckBox)) تحياتي

ألف مبروك 🌼 مع الشكر و التقدير

ما شاء الله رووعه ربنا يبارك فيك

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

حياك الله 🙂 نعم لها حل ، استعمل النموذج MainForm بدل Navigation Form ، وتقدر تحذف النماذج الفرعية فيه ، واعمل فيه اللي تريد. او اعمل برنامج جديد ، واعمل النموذج Navigation Form ، واعمل نسخ للكمبوبوكس وبقية الكائنات اللي في النموذج MainForm والصقها في Navigation Form ، ثم اضف النماذج الفرعية. بكلام آخر ، يا يكون عندك النموذج MainForm او Navigation Form 🙂 طبعا ممكن عمل اشكال اخرى ، بس الموضوع يتعقد اكثر 🙂 جعفر

Private Sub Worksheet_Change(ByVal Target As Range) If Not Intersect(Target, Range("A:A")) Is Nothing Then With Sheets("Sheet2") .Range("b11").Offset(Target.Row - 1) = Target.Value End With End If End Sub تفضل

جربت من جديد ويعمل تمام الحمد لله ولكن يحتاج الى الذهاب الى اول سجل تفضل الكود من جديد DoCmd.GoToRecord , , acFirst Dim DB As DAO.Database Dim rst As Recordset Set DB = CurrentDb Set rst = DB.OpenRecordset("select * from tbl_sheet") rst.MoveFirst Do Until rst.EOF rst.Edit rst("amount_sheet") = Me.amount_sheet rst.Update rst.MoveNext DoCmd.GoToRecord , , acNext Loop Set DB = Nothing Set rst = Nothing Form.Requery تحياتي

عملت تعديل بسيط ، بحيث النموذج MainForm يكون النوذج الرئيسي ، ولا تحتاج الى النموذج Navigation Form ، وتقدر تضيف النماذج الفرعية كما تشاء 🙂 جعفر 1154.مساح.accdb.zip

السلام عليكم 🙂 وبالمشاركة مع اخي محمد 🙂 الرسالة واضحة ، الاكسس لم يجد الحقل: cboServeyorID في النموذج MainForm فتأكد انه موجود ، وانك مختار له قيمه 🙂 جعفر

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

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

انا صراحة لا افهم لماذا هذا الاصرار على نقل البيانات من الصف السابع الى الصف حيث Lastrow خلية خلية و من ثم مسح البيانات من الصف السابع خلية خلية ايضاً افترض انه عندنا 100 خلية ( ان لم اقل 1000) في كل صف فهل نتفع هذه الطريقة ؟؟؟ (كتابة 100 سطر للنقل و 100 سطر للمسح) اكيد كلا وجدت الدالة Resize لعمل ذلك بخظوة واحدة اليك هذا المثال :(الرقم 9 في الكود )هو عدد الخلايا في الصف السابع Private Sub insertbutton_Click() Dim nextRow As Long With Sheets("sheet1") nextRow = .Range("C10000").End(xlUp).Row + 1 .Range("c" & nextRow).Resize(, 9).Value = _ .Range("c7").Resize(, 9).Value .Range("c7").Resize(, 9).Value = vbNullString End With End Sub

جزاك الله خيرا اخى صالح @ابوآمنة تقبل تحياتى وتمنياتى لك وللجميع بالتوفيق طبتم واهتديتم

DoCmd.SearchForRecord'ابحث عن سجل اسم النموذج الحالي ويوضع فارغاً في حال البحث في النموذج الحالي , "" ابدء البحث من أول سجل , acFirst, اسم الحقل المراد البحث عن "[Nm] = " & عنصر التحكم مربع التحرير والسرد Str(Nz(Screen.ActiveControl, 0)) علماً أنك تستطيع إدراج الكود بشكل آلي عند إدراج مربع التحرير والسرد من خلال معالج عناصر التحكم بشرط أن تكون القاعدة بصيغة .mdb حتى يتم إضافة الكود في الوحدة النمطية مباشرة . وبالتوفيق أخي أحمد

السلام عليكم تم عمل المطلوب (ما عدا تلوين كلمات البحث) بالتعديل على الكود المرفق في مشاركتك الأولى وإلغاء كود التغيير في حدث ورقة (شيت) Base... في العمود A من شيت Résultat وضعت كلمة البحث حسب عدد الصفوف التي وُجدت فيها... أرجو أن يفي الغرض المطلوب... ملاحظة: عمل الملف يكون بطيئا أكثر كلما زادت كلمات البحث... لم أستطع تلبية كل ما تطلبه... وأعتذر لذلك.. بن علية حاجي Dindin__Recherche_mots_4.xlsm

تفضل New Microsoft Excel Worksheet.xlsm

Function txtonly(rng As Range) Dim m, x, i With CreateObject("vbscript.regexp") .Global = True .MultiLine = False .Pattern = "[a-zA-Z]+" Set m = .Execute(rng) For i = 0 To m.Count - 1 x = x & m(i) Next End With txtonly = x End Function @Access2020 هذه دالة يمكن استخدامها في اكسل شيت مثلا : النص في الخلية A1 في الخلية B2 B2=Txtonly(A1) في حال انك تريد كود يعمل من خلال زر أرجو تحميل مثال لأطبقه لك بكل سرور

يبدو ان الامور تحسنت هذا هو التعديل studEhsa.rar

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

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

السلام عليك هنالك الكثير من الأسئلة حول استخدام الاستعلامات وخصوصاً استعلامات التحديث .. وهي بالحقيقة تحتاج إلى بعض الخبرة في التركيب للحالات المختلفة حسب نوع الحقل المراد تحديثه ولهذا فلقد عملت محاولة لمساعدة من يرغب بعمل استعلام تحديث وبسرعة وبدون أي مشقة وهذا الاستعلام اسمه Val2Tbl وأسلوب استخدامه كما يلي : أولاً نضعه في وحدة نمطية ونقوم بحفظها ثانياً من خلال الفورم الذي نريده نستخدمه بهذا الصيغة : Val2Tbl(Table Name, Field Name, Value) هو تابع يعود بقيمة True إذا تم تنفيذ الاستعلام بدون مشاكل أو False إذا لم يتم تنفيذ الاستعلام وميزته أن المستخدم يضع اسم الجدول واسم الحقل والقيمة التي يريدها مهما كان نوعها ( تاريخ - نص - رقم - منطقية) والتابع يتولى مهمة تركيب الاستعلام وتنفيذه وهذا مثال عن أسلوب استخدامه Val2Tbl.rar

المثال ( جدول البيانات فقط لتجرب عليه عمليات التصفية ) Ex01.zip