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

السلام عليكم ورحمة الله تعالى وبركاته نظرا لطلب اخى راعى الغنم وانا اكن لهذا الرجل كل تقدير واحترام كيفية استرجاع الجداول المحذوفة يمكن استرجاع الجداول المحذوفة فى قاعدة بينات اكسس ولكن بثلاث شروط 1 - لم يتم اغلاق قاعدة البانات بعد حذف الجدولا 2 - لم يتم ضغطها 3 - تم حذف الجدول باستخدام واجهة مستخدم اكسس ضع هذا الكود فى وحدة نمطيه Function UnDeleteTable(Optional sName As String) Dim db As DAO.DATABASE Dim tdf As DAO.TableDef Dim sTable As String Dim sSQL As String Dim sMsg As String If IsMissing(sName) Then sName = "RestoredTable" If Len(sName) = 0 Then sName = "RestoredTable" Set db = CurrentDb() For Each tdf In db.TableDefs If Left(tdf.Name, 4) = "~tmp" Then sTable = tdf.Name sSQL = "SELECT [" & sTable & "].* INTO " & sName sSQL = sSQL & " FROM [" & sTable & "];" db.Execute sSQL sMsg = "A deleted table has been restored as " & sName MsgBox sMsg, vbOKOnly, "Restored" GoTo Exit_Undelete End If Next MsgBox "No Recoverable Tables Found", vbOKOnly, "Not Found" Exit_Undelete: Set db = Nothing Exit Function Err_Undelete: MsgBox Err.Description Resume Exit_Undelete End Function ويمكنك استدعائها فقط بهذا الكود UndeleteTable("MyTable") لااعلم مدى اهمية ذلك بالنسبة لكم اخوانى الكرام ولكن ما كنت احبسه عنكم قم بتصميم قاعدة بينات للتجربة وانشء الجداول واضف بسجلاتك ثم قم بمسها واستدعها من خلاا الكود

السلام عليكم ورحمة الله وبركاته أقدم لكم موضوع بسيط جداً ومهم جداً ومفيد جداً ... وإن شاء الله بعد الإطلاع على الموضوع من قبلكم سيتم ضربي ضرباً مبرحاً جداً أكواد البداية والنهاية (على وزن سلسلة البداية والنهاية للعلامة ابن كثير) الموضوع يتلخص في كلمتين .. لما يكون عندك كود بيستغرق وقت طويل في التنفيذ ، دا بيرجع أسبابه لعوامل كثيرة ، لن نتظرق إليها لأنه موضوع يطول شرحه .. فجئت إليكم بحل بسيط وفعال ..الحل كالتالي .. تضع الكود التالي (كود البداية وكود النهاية) في موديول دا كود البداية Public Sub YK_Start() Application.ScreenUpdating = False Application.DisplayAlerts = False Application.EnableEvents = False Application.Calculation = xlCalculationManual End Sub ودا كود النهاية Public Sub YK_End() Application.ScreenUpdating = True Application.DisplayAlerts = True Application.EnableEvents = True Application.Calculation = xlCalculationAutomatic End Sub وكلا الكودين مسبوقين بكلمة Public عارفين ليه ؟ عشان تقدر ببساطة تضع الكودين في أي موديول وتستدعيهم من أي موديول آخر كود البداية بيلغي تحديث الشاشة ورسائل التنبيه ويلغي تفعيل الحدث ويخلي الحسابات بشكل يدوي وكود النهاية بيرجع اللي فات للإعدادات الأصلية في الملف المرفق مثال .. كود يقوم بعمل حلقة تكرارية لـ 100000 صف تم استدعاء كود البداية في البداية وكود النهاية في النهاية .. والاستدعاء تم بمحضر من القسم والمحضر مكتوب فيها كلمة واحدة Call يليها اسم الكود المراد استدعائه Sub LoopExample() Dim Cell As Range Call YK_Start Columns("B:F").ClearContents For Each Cell In Range("A1:A100000") Cell.Offset(, 1) = Cell.Value + 1 Cell.Offset(, 2) = Cell.Value + 2 Cell.Offset(, 3) = Cell.Value + 3 Cell.Offset(, 4) = Cell.Value + 4 Cell.Offset(, 5) = Cell.Value + 5 Next Cell Call YK_End End Sub وممكن نستغنى عن الكلمة Call ونكتب اسم الإجراء بشكل مباشر ، بس أنا تقليدي وأحب الالتزام بالتقاليد وأحبذ استخدام كلمة Call وضعت لكم بالملف المرفق كود آخر هو الذي سيتم تنفيذه من خلال ورقة العمل ، يقوم الكود بحساب الوقت المنقضي نفذ الكود ستجد أن الكود يستغرق حوالي 10 ثواني لحظة انتظر من فضلك لا تغلق الملف .. جرب التجربة الثانية .. ضع تعليق من خلال علامة ' (حرف الطاء وإنت بتكتب إنجليزي) ضع هذه العلامة في بداية السطر 'Call YK_Start عند وضع تعليق لا يتم الالتفات إلى هذا السطر أثناء التنفيذ وضع تعليق أيضاً على السطر الخاص بكود النهاية 'Call YK_End ثم نفذ الكود ..ستجد أن الوقت المستغرق حوالي 18 ثانية (يعني أن هناك حوالي - وحوالي جمع حولية والحولية هي النعجة - أعتذر للخروج ، بس مش مشكلة تستفيدوا معلومة في العربي عشان لو طلعتوا مش فاهمين الموضوع يبقا خرجتوا بمعلومة ) ستجد أن الفرق في الوقت 8 ثواني .. يلا الحمد لله وفرنا عليكم 8 ثواني ، وإنتو أكيد عارفين قيمة الثانية وفي النهاية أرجو أن يكون الموضوع مفيد ، وأن تستفيدوا منه ، ولا تنسونا بصالح دعائكم كان معكم أخوكم الموفر للثواني ياسر خليل أبو البراء دمتم بود وتقبلوا تحياتي YK_Start & YK_End.rar YK_Start & YK_End 2003.rar

بارك الله فيك . فى الموعد دائما لك كل التقدير والاحترام

السادة أعضاء المنتدى المحترمون , هل يوجد داله لتفقيط مبلغ الفاتورة مباشرة ولو تفقيط عربي وإنجليزي , يبقى جزاكم الله خيراً مثلاُ 1,200,000,85 بالعربي ( فقط مليون ومائتان ألف جنيه , 85/ 100 لاغير ) &&& ولو المبلغ بالدولار ( Only one Milion and Two thousand dollar and 85 cents )

مين قال انه مش مفيد الموضوع مهم جدا لانى اعتقد ان هناك اكود تستغرق دقائق لتنفيذها بارك الله فيك ا / ياسر و فى انتظار المزيد

يشرفني ان اكون اول المهنئين لك ولأنفسنا بالنجاح الباهر في الشرح شرح ولاأروع

أخي الكريم عبد العزيز قم بتغيير نوع الخط الافتراضي للفورم نفسه .. إلى نوع الخط الذي تريده بعدها ستجد أنه عند إدراج أي كائن مثل مربع نص أو عنوان ستجد أن نوع الخط الافتراضي سيكون كما اخترت للفورم

شكراً جزيلاً أخى العزيز وجزاك الله كل خير

السلام عليكم الشكر لله أخى الكريم ، و عليك بمراجعة البيانات فالنتيجة ليست بنسبة 100 % صحيحة و هناك بيانات تحتاج لتصحيح منك لذا عليك بالمراجعة ستجد ان هناك بيانات مكررة و بيانات أرقام مكررة او فى غير مكانها الصحيح هذا عائد لكون البيانات الاساسية غير منتظمة و ناقصة .. العمل فى جملته رائع و وفر وقت كبير للغاية .

السلام عليكم أخي الكريم اعتقد انك تقصد في كل مرة يتم تغيير قيمة في العمود E مثلا يتم ظهور وقت التغيير حضرتك شوف الملف المرفق ان شاء الله يكون في المطلوب أي قيمة تدخلها في العمود E سيتم كتابه والوقت والتاريخ في العمود Time قمت باستخدام المعادلات التالية: =IF(E3<>"",IF(D3="",NOW(),D3),"") وتم تفعيل خاصية iterative calculation في أوفيس 2007 كالتلي : من أيقونة Ribbon Excel Options Formulas وتضع علامة صح في Enable iterative calculation والصورة التالية توضح طريقة تفعيل الخاصية بشكل أوضح vault register time.rar

السلام عليكم ورحمة الله وبركاته ....جزاك الله خيراً وأضحك الله سنك ...أضحكتني وأدهشتني وأنا راض منك بما وصلني أخي الحبيب الغالي المحترم أبو البراء الله يلهمك الصواب ويجزئ لك الثواب ويرضى عنك يوم العرض والحساب .أخوك المحب لك أبو يوسف

استاذنا الفاضل شكراً لحضرتك وجزاكم الله خير والله ينور عليك وزادكم الله فضلاً وعلماً

الأخ الحبيب البليغ أبو يوسف معلش القطر اتأخر شوية (أصله عدى على الصيدلية فالقطرة غمزتله قام انشغل عن الطريق اتأخر .. آه من كيد القطرة) تفضل الملف المرفق تم العمل على ورقة العمل المسماة "كشف حساب" وتم جلب البيانات كما تريد ..بقي فقط عمود الرصيد ، ولأني لا أفهم الكثير في الحسابات فتركت لك المجال لتضع المعادلة المناسبة التي تحسب الرصيد .. جرب الملف المرفق وأعلمنا بالنتيجة Sub Tarhil() Dim WS As Worksheet, SH As Worksheet Dim I As Long, X As Long Set WS = Sheets("اليومية"): Set SH = Sheets("كشف حساب") X = 12 Application.ScreenUpdating = False SH.Range("A12:F29").ClearContents For I = 11 To 68 If CDate(WS.Cells(I, "L")) >= SH.Cells(7, "G") And CDate(WS.Cells(I, "L")) <= SH.Cells(8, "G") Then If WS.Cells(I, "D").Value = SH.Cells(7, "D").Value Then SH.Cells(X, "A").Value = SH.Cells(X, "A").Row - 11 SH.Cells(X, "B").Value = WS.Cells(I, "D").Value SH.Cells(X, "C").Value = WS.Cells(I, "L").Value SH.Cells(X, "D").Value = WS.Cells(I, "G").Value SH.Cells(X, "E").Value = WS.Cells(I, "M").Value SH.Cells(X, "F").Value = WS.Cells(I, "N").Value X = X + 1 End If End If Next I Application.ScreenUpdating = True End Sub تقبل تحياتي بحث بالأحرف الأولى وكشف حساب أبو يوسف.rar

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

ونعم الشرع ...لا أجمل من الضوابط التي تعطيك الخيارات ضمنها...ما زاد عن حده انقلب ضده ....لا إفراط ولا تفريط.

أخي الحبيب الموضوع يعتبر مكرر سأقوم بحذف الموضوع الآخر بالنسبة للترقيم هناك أكثر من طريقة سأكتفي بطريقة واحدة روح للتبويب View واختار Page Layout هيظهر معاك في آخر الصفحة كلمة Click to add footer اعمل كليك عليها ، هيظهر لك تبويب جديد اسمه Design وفيه كلمة Page Number ملحوظة : علامة # اللي بتظهر معاك دليل إن ورقة العمل فارغة مفيش فيها أي بيانات .. تقببل تحياتي

هل هذا ماتقصد تم اضفة عمود بالجدول لتثبيت العملة لكل مورد على حدة ! لاحظ الحدثين بعد التحديد لمربع التحرير والسرد وكذلك الحالي للنموذج الفرعي لاحظ انه يمكن تغيير التنسيق من خصائص مربع التحرير والسرد ومن قائمة القيم بالتوفيق Database21.rar

الأخ الكريم سعد زياد أهلا ومرحبا بك في المنتدى ومنور يا صاحبي يرجى فيما بعد إن شاء الله أن تضغط الملف نفسه وترفعه بدلاً من إرفاق صورة إليك الملف التالي عله يفي بالغرض يوجد بالملف المرفق 5 معادلات بالنسبة للمعادلات المكتوب بجانبها كلمة Array Formula عند كتابتها يجب الضغط على Ctrl + Shift + Enter لأنها معادلات صفيف عندك 5 اختار اللي تعجبك (ممكن يكونوا أربعة مفيش مشكلة بس 5 مع بعض لا مينفعش .. الشرع محللك أربعة بس ) تقبل تحياتي Smallest Number Greater Than Zero.rar

ﻛﻞ ﺍﻷﺷﻴﺎﺀ ﺗﺒﺪﺃ ﺻﻐﻴﺮﺓ ﺛﻢ ﺗﻜﺒﺮ، ﺇﻻ ﺍﻟﺤﺰﻥ ﻓﺈﻧﻪ ﻳﺒﺪﺃ ﻛﺒﻴﺮﺍ ﺛﻢ ﻳﺼﻐﺮ .. ﻭﻻ ﻳﺰﺍﻝ ﻳﺼﻐﺮ ﺣﺘﻰ ﻳﻜﺎﺩ ﻳﻨﺴﻰ.

الأخ: محمد حسن ..نسأل الله أن يفرج الهم.. ويزيل الكرب.. ....آمين....

السلام عليكم ورحمة الله أنا لا أفهم كيفية تشغيل هذا الملف الرجاء التوضيح لعله ما أبحث أنا عنه

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

اريد كود يجعل الاكسيل ينطق الارقام وكذالك الكلمات باللغه العربيه 1-النطق عند الكتابه 2-عمل زر للنطق بعد الكتابه كذالك ارجو شرح مبسط لذالك ومكان وضع الاكواد وكذالك عمل الزر جزاكم الله خيرا وبارك الله فيكم