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

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

استاذى ومعلمى القدير ووالدى الحبيب الاستاذ @ابوخليل هذا كود استرجاع الجداول والاستعلامات ولكن بشرط عدم اغلاق القاعدة كما تفضلتم وذكرتم Undelete Tables and Queries.mdb

السلام عليكم كما عودناكم على الامور الجديدة والمفيدة هذا الكود مهم جدا حيث عندما تفتح برنامج الاكسس تظهر نافذة النموذج الرئيسي فقط كل الشكر للغالي @ابو ياسين المشولي فهو صاحب هذا الكود مرفق ملف العمل للتطبيق اخفاء اكسس (2).accdb

ربما تريد هذه الصورة من النقل ...... انظر نقل الجدوال.rar

وعليكم السلام تفضل طرح السنوات 1.xlsx

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

جرب هذا المعادلة في الخلية D2 ثم اسحب نزولاً =IFERROR(MATCH(A2,$B$2:$B$194750,0),"Not Found") اذا لم تعمل معك المعادلة استبدل الفاصة بفاصلة منقوطة لتبدو المعادلة بهذا الشكل =IFERROR(MATCH(A2;$B$2:$B$19475;0);"Not Found")

انا جمعت كل ما احبه ان يكون هنا

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

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

الف شكر لك اخي الغالي ابا جودي ..

وعليكم السلام ابو حاتم ما لم يتم اغلاق قاعدة البيانات يمكنك استرجاع اي كائن تم حذفه اقرب طريقة هي النقر على زري : ( ctrl + z ) لاستعادة ما قبل آخر حركة واذكر يوجد لدي كود صغير لاسترجاع الكائنات المحذوفة جملة ، يحتاج الى بحث

عدل اسماء الجداول بالقاعدة aa بزر الامر بما يتناسب واسماء الجداول فى القاعدة bb على أن تكون القاعدتين فى نفس المسار aa.zip

لاجبار المستخدم على ملئ جميع الحقول اضف الفكشن التالي Function IsNullTextbox() Dim ctlNull As Control, I As String, X As Integer For Each ctlNull In Me.Controls If ctlNull.ControlType = acTextBox Or ctlNull.ControlType = acComboBox Then If IsNull(ctlNull) Then I = ctlNull.Name & vbCrLf & I X = X + 1 End If End If Next ctlNull If X > 0 Then MsgBox I, , " توجد حقول فارغة " Else MsgBox "تم الحفظ بنجاح" End If End Function في الازرار استدعي الفكشن Call IsNullTextbox()

ماكرو بحث واستبدال اسم أو رقم بفورم الاكسل وبعددة طرق الفيديو الصور

لاجل عينك استاذ عصام BackUp.rar

بارك الله فيك اخي عبداللطيف

يمكن ان تضيف الاسماء دون array لكن باستعمال array يكون الماكرو اسرع و كما قلت لك يمكنك تكبير array قدر ما تشاء ولو كان هنا 100000 احتمال

الطلب غير مفهوم .... لأن داخل المجلد backup ملفان هل تريد استيرادها جميعا أم يترك لك الخيار في الاختيار بين احدهما ؟؟؟؟؟

في هذا الملف نموذج عما تريد فقط اكمل المصفوفة بما تشاء من اختصارات و ما يقابلها من اسماء ونفذ الماكرو Option Explicit Sub replace_Please() Dim my_rg As Range Dim arr(1 To 3) Dim st$ Dim i% arr(1) = "مصط" & "*": arr(2) = "حس" & "*": arr(3) = "عيد" & "*" Set my_rg = Range("f1").CurrentRegion For i = LBound(arr) To UBound(arr) Select Case arr(i) Case "مصط" & "*": st = "مصطفى" Case "حس" & "*": st = "حسين" Case "عيد" & "*": st = "عبد" End Select my_rg.Replace What:=arr(i), Replacement:=st, LookAt:=xlPart Next End Sub الملف مرفق Replacement.xlsm

الملف غير مفهومه الغاية منه لماذا تريد استبدال علي بـــ علي ومصطفى بــ مصطفى طالما الاسمين موجودين

شكرا اخى الفاضل مصطفى010

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

هل يوجد كود يقوم بازالة المكتبات الغير موجودة بحثت كثير ولم اتوصل لنتيجه

ركز شوية يا استاذى الكريم هذا معناه مشكلة بالمكتبات توجه الى محرر الاكواد ومنها اختر قائمة tools ثن اختر reference انظر الى المكتبة التى بها مشكله قم بازالتها ثم ارجاعها مره اخرى بما يتناسب مع اصدار الاوفيس لديك وتكلمنا عن ذلك اكثر من مره

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

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

هههههههههه اسف كنت مستعجل علشان الصلاة اتفضل Undelete Tables and Queries.mdb

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

عليكم السلام ضع قاعدة بياناتك هنا ، ليطلع عليها اخوتك ، وستجد التوجيه والمساعدة ان شاء الله .

الاتنين صح ممكن DoCmd.OpenReport "rptDiscount", acPreview, , , , OpenArgs:="qry_rptD_3" وممكن DoCmd.OpenReport "rptDiscount", acPreview, , , , qry_rptD_3

السلام عليكم المقصود هل يجب كتابة OpenArgs:="qry_rptD_3 ام اكتفي بكتابة qry_rptD_3 شكرا سلفا

جرب الان لو تكرمت e_2.rar

انظر الى الاستعلام باسم item_balance فى وضغ التصميم وشاهد كيف تم تغيير العلاقة

الشكر لله اخي @حربي العنزي تقبل تحياتي

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

اقتراح بكود الترقيم Me.sconame.Value = Nz(DMax("[sconame]", "Querytbl2"), 0) + 1

ممنون منك استاذي الفاضل كفيت ووفيت وبارك الله فيك وجزاك الله خيرا هذا ما طلبته تماما الله يحفظك يارب يارب كل الشكر والاحترام لشخصك الكريم يا طيب

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

فورم بحث بالاسم او رقم التليفون فيديو10 الفيديو

حلو كده HCT Permit To Work System - (2).mdb

وعليكم السلام-تفضل Test vlookup1.xlsx

وعليكم السلام -تفضل استاذنا الكريم ياسر خليل ابو البراء على تناول هذا الموضوع من قبل اعتذر منك استاذى الكريم ياسر فليس هناك امكانية فى وضع الرابط هنا ولكن تم وضعه داخل الملف لكى تعم الإستفادة للجميع للإطلاع على هذا الموضوع والإستفادة منه ان شاء الله حماية المعادلات في كل أوراق العمل Protect Formulas In All Sheets.xlsm

بعد اذن استاذى الجليل ومعلمى الفاضل الاستاذ @essam rabea Database.accdb

اتفضل فتح نموذج اكثر من مرة.accdb

مفيش طريقة تثبت الفورمات على العربى لانى كل شويه بغير الفورمات والف الف شكر استاذنا

معلش استاذنا استحملنى خبرتى قليلة فى الاكسيل

اتفضل يا اخي هذا المتصفح الصغير بإذن الله هيشتغل مع حضرتك hosamh3.rar وتكون الحروف سليمة