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

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

استاذى ومعلمى القدير ووالدى الحبيب الاستاذ @ابوخليل هذا كود استرجاع الجداول والاستعلامات ولكن بشرط عدم اغلاق القاعدة كما تفضلتم وذكرتم 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 احتمال

تفضل .... Tailorb.accdb

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

أخى ابو زاهر طمنى الأول مشكلة الباركود إتحلت؟ إستفسار .. هيا القاعدة BB لو مش عاوز تفتحها نهائيا فلم أنشأتها .. تمسح جداولها من القاعدة AA وتنقل اليها الجداول من ال Backup ال AA مش فاهم .. ..

في هذا الملف نموذج عما تريد فقط اكمل المصفوفة بما تشاء من اختصارات و ما يقابلها من اسماء ونفذ الماكرو 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

أستاذنا ابا جودى أنا مليش فالتحدى .. أنا راجل عجوز على أدى ـــــ بالألف وليس بالقاف لزوم ولامؤاخذه الأفيه دا أخر ما قدرت أعمله .. كمل انت وإعمل مالتى سيلكت aa.rar

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

يمكن ان تستعين بالمعادلات الموجودة في هذا الملف لتكملة ملفك الخاص working_hours.xls

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

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

بس انا ما استوعبت جدول داخل جدول تيهتني بهذة

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

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

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

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

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

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

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

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

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

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

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

Private Sub CommandButton1_Click() Dim sh As Worksheet Dim ws As Worksheet Set ws = Sheets("ÝÇÊæÑÉ") Dim lr Application.ScreenUpdating = False Dim rng1, rng2, rng3, rng4, rng5, rng6, rng7, rng With ws Set rng = .[b8] Set rng1 = .[b4] 'ÇáÊÇÑíÎ Set rng2 = .[a4] 'ÑÞã ÇáÝÇÊæÑÉ Set rng3 = .[b29] 'ÇáÚÏÏ Set rng4 = .[d31] 'ÇÌãÇáí End With For Each sh In Sheets ' ' حلقة تكرارية للتنقل بين الشيتات If sh.Name = "فاتورة" Then GoTo 1 ' ادا كان اسم الشيت "فاتورة" انتقل الى الشيت الاخر If rng.Text = sh.Name Then 'الشرط هنا يعود الى قيمة الخلية"ب8" وادا تطابق مع اسم احد الشيتات ينفد lr = sh.Range("a" & Rows.Count).End(3).Row + 1 ' متغير لمعرفة اخر خلية فارغة العمود "ا" sh.Range("a" & lr) = rng1 'يضع قيمة مخزنة في متغير "ر ن ج 1" في اخر خلية فارغة العمود "ا" sh.Range("c" & lr) = rng2 ' يضع قيمة مخزنة في متغير "ر ن ج 2" في اخر خلية فارغة العمود "س sh.Range("d" & lr) = rng3 'يضع قيمة مخزنة في متغير "ر ن ج 3" في اخر خلية فارغة العمود "د sh.Range("e" & lr) = rng4 'يضع قيمة مخزنة في متغير "ر ن ج 4" في اخر خلية فارغة العمود "و sh.Range("a" & lr).Resize(1, 7).Borders.LineStyle = 1 ' End If 1: Next sh Application.ScreenUpdating = True End Sub اتمنى ان يكون الشرح كافي

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

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

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

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

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

جرب هذا الماكرو الاسم المطلوب في الخلية A1 تم تغيير اسماء الشيتات الى source_sh و target_sh لحسن عملية نسخ الكود ونقله بحيث لا تظهر حروف غريبة Sub Find_Recorde() Rem Created By Salim Hasbaya On 24/9/2019 Dim S As Worksheet: Set S = Sheets("source_sh") Dim T As Worksheet: Set T = Sheets("target_sh") Dim Nam: Nam = T.Cells(1, 1) Dim My_RG As Range Dim Saerch_Rg As Range T.Cells(3, 1).CurrentRegion.Clear Dim col%, Ro%, Actual_ro% Set Saerch_Rg = S.Columns(5).Find(Nam, lookat:=1) If Saerch_Rg Is Nothing Then MsgBox _ "This Name Dos not exit or Wrong Name" Exit Sub End If Ro = Saerch_Rg.Row + 1 col = S.Cells(Ro, Columns.Count).End(1).Column Actual_ro = S.Cells(Ro, 1).End(4).Row - Ro + 1 With T.Cells(3, 1).Resize(Actual_ro, col) .Value = S.Cells(Ro, 1).Resize(Actual_ro, col).Value .Borders.LineStyle = 1 .NumberFormat = "[$-,10A] ddd d mmm yyyy" .Interior.ColorIndex = 24 .Font.Bold = True End With End Sub الملف مرفق Record.xlsm

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