نجوم المشاركات
Popular Content
Showing content with the highest reputation on 17 يون, 2019 in all areas
-
4 points
-
بعد إذن صديقي @عبد اللطيف سلوم ضع هذا الكود تحت الحدث الزر ...... Dim c, i c = DCount("[الراتب السابق]", "insedData") DoCmd.GoToRecord , , acFirst For i = 1 To c Me![الراتب السابق] = Me![الراتب الحالي] Me![الراتب الحالي] = "" DoCmd.GoToRecord , , acNext Next i3 points
-
حمل أثقل من جبل احد الله يبارك فيك استاذي العزيز أبو جودي لست خبيرا وما أنا إلا طالب علم هذا تكليف وليس بتشريف نسأل الله المعونة والتوفيق لنا ولكم3 points
-
2 points
-
ما شاء الله تبارك الله اخي @مسفر تستاهل ... ارجو لك التوفيق والاعانة .... الف مبروك 🥀2 points
-
2 points
-
2 points
-
السلام عليكم لدي جدول للمندوبين ونموذج مبني عليه المطلوب : عند اضافة مندوب جديد (سجل جديد) وعند كتابة اسمه الاول في خانة الاسم يقوم النموذج بالتصفية والفلترة علي كل مايشبه اسمه الاول وعند كتابة اسمه الاوسط (الاب) تتم التصفية ثم تظهر رسالة تقول ان الاسم موجود من قبل ويسأل هل تريد اضافته مرة اخري فاذا كانت الاجابة نعم تتم اضافته بنفس البيانات حتي رقم الكود ايضا (لانه مطلوب التكرار ) اما المسلسل فلا فمثلا : احد اسماء المندوبين الموجودين هو " طاهر بسيوني " فعند اضافة مندوب جديد ونبدأ في خانة الاسم بكتابة طاهر يفلتر النموذج علي كل من اسمه فيه كلمة طاهر ثم عند كتابة الاسم الثاني بسيوني يفلتر النموذج علي كل من هو اسمه "طاهر بسيوني " ثم تظهر رسالة تقول ان الاسم المدخل موجود مسبقا هل تريد اضافة مرة اخري وعند الضغط علي نعم يضاف الاسم مرة اخري بنقس رقم الكود والبيانات الاخري ( عدا اسم الشركة التابع له - ونوع الطلب) جزاكم الله خيرا بحث وتصفية.accdb1 point
-
أستاذنا ازهر عبد العزيز اولا يجب أن تكون الجداول بادئة بـ _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 والله الموفق1 point
-
وعليكم السلام 🙂 اليك هذه الروابط ، وبعضها فيها مثال للتنزيل ، ومهم ان تعرف ان هناك اكثر من طريقة لعمل القائمة ، وفي طرق الاكسس 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 جعفر1 point
-
قمت بعمل ما تفضل به استاذي عبد اللطيف سلوم@ وظهرت شاشة معالج زر الامر ولاكن عند حدت عبد النقر يظهر لي الماكرو المضمن وليس اجراء حدث فما الحل اساتذتي الكرام1 point
-
سلام عليكم. اريد كود فتح نموذج فقط من نموذج الواجهة الرئيسة ومنع فتحه بشكل مبارشر . عند فتحه بشكل مباشر تضهر رسالة خطأ وشكرا1 point
-
1 point
-
والسبب ، انك تحاول ان تقنع الزبون بطريقة غير اللي طلبها ، فلازم تعطية اكثر كمية ممكنه من الاغراءات 🙂 وشيء آخر كذلك: اضف مجموعة سجلات، ثم تعال الى التقرير وشوف شكله في وضع الطباعة Print Preview ، هنا بتشوف الصفحة وهي مليانه ، وبتحتاج تعمل تضبيط علشان عدد معين من السجلات يضبط داخل هذه الصفحة ، فلازم تلعب في وضع الحقول ككتله واحدة ، ووتزيد المسافة اللي فوقها واللي تحتها ، مثلا 🙂 جعفر1 point
-
ممتاز 🙂 بس نصيحتي: 1. اعمل الوان وتظليل ، وخذ اللي انا عملته كمثال ، 2. احذف المسافات العمودية بين الحقول ، كما عملته انا. جعفر1 point
-
اتفضل انا اسف انا غلط فى الكود تم اعادة الرفع مرة اخرى 3 (1).accdb1 point
-
جرب هذا بعد فتح النموذج اضغط على F1 والله اعلم تعطيل مفتاح F1.mdb1 point
-
لم اقل هذا بل F1 فقط .... لذلك ضعها مثلا F2 وشوف بنفسك1 point
-
بارك الله فيك وجزاك الله كل خير ياريت حضرتك ترفع الملف لكى تكتمل وتعم الإستفادة للجميع ان شاء الله1 point
-
حل وكود رائعان احسنت أستاذ سليم بارك الله فيك1 point
-
وعليكم السلام .... اخي محمد F1 محجوزة استخدم اي حروف أخرى F2 3 41 point
-
1 point
-
جزاك الله خير اباخليل ان شاء الله ابي احاول في على نفس الجهاز المشكله ان الجهاز في مركز نسائي لعلي اجد فرصه اجرب عليه واخبرك ان شاء الله لكن السؤال هل يحتاج جهاز الشبكه مكتبه تسجل في ملف النطام مثل مكتبة الباركود ولا على طول يشبك عن طريق الكيبل ويطلع على انه طابعه من ضمن الطابعات بالجهاز1 point
-
بالتوفيق اخي الكريم اعانك الله على حمل هذه الامنة مزيدا من التقدم والنجاح :: تحياتي1 point
-
الاستاذ الفاضل ازهر عبد العزيز شوف كدا وجرب وقولي هل هذا المطلوب بالتوفيق وفي انتظار ابداعات الاستاذ / محمد عصام 33.accdb1 point
-
جرب هذا الكود 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.xlsm1 point
-
1 point
-
اخى الكريم رجب نفس المشكلة التي ذكرها الأستاذ علي والأستاذ أحمد بدره1 point
-
اقصد بكلامى يا دكتور كالاتى جرب عمل البحث بهذه الاسماء نشوى ابراهيم - نشوي إبراهيم - نشوى إبراهيم - نشوي ابراهيم واحد منهم فقط سيخبرك انه موجود اما الباقى سيعتبر المندوب لم يتم التعامل معه من قبل وذلك بسبب اختلاف الهمزات والنقاط فى التاء المربوطة والياء المفروض ان كل مندوب يكون له رقم يونيك ومعروف مسبقا قبل ادخال البيانات وتتم المعاملات من خلال الرقم او ممكن تعمل موديول للاستبدال النقاط والهمزات1 point
-
1 point
-
1 point
-
زر "جديد" في النموذج لا يعمل >>-------> لابد من اننى نسيت وضع الكود اعتذر بالنسبة للموضع الاكثر من رائع لاستاذنا الجليل ومعلمنا المبجل الاستاذ @jjafferr تجده هنا تحت امرك ولم افعل او اقدم ما يستحق الشكر وان كنت لابد شاكرا فليكن توجيه شكركم الى استاذنا القدير ومعلمنا المبجل وشيخنا الجليل ووالدنا الطيب الاستاذ جعفر رأيـــت الحـق حـق المـعـلـم وأوجبة حفظاً على كل مسلم له الحق أن يهدي إليه كرامة لتعليم حرف واحــد ألف درهم1 point
-
لو لم يوجد علاقة بين الجدولين بالحقل الذى تريد اعادة ترتيبه وهو id كنا سنتمكن من فعل ذلك ولكن بهذا الوضع لا يمكن1 point
-
1 point
-
الماكرو مفعل ونفس مشكلة الأستاذ علي يرجى رفعه مرة أخرى1 point
-
جرب هذا الملف أعتقد أنه قد يفي بالغرض فيه أزرار للفرز حسب النوع وحسب الأكبر سنًا وحسب الأصغر سنًا حساب السن.xls1 point
-
بعد اذن استاذى الجليل ومعلمى القدير ووالدى الحبيب الاستاذ المبجل استاذ @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.zip1 point
-
بالنسبة للإخفاء الإحصاء تم رفع خلايا الإحصاء وتم حل المشكلة جرب الملف وسأحاول إيجاد طريقة أخرى بحيث يكون الترتيب حسب النوع أو حسب الأكبر سنًا أو حسب الأصغر سنًا حساب السن.xlsx1 point
-
مثل ما قال الأخ kha9009lid الملف بعد التعديل بحث1.accdb1 point
-
مرحبا اخي واستاذي العزيز مسفر عمل جيد بارك الله فيك توجد مشكلة بسيطة وهي تكرار السجل المكرر مثلا المندوب س كان مسجل 5 مرات تصبح السجلات10 والمندوب ص مسجل 2 يصبح 4 وهكذا اخي حلبي جرب المرفق واعذرني اذا لم يحقق المطلوب بحث وتصفية.accdb1 point
-
التواصل مع الأعضاء يكون عبر المنتدى (إضافة مواضيع) أو عبر الرسائل الخاصة (غير متاح إلا بعد فترة من الانضمام للمنتدى) أو عبر (الإيميلات - عناوين التواصل الاجتماعي - الهواتف...) إن وُجدت في بيانات العضو... والله أعلم1 point
-
1 point
-
السلام عليكم ورحمة الله تم عمل المطلوب في الملف المرفق... بن علية حاجي INDEX - MATCH.xlsx1 point
-
عليك السلام ورحمة الله وبركاته أولاً يجب أن تكون الأسماء في الشيتات مطابقة تمامًا للمرجع ثانيًا تم عمل المطلوب في ورقة العمل ثاني ناجح (2) وسوف تلاحظ أن هناك أسماء الرقم القومي فارغ فعليك بكتابة الاسم الصحيح أكمل باقي الشيتات على نفس النمط تحليل الادار .rar1 point
-
وعليكم السلام هذا ملف لأستاذنا الكبير محمد صالح له منا كل المحبة والإحترام لكسر حماية الملف ويتم تثبيتها على برنامج الإكسيل عامة فى جهازك بحيث يكون موجود فى كل ملفات الإكسيل عند فتحها وهذا فيديو لكيفية استعمال هذه الأداة : https://www.youtube.com/watch?time_continue=93&v=0nJQEIDLGJA وهذا رابط الموضوع الأساسى https://www.officena.net/ib/topic/29972-فك-حماية-شيتات-ملفات-الإكسل-بجمع-إصداراتها-وامتداداتها/?tab=comments#comment-1493901 point
-
بكبسة زر واحدة نستطيع ان نعرف ما هو اخر صف غير فارغ في كل شيت انظر المرفق (Sheet1) Last_row In sheets.xlsm1 point
-
1 point
-
1 point