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

تفضل ولا تزعل طريقة أخرى ..... test5005.mdb

بعد إذن صديقي @عبد اللطيف سلوم ضع هذا الكود تحت الحدث الزر ...... Dim c, i c = DCount("[الراتب السابق]", "insedData") DoCmd.GoToRecord , , acFirst For i = 1 To c Me![الراتب السابق] = Me![الراتب الحالي] Me![الراتب الحالي] = "" DoCmd.GoToRecord , , acNext Next i

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

مبروك استاذ @مسفر والله تستحق اللقب اسال الله تعالى ان تكون عونا لكل محتاج وان يكتب لك فى موازين اعمالكم ان شاء الله

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

انظر هذه الحسبة صحيحة ؟؟؟؟؟

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

السلام عليكم لدي جدول للمندوبين ونموذج مبني عليه المطلوب : عند اضافة مندوب جديد (سجل جديد) وعند كتابة اسمه الاول في خانة الاسم يقوم النموذج بالتصفية والفلترة علي كل مايشبه اسمه الاول وعند كتابة اسمه الاوسط (الاب) تتم التصفية ثم تظهر رسالة تقول ان الاسم موجود من قبل ويسأل هل تريد اضافته مرة اخري فاذا كانت الاجابة نعم تتم اضافته بنفس البيانات حتي رقم الكود ايضا (لانه مطلوب التكرار ) اما المسلسل فلا فمثلا : احد اسماء المندوبين الموجودين هو " طاهر بسيوني " فعند اضافة مندوب جديد ونبدأ في خانة الاسم بكتابة طاهر يفلتر النموذج علي كل من اسمه فيه كلمة طاهر ثم عند كتابة الاسم الثاني بسيوني يفلتر النموذج علي كل من هو اسمه "طاهر بسيوني " ثم تظهر رسالة تقول ان الاسم المدخل موجود مسبقا هل تريد اضافة مرة اخري وعند الضغط علي نعم يضاف الاسم مرة اخري بنقس رقم الكود والبيانات الاخري ( عدا اسم الشركة التابع له - ونوع الطلب) جزاكم الله خيرا بحث وتصفية.accdb

أستاذنا ازهر عبد العزيز اولا يجب أن تكون الجداول بادئة بـ _tbl حتى لا تضطر الى كتابة أسم كل جدول ضع فى حدث الفورم الرئيسى on Load Dim tdf As TableDef For Each tdf In CurrentDb.TableDefs If tdf.Name Like "tbl*" Then tdf.Attributes = dbHiddenObject End If Next tdf هذا للإخفاء وهذا الكود للإظهار Dim tdf As TableDef For Each tdf In CurrentDb.TableDefs If tdf.Name Like "tbl*" Then tdf.Attributes = 0 End If Next tdf والله الموفق

وعليكم السلام 🙂 اليك هذه الروابط ، وبعضها فيها مثال للتنزيل ، ومهم ان تعرف ان هناك اكثر من طريقة لعمل القائمة ، وفي طرق الاكسس 2003 فما دون ، تختلف عن الاكسس 2007 فما فوق 🙂 https://www.officena.net/ib/topic/39969-كيف-تعطل-زر-الفأرة-الأيمن-لحماية-الفورم-ووضع-فورم-معين-يفتح-مع-الاكسسعنوان-معدل/ http://arabteam2000-forum.com/index.php?/topic/134128-إجراء-حدث-او-فتح-قائمة-منسدلة-عن-طريق-click-الأيمن-للماوس/ https://www.databasejournal.com/features/msaccess/article.php/3790286/Setting-Up-Right-Click-Menus-for-Access-2007.htm https://www.utteraccess.com/wiki/Access_Custom_Right-click_Menu https://support.office.com/en-ie/article/create-custom-menus-and-shortcut-menus-by-using-macros-5bd538ff-19c4-4dfe-9540-3309aebf8a1a https://docs.microsoft.com/en-us/office/vba/access/concepts/miscellaneous/create-a-shortcut-menu-for-a-form-form-control-or-report والبحث بهذه الكلمات في جوجل تعطيك روابط كثيرة: ms access RightClick menu جعفر

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

🙂

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

شكرا تم البنجاح

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

ممتاز 🙂 بس نصيحتي: 1. اعمل الوان وتظليل ، وخذ اللي انا عملته كمثال ، 2. احذف المسافات العمودية بين الحقول ، كما عملته انا. جعفر

اتفضل انا اسف انا غلط فى الكود تم اعادة الرفع مرة اخرى 3 (1).accdb

جرب هذا بعد فتح النموذج اضغط على F1 والله اعلم تعطيل مفتاح F1.mdb

لم اقل هذا بل F1 فقط .... لذلك ضعها مثلا F2 وشوف بنفسك

بارك الله فيك وجزاك الله كل خير ياريت حضرتك ترفع الملف لكى تكتمل وتعم الإستفادة للجميع ان شاء الله

حل وكود رائعان احسنت أستاذ سليم بارك الله فيك

وعليكم السلام .... اخي محمد F1 محجوزة استخدم اي حروف أخرى F2 3 4

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

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

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

الاستاذ الفاضل ازهر عبد العزيز شوف كدا وجرب وقولي هل هذا المطلوب بالتوفيق وفي انتظار ابداعات الاستاذ / محمد عصام 33.accdb

جرب هذا الكود Option Explicit Sub Transfer_data() Dim i%, m%: m = 4 Dim lrA%, My_text Dim Wrd(), t%: t = 1 Dim k%, lRD% Range("D4").Resize(500, 13).ClearContents lrA = Cells(Rows.Count, "A").End(3).Row For i = 4 To lrA Step 2 My_text = Trim(Range("b" & i)) My_text = Split(My_text, " ") For k = LBound(My_text) To UBound(My_text) If My_text(k) <> vbNullString Then ReDim Preserve Wrd(1 To t) Wrd(t) = My_text(k) t = t + 1 End If Next Range("D" & m) = Range("A" & i) Range("E" & m).Resize(1, UBound(Wrd) - LBound(Wrd) + 1) = Wrd m = m + 1 Erase Wrd t = 1 Next lRD = Cells(Rows.Count, "d").End(3).Row Range("D" & lRD + 1) = "TOTAL" Range("E" & lRD + 1).Resize(, 12).Formula = _ "=SUM(E4:E" & lRD & ")" End Sub الصفحة Salim من هذا الملف TTT_salim.xlsm

اخي الكريم طلبك ما كان هيك على كل رح نحاول

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

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

وعليكم السلام ورحمة الله وبركاته ما قصده الأستاذ جعفر شيء من هذا القبيل والتوزيع حسب ما تراه مناسبا وحسب مناسبا مثلاً: المؤهل العلمي التخصص الصف المادة مكان السكن رقم الهاتف وهكذاااا

تسلم حبيبنا واستاذنا @عبد الله قدور

زر "جديد" في النموذج لا يعمل >>-------> لابد من اننى نسيت وضع الكود اعتذر بالنسبة للموضع الاكثر من رائع لاستاذنا الجليل ومعلمنا المبجل الاستاذ @jjafferr تجده هنا تحت امرك ولم افعل او اقدم ما يستحق الشكر وان كنت لابد شاكرا فليكن توجيه شكركم الى استاذنا القدير ومعلمنا المبجل وشيخنا الجليل ووالدنا الطيب الاستاذ جعفر رأيـــت الحـق حـق المـعـلـم وأوجبة حفظاً على كل مسلم له الحق أن يهدي إليه كرامة لتعليم حرف واحــد ألف درهم

لو لم يوجد علاقة بين الجدولين بالحقل الذى تريد اعادة ترتيبه وهو id كنا سنتمكن من فعل ذلك ولكن بهذا الوضع لا يمكن

تمام التمام ومجهود طيب

الماكرو مفعل ونفس مشكلة الأستاذ علي يرجى رفعه مرة أخرى

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

بعد اذن استاذى الجليل ومعلمى القدير ووالدى الحبيب الاستاذ المبجل استاذ @jjafferr هذه النسخه المحموله من البرنامج وبضاعتكم ترد اليكم لو تتذكر يا معلمى موضوعكم الشيق احمل ملفاتك الهامة بقاعدة البيانات 1- عند الفتح للقاعدة للمرة الاولى يتم الاتى انشاء مجلد رئيسى بمسار القاعدة باسم Program Files بتم داخله انشاء مجلد باسم Utility يحتوى على 1- zint.exe برنامج منشئ الباركود 2-Commandline.txt الاوامر الخاصة بمنشئ الباركود 3-manual.txt دليل الاستخدام 4-QR_&_Barcode_Reader_(Pro)_2.2.4-P.apk برنامج ماسح الاكواد للجوالات التى تعمل بنظام الاندرويد نسخة كاملة ومحدثه يتم كذلك انشاء مجلد باسم QR images يحتوى على 1- QRCode.png صورة الباركود لهذا النوع QR Code 2- PDF417.png صورة الباركود لهذا النوع PDF 417 3- Barcode.png صورة الباركود لهذا النوع Code 128 بخصوص برنامج الجوال لنظام الاندرويد QR_&_Barcode_Reader_(Pro)_2.2.4-P.apk هذه الصور توضح الانواع التى يستطيع مسحها وقراءة بياناتها على الجوال كما ان للبرنامج مميزات رائعة QR-Code_Generator.zip

بالنسبة للإخفاء الإحصاء تم رفع خلايا الإحصاء وتم حل المشكلة جرب الملف وسأحاول إيجاد طريقة أخرى بحيث يكون الترتيب حسب النوع أو حسب الأكبر سنًا أو حسب الأصغر سنًا حساب السن.xlsx

مثل ما قال الأخ kha9009lid الملف بعد التعديل بحث1.accdb

مرحبا اخي واستاذي العزيز مسفر عمل جيد بارك الله فيك توجد مشكلة بسيطة وهي تكرار السجل المكرر مثلا المندوب س كان مسجل 5 مرات تصبح السجلات10 والمندوب ص مسجل 2 يصبح 4 وهكذا اخي حلبي جرب المرفق واعذرني اذا لم يحقق المطلوب بحث وتصفية.accdb

التواصل مع الأعضاء يكون عبر المنتدى (إضافة مواضيع) أو عبر الرسائل الخاصة (غير متاح إلا بعد فترة من الانضمام للمنتدى) أو عبر (الإيميلات - عناوين التواصل الاجتماعي - الهواتف...) إن وُجدت في بيانات العضو... والله أعلم

جرب هذه المعادلة =IF(AND(D5="",E5=""),"",IF(D5=E5,"متزن","غير متزن"))

السلام عليكم ورحمة الله تم عمل المطلوب في الملف المرفق... بن علية حاجي INDEX - MATCH.xlsx

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

وعليكم السلام هذا ملف لأستاذنا الكبير محمد صالح له منا كل المحبة والإحترام لكسر حماية الملف ويتم تثبيتها على برنامج الإكسيل عامة فى جهازك بحيث يكون موجود فى كل ملفات الإكسيل عند فتحها وهذا فيديو لكيفية استعمال هذه الأداة : https://www.youtube.com/watch?time_continue=93&v=0nJQEIDLGJA وهذا رابط الموضوع الأساسى https://www.officena.net/ib/topic/29972-فك-حماية-شيتات-ملفات-الإكسل-بجمع-إصداراتها-وامتداداتها/?tab=comments#comment-149390

بكبسة زر واحدة نستطيع ان نعرف ما هو اخر صف غير فارغ في كل شيت انظر المرفق (Sheet1) Last_row In sheets.xlsm

نعم اكسل يقوم بهذا الامر بمعادلة مع تنسيق شرطي شرح المعادلة في هذه الصورة الملف مرفق DUP_FORMATdeveloped.xlsx

تم التعديل كما تريد و زيادة حبتين Last_addres In sheets.xlsm