كل الانشطه

وطلب آخر إن تكرمت وهو جعل الدالة تعمل من خلال زر في نموذج وليس عبر ماكرو لأنها الطريقة التي اعتدت عليها وحاولت عمل ذلك، ونسخت الدالة في زر .. لكن لم يعط كل النتائج التي أعطاها الماكرو

جزاك الله خيرا أخي الكريم الماكرو الثاني يكاد يكون أدى المطلوب تماما Function UpdateBooksWithMNO2() Dim db As DAO.Database Dim rsBooks As DAO.Recordset Dim rsTab As DAO.Recordset Dim sql As String Dim bookName As String Dim bookNumber As String Dim fullText As String Dim found As Boolean Set db = CurrentDb() ' فتح مجموعة السجلات للجدول BOOKS Set rsBooks = db.OpenRecordset("BOOKS") ' التكرار عبر السجلات في BOOKS Do While Not rsBooks.EOF bookName = rsBooks!bookName bookNumber = rsBooks!B_Hno found = False ' البحث في الجدول الرئيسي TAB sql = "SELECT * FROM TAB WHERE NASS LIKE '*" & bookName & " (" & bookNumber & ")*'" Set rsTab = db.OpenRecordset(sql) If Not rsTab.EOF Then rsTab.MoveFirst Do While Not rsTab.EOF fullText = bookName & " (" & bookNumber & ")" If InStr(rsTab!NASS, fullText) > 0 Then rsBooks.Edit rsBooks!mno = rsTab!mno rsBooks.Update found = True Exit Do End If rsTab.MoveNext Loop End If rsTab.Close Set rsTab = Nothing rsBooks.MoveNext Loop rsBooks.Close Set rsBooks = Nothing Set db = Nothing End Function حتى أنه اكتشف خطأ في أحد الأرقام التي أدخلتها يدويا، لأنه كما ذكرت فقد وضعت الأرقام الصحيحة في حقل (MNOX) وهذا يبين أهمية الدالات الذكية .. لتدارك أخطاء العمل اليدوي 😀 ولكن أول ثلاثة أحاديث لم يعمل فيها الماكرو !! كما في الصورة ولعلك أخي الكريم تعالج هذا الأمر حتى أجري المزيد من التجارب للتأكد

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

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

نعم ممكن استبدل كود الاخ جعفر بالتالي Dim I_am_Empty As String, Set_Focus_On_Me As Control Dim ctl As Control For Each ctl In Me.Controls If ctl.ControlType = acTextBox And ctl.Visible = True Then If Len(ctl.Value & "") = 0 Then I_am_Empty = I_am_Empty & vbCrLf & ctl.Controls.Item(0).Caption Set Set_Focus_On_Me = ctl End If End If Next ctl If Len(I_am_Empty & "") <> 0 Then Cancel = True MsgBox "رجاء تعبئة الحقول الفارغة التالية" & I_am_Empty Set_Focus_On_Me.SetFocus Set ctl = Nothing: Set Set_Focus_On_Me = Nothing Exit Sub End If طبعا التعديل في السطرين الرابع والسادس فقط وباقي الكود كما هو اخيرا ممكن اختصار الكود وكتابته بطريقة مختلفة ولكن الاستاذ شايب يكتفي بالتعديل اعلاه الملف مرفق اخونا الشايب user.accdb

وعليكم السلام ورحمة الله وبركاته ممكن ترفق ملف للعمل عليه

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

السلام عليكم و رحمه الله و بركاته بعد الاطلاع على موضوع (عدم الحفظ عندما يكون الحقل فارغاً) و كان الكود للأخ @jjafferr مناسب جداً لتطبيقي ولكن تظهر الرسالة وقد جلبت الاسم البرمجي للكائن و كذلك اي كائن نصي مخفي لاي غرض يقوم الكود باظهار انه حقل مطلوب تعبئته و المطلوب : اظهار التسميه التوضيحة بدل الاسم البرمجي للكائن . و كذلك عدم اظهار اي اسم لكائن مخفي في النموذج . ولكم جــــــزيل الشكر user.accdb

وعليكم السلام ورحمه الله وبركاته - حدد العمود الذي يحتوي على التواريخ في الجدول. - انقر بزر الماوس الأيمن داخل العمود المحدد. - اختر "تنسيق الخلية" من القائمة المنسدلة. - في نافذة "تنسيق الخلية", انتقل إلى علامة التبويب "عدد". - اختر "تاريخ" من القائمة على اليسار. - اختر التنسيق المطلوب للتواريخ أو قم بإنشاء تنسيق مخصص إذا لزم الأمر. - انقر على "موافق" لتطبيق التغييرات. بهذا، سيتم تطبيق التنسيق الجديد على جميع الخلايا في العمود الذي تم تحديده والذي يحتوي على التواريخ. جرب الخطوات دي وشوف إن شاءالله هتظبط معاك ولو مظبطتش لا قدر الله تفيدنا بالمرفق وإن شاء الله تتعمل علطول زي محضرتك عايز

السلام عليكم ورحمه الله وبركاته انا حاولت اعمل الي حضرتك عايزه واتمني ان تجد المطلوب فى المديول الموجود وطبعا لانى معرفش مدى صحه الارقام اللي حضرتك كاتبه فعملت دالتين فى المديول هتلاقي كل ماكرو يشغل واحده منهم شوف ايه الانسب ليك عشان انت تقدر تراجع بياناتك بدقه عنى Smart_Search_function.accdb

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

الإخوة الكرام .. السلام عليكم ورحمة الله وبركاته عندي جدول (BOOKS) فيه أحاديث كلها موجودة في الجدول الرئيسي (TAB) وأريد معرفة أماكنها في الجدول الرئيسي وربطها به عبر المفتاح الأساسي (MNO) وأريد دالة ذكية تسهل هذه المهمة إن أمكن والجيد في الأمر أنه ليس المطلوب هو البحث التقليدي: اختيار كلمة أو أكثر من الحديث في الجدول (BOOKS) والبحث عنها في الجدول الرئيسي (TAB) الأمر بحمد الله أسهل .. على الأقل في تصوري المطلوب من الدالة أن تبحث عن رقم معين بعد نص معين * مثلا: في هذا الحديث من جدول (BOOKS) : المطلوب من الدالة أن تبحث في حقل (NASS) من الجدول الرئيسي (TAB) عن الحديث الذي فيه اسم الكتاب "مصنفات الحمامي" يليه الرقم (116)، واسم الكتاب من حقل (BookName)، والرقم من حقل (B_Hno) والحديث المطلوب هو في الجدول الرئيسي (TAB) ثم وضع الرقم (MNO) في جدول (BOOKS) وقد قمت أنا بوضع الأرقام الصحيحة المطلوبة في حقل (MNOX) * وغالبا ما يكون الرقم بعد اسم الكتاب مباشرة، ولكن قد يتأخر عنه في بعض المواضع، مثلا هذا الحديث في الجدول الرئيسي (TAB) فهذا الحديث موجود في جدول (BOOKS) في تسعة مواضع والدالة ستبحث انطلاقا من جدول (BOOKS) تبحث في حقل (NASS) من الجدول الرئيسي (TAB) عن الحديث الذي فيه اسم الكتاب "فوائد تمام" يليه رقم (168) وتضع رقمه، ثم تبحث مرة أخرى عن "فوائد تمام" يليه رقم (169) .. وهكذا * مع ملاحظة البحث عن الرقم كاملا، حتى لا يحصل خلط بين: فوائد تمام (312) // فوائد تمام (1312) أرجو أن أكون قد وفقت في شرح المطلوب ثم أرجو أن يكون بالإمكان عمل ذلك في أكسس لأن ذلك سيوفر لي الكثير من الوقت Smart_Search.accdb

اخواني الأعزاء بعد سلام الله عليكم ورحمة الله وبركاته محتاح اجمع الوان المواد بناء علي شرط النوع ( اللون1 - اللون2 - اللون3 - اللون4 - اللون5 - اللون6 - اللون 7 )mas_s.rar ملف العمل

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

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

🌹 @ابو جودي مرفقك رائع استاذي 🥰 @Moosak اعتذر اضفة نموذج صاحب المكتبة العامرة ولكن ما لقية بمكتبتة مثل مرفقك 😂

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

ما شاء الله بجد يا باش مهندسة @hanan_ms روعة تسلم ايدك وأفكار قمة في الابداع

استاذ @أبو محمد سعيد وحشتنا . حسب مافهمت تفضل طلبك بالمرفق ووافني بالرد . DDTestFilter-Update.rar

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

🌹🌹 عدلة مرفقك كان الخطأ عند\ تغير هوامش تغير حجم عرض الحقل في آخر اليمين فقط كود تحريك الحقول ان كان صفر فتتحرك سنتيمتر 8.2 واذا كانت 1 او 2 تقل سنتيمتر عرض التقريك بتحرك الحقل ليصل الى 7 او 6 او 5 فقط وتم اضافة الاطار لكل التقارير واماكنية تحجيم الاطار والغاء واضافة قائمة بكج التقارير ==================================================== هل يوجد دالة لتحجم آخر حقل لكل تقرير من الرأس الى تذليل الصفحة آخر اليمين ؟ (لتشغيل هوامش التقرير) في الوضع الحالي سأستخدم تقرير محجم بوضع التصميم للتشغيل الهوامش وتختلف التوسع بالحقل اذا كان التقرير بوضع الطولي او العرض (افقي ) @ابو جودي اشكر كثيرا استاذي 🌹❤️ Full Control Of Print Report التحكم في الطابعة وخصائصها طباعة التقارير.rar

شكرا استاذنا Saleh Ahmed Rabie على تفاعلكم سلمت يداك

للرفع .. ارجو المساعدة للأهمية بارك الله فيكم

استاذنا @Foksh متبقي ضهور المعالج الاسكانر في حالة انه موصل كما اخبرتك سابقاً

وجزاكم مثله اخى الحمد لله الذي بنعمته تتم الصالحات