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

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

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

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

تفضل .... Tailorb.accdb

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

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

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

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

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

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

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

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

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

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

هههههههههه اسف كنت مستعجل علشان الصلاة اتفضل 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

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

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

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

اتفضل فتح نموذج اكثر من مرة.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 وتكون الحروف سليمة