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

السلام عليكم و رحمة الله مشاركة مع الأخي ابو بسمله رغم اتمام الاجابة و الطريقة تصفية كل النموذج و تقرير عن طريق vba az2.accdb

استبدل الى هذا الماكرو (يجمع كل الألوان ما عدا الابيض) Option Explicit Private Sub Cmd_sum_Click() Dim s#, Sh As Worksheet, x As Boolean For Each Sh In Worksheets x = Sh.Range("A1").Interior.ColorIndex <> xlNone s = s + IIf(x, IIf(IsNumeric(Sh.Range("A1")), _ Sh.Range("A1"), 0), 0) Next Me.My_lebl.Caption = IIf(s <> 0, s, "No Numbers") End Sub الملف من جديد User_form_1.xlsm

بالتوفيق ....

استخدم هذا الكود a=nz([Text1];"لم يباشر")

بسم الله الرحمن الرحيم السلام عليكم اخواني الكرام الموضوع كيف يعامل مجموعة مستخدمين مع قاعدة البيانات من خلال الانترنت بدلا من الشبكة المحلية ( الداخلية ) لتباعد المسافات بين المستخدمين الفكرة سهلة كنا بنجمع الاجهزة علي الشبكة المحلية عن طريق وسيط وهو اسلاك بتربط الاجهزة ببعضها خلاص بيقي عايزين وسيط غير الاسلاك الوسيط هو موقع وله برنامج هننزله عنوان الموقع https://my.zerotier.com/login صفحة تحميل البرنامج https://www.zerotier.com/download/ 1 – نحمل البرنامج من صفحة التحميل 2 – نسطب البرنامج زي اي برنامج نسيب البرنامج بقي كدة خلاص نروح الموقع ونسجل فيه ندوس علي المربع الاصفر دي الصورة طبعا احنا عضو جديد ندوس علي ريجستر زي الصورة 1 2 اذهب الي الايميل بتاعك وفعل العضوية بعد ما تفعل العضوية هيدخلك علي الصفحة دي دوس علي نتوورك زي الصورة من اول هنا بقي يبدأ الجد ركز مع الصور اتبع الارقام الموجودة علي الصورة ونفذ الموجود بها وتوصل لرقم 3 وتضغط كما هو موضح بالصورة هيدخلك علي الصورة اللي جاية -- دي صفحة اعدادات الشبكة بتاعتك اتبع ما جاء بالصورة انسخ الرقم وضعه كما في الصورة القادمة كدة شبكتك تمام وجاهزة للشغل بس فيه سؤال هو كل واحد من المستخدمين هيعمل الدوشه دي كلها ؟؟؟ الاجابة : لا طبعا دي انت بس علشان انت صاحب الشبكة اما المستخدمين يعني الاجهزة التانية يا دوب هيسطب البرنامج ويحط الرقم اللي انت اديتهوله وهو بالنسبة للشبكة دي اللي عملناها دلوقت 885033839097d605 وكل شبكة طبعا ارقامها بتختلف عن غيرها أي واحد هيسطب البرنامج ويضيف الرقم ده في مكانه مثل الصورة وانا اقبله من عندي يبقي مشترك معايا علي الشبكة وممكن احذفه واضيف غيره يعني الاضافة والحذف براحتك سؤال تاني هو كام جهاز ممكن يشتركوا في الشبكة بتاعتي ؟ طبعا لان حضرتك عضو مجاني عندهم لك تضيف لغاية 100 جهار بعد كدة بفلوس طبعا انت مش محتاج كل ده المشاريع الصغيرة اللي عندنا يا دوب من 3 : 10 اجهزة يعني انت تبعنا في ابو بلاش ------------------------------------------------------------------------------------------------------------------------------------------------------------- كدة اللي فاضل نجهز قاعدة البيانات ونقسمها ونشيرها نفتح قاعدة البيانات بتاعتنا حدد مكان التقسيم في جهازك وخلاص اتقسمت اصبحت جزء باسم قاعدة البيانات لو اسمها مثلا ( اشرف ) والجزء الثاني اشرف ) وهو ده اللي فيه الجداول ده هو اللي هيتشير فقط _be ( يفضل اعدادات الشير – شوف يا باشا دي سهلة بس ركز مع الصور في جهازك روح علي Control Panel Network and Internet Network and Sharing Center Advanced sharing settings تلاقيها بالشكل ده يفضل ازاي نشير قاعدة البيانات اول حاجة نضع جزء الجداول في مجلد ونسميه اي حاجة ثم نضغط كليك يمين علي المجلد ونختار Give access to Specific people بكدة يبقي احنا شيرنا الملف اللي فيه الجداول نعطي بقي نسخة من الجزء الثاني من قاعدة البيانات للاحهزة المراد ضمها للشبكة وكل مستخدم يعدل مسار الجداول المرتبطة علي مكان الشير في جهازك اللي يعتبر سيرفر للتجربة انا مشير نموذج علي جهازي اللي عايز يجرب اولا يحمل البرنامج ويسطبه كما في الصور اعلاه ويضع الرقم 885033839097d605 وانا ان شاء الله هقبل اضافته للشبكة اللي عملناها دي ولما اقبله جهازي هيظهر عنده باسم اشرف ويحمل النموذج من الموضوع هنا ونتواصل مع بعض علي القاعدة دي عن بعد و يمكن من بلاد مختلفة لتوضيح الفكرة ولمعرفة سرعة استجابة القاعدة في التعامل وذلك بعد العاشرة مساء بتوقيت القاهرة او لما تلاقيني متواجد بالموقع ولمدة يومين فقط للتجربة بعدها ساغلق الشبكة ملاحظة : الجهاز اللي متشيره عليه الجداول يعتبر زي سيرفر يعني لو مغلق او النت مفصول فلا يمكن التواصل انتهي الموضوع اتمني ان يعجبكم اسف علي الاطالة لكن كان لازم التفصيل احتراما وتقديرا لطلب الاساتذة ( حلبي - Barna - أحمد الفلاحجى - الأمير هشام ) واي استفسارات انا معاكم ان شاء الله اشرف.accdb

تامر اخى @فايز.. استخدمنا داله iif فى حاله ان الحقل n1 غير فارغ نفذ داله dlookup والا ضع 0 داله dlookup لجلب القيمه من الحقل piece بالجدول جدول القطع ( ولان جدول القطع متكون من كلمتين وبينهم مسافه فوضعناه بين [] ) الذى رقمه ID = n1 ولان حقل الرقم حقل رقمى فكتبناه "ID=" & [n1] اما لو كان نصى فسنكتبه كالتالى "ID='" & [n1] & "'" ارجو ان اكون قد وفقت للشرح اخى فايز وازيدك فالشرح لاساتذتنا جزاهم الله خيرا 💐 بالتوفيق

تعديل الماكرو Option Explicit Private Sub Cmd_sum_Click() Dim s#, Sh As Worksheet, x As Boolean For Each Sh In Worksheets x = Sh.Tab.ColorIndex <> xlNone s = s + IIf(x, IIf(IsNumeric(Sh.Range("A1")), _ Sh.Range("A1"), 0), 0) Next Me.My_lebl.Caption = IIf(s <> 0, s, "No Numbers") End Sub

وعليكم السلام-من فضلك انتبه قبل رفع المشاركة من استخدام خاصية البحث بالمنتدى , تفضل كود لحماية نطاق دون حماية ورقة العمل لكامل المستند

TextBox1.Value = Format(TextBox1.Value, "HH:mm:ss")

وده نفس الحل لكن بالاستغناء عن حقول التسميه والاعتماد ع تسميه الزر نفسه واكيد فى حلول افضل az2.accdb

واياك استاذي وجوهرة المنتدى @احمد الفلاحجي بارك الله فيك وجهودك الواضحة في المنتدى

تقضل ....... جمعية خيرية.accdb

هذا الماكرو Private Sub CommandButton2_Click() Sheets("sheet2").Range("A5").CurrentRegion.Clear Sheets("sheet1").Range("A5").CurrentRegion.Copy _ Sheets("sheet2").Range("A5") End Sub

كان من المفروض رفع ملف الوقت ضيق جداً لإنشاء ملف يحتوي عما تريد لكن حيث انها المرة الاولى اليك هذا النموذج User_form.xlsm

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

تسلم استاذي الفاضل دعائي لك اللهم أعطه مايتمنى وما تحب له وترضى، اللهم أسألك لهذا الإنسان بأن تجعله عن الهم بعيد والرحمة قريب وحقق له كل مايريد وأجعل اليوم له عليه سعيد.

واضح جزاك الله خيرا ودي أجي مصر .. بس ما فيش طيران ...

تسلم حبيبي abouelhassan

تمام استاذنا الفاضل abouelhassan هذا الذي كنت ابحث عنه بارك الله فيك

تفضل هدا الماكرو يعتمد على تسجيل التاريخ اليوم في الخلية A1 ادا وجد تاريخ اليوم هو نفسه تاريخ اليوم . لن يشتغل الماكرو . و ان وجد تاريخ غير اليوم يشتغل عادي و يسجل تاريخ اليوم في الخلية A1 Book2.xlsm

تجد برنامج الغاء الشفت في هذه المشاركة

وعليكم السلام اخى @محمد التميمي اتفضل ان شاء الله يكون ما تريد =IIf([n1]<>"";DLookUp("piece";"[جدول القطع]";"ID=" & [n1]);0) بالتوفيق اخى piece.rar

اعلم اخى انه لتنوع الحلول ولكنى افضلها فعلا احسن الله اليك وجزاك الله خيرا 💐 وجزاك الله خيرا على ظنكم الحسن فى واسال الله ان اكون عند حسن ظنكم

شاهد هذا الموضوع عله يفيدك

عند حماية الشيت حدد هذا المربع في الصورة

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

المعادلات محمية ضد الخذف او التغيير بالنسبة للفرز يمكنك الفرز (بدون Header)

تم معالجة الأمر Salim_dates.xlsm

جرب هذا الملف الكتابة فقط في الخلايا الخضراء لا لزوم لتغيير الشهر كل مرة يكفي اختيار الشهر من القائمة المنسدلة في الخلية R1 واكسل يدرج لك كل التواريخ للشهر المناسب Salim_dates.xlsx

يارب يبارك فيك ... ويعطيك مثلما تدعو ... ويزيدك من فضله

وعليكم السلام-فقد نبهنا مئات المرات ,ان لا تنتظر اى مساعدة او استجابة من الأساتذة بدون رفع ملف مدعوم بشرح كافى عن المطلوب مع وضع شكل النتائج المرجوة ... حيث لا يمكن العمل على التخمين وتجنباً لعدم اهدار وقت الأساتذة وبما انك لم تقم برفع ملف فكان عليك لزاماً استخدام خاصية البحث بالمنتدى فبه طلبك : التعديل على كود إرسال ملف االاكسل عبر الايميل أو هذا طريقة ارسال الشيت عبر الايميل وهذه فيديوهات أيضاً لتوضيح وعمل المطلوب https://www.youtube.com/results?search_query=ارسال+الإميل+من+برنامج+الإكسيل

جواهر المنتدى هو انتم اخوانى واساتذتى فلست سوى طالب علم اتعلم منكم واساعد اخوانى كما اتعلم منكم جزاكم الله عنا خير الجزاء ورزقكم من فضله وعلمه 💐

مفيش فرق اخى @ازهر عبد العزيز الكود الذى ارفقته مضاف اليه اسم الجدول فقط

الشكر لله ثم لاخواننا واساتذتنا جزاهم الله خيرا 💐 اتفضل اخى @ازهر عبد العزيز بالتوفيق اخى New Microsoft Access Database(1).accdb

انا فقط جربت لفترة بسيطة وخرجت 🌹

عالم ثاني متابع 👀

وعليكم السلام-يمكنك استخدام هذه المعادلة =IFERROR(VLOOKUP(H7,$B$9:$C$13,2,0),"") 1mohd.xlsx

هو المطلوب أستاذى الكريم جعله الله في ميزان حسناتك

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

تم قسمة مجموع الهروب على 4 راجع النتيجة غياب 7.mdb

وعليكم السلام-تفضل ............ وهذه الصورة توضح كيفية عمل قائمة منسدلة TEST-STORE1.xlsx

بالتأكيد يمكن عمل هذا ببساطة -تفضل تم التعديل على الملف , وبكده يجب غلق الموضوع فتم تنفيذ كل طلباتك وذلك حتى لا يأخذ الموضوع أكبر من حجمه Abscent_Date1.xlsm

شؤؤن الموضفين.rar

جرب المرفق وكل عام وانت طيب حساب العمر بالسنة(1).accdb

اتفضل من ابداعات الاخت زهرة حساب العمر بالسنة.accdb

السلام عليكم 🙂 مشاركتي هنا مو معناها اني أؤيد هذا الطريق ، وانما لأنه تم فتح هذا الباب ، فاريد ان اضع بعض نقاط تجربتي فيه 🙂 1. لا تستخدم ملف System.MDW ، وانما اعمل منه نسخة واستعمل النسخة ، 2. احتفظ بنسخة من ملفاتك الـ MDW معك في مكان امين ، لأنك ستحتاج لها اذا فقدت النسخة الاصل ، 3. بما انك تقدر ان يكون عندك اكثر من مجموعة (مجموعة لبرنامج المحاسبة ، ومجموعة لبرنامج الصادر والوارد ، وووو) ، يفضل ان يكون اسم ملف الـ MDW هو نفس اسم برنامجك ، 4. خلي ملف MDW نفس مجلد الجداول BE ، وعليه ، يجب ان تكون كل الاختصارات تشير اليه ، 5. في البرنامج ، علشان تعرف اسم المستخدم ، الامر هو CurrentUser ، 6. يجب ان تفتح البرنامج من المختصر Shortcut من على سطح المكتب (رجاء متابعة النقطة تحت) ، وتعمل مختصر لكل مستخدم ، 7. اذا تم فتح البرنامج بدون المختصر (او اذا لم يوجد ملف MDW) ، فإسم المستخدم سيكون Admin ، وهذه كارثة ، لذلك يجب ان تحذف اسم Admin من قائمة المستخدمين في ملف MDW ، 8. في اول سطر ، عند فتح قاعدة البيانات ، يجب ان تغلق البرنامج اذا كان المستخدم هو Admin : if currentuser= "Admin" then docmd.quit end if 9. المختصر على سطح المكتب هو كما اشار اليه اخي ابا جودي ، 10. يمكن إضافة اسم المستخدم في المختصر (بدل ان يختار اسمه عند فتح البرنامج) : "C:\Program Files\Microsoft Office\Office\msaccess.exe" /wrkgrp "\\TT\WorkgroupFile.mdw" "\\TT\Database.mdb" /user UserName 11. يمكن إضافة اسم المستخدم وكلمة السر في المختصر (بدل ان يختار اسمه عند فتح البرنامج ، وادخال كلمة السر) ، ولكن حذاري ، فقد يعرفها المخربون : "C:\Program Files\Microsoft Office\Office\msaccess.exe" /wrkgrp "\\TT\WorkgroupFile.mdw" "\\TT\Database.mdb" /user UserName /pwd Password جعفر

يا سبحان الله ، كأني وضعت البرنامج لك http://www.officena.net/ib/topic/67834-هدية-إحمل-برامجك-داخل-قاعدة-بياناتك/ جعفر

السلام عليكم انا ابدا ما صار معي هذا الشئ في اي من برامجي ، نعم اثناء التصميم حصل (وهذا بسبب إهمالي ، حيث عندما تغير في كود النموذج ، فيجب ان يكون النموذج في وضع تصميم) ، وحصل ان مربع سرد عطب كذلك ، ولكن لنفس السبب. هذا معناه ، اننا يجب ان نراجع تصميم واجهة برنامجك ، وفهم البيئة التي يشتغل فيها البرنامج ، وطبعا لا يجب السماح للزبون بالوصول لوضع التصميم. نعم ، قد يكون نموذج الواجهة شبه معطوب من كثرة التعديلات عليه ، و بيئة الزبون من نوع الوندوز وتحديثاته ، والاكسس وتحديثاته ، وانقطاع الكهرباء (وهي احد الاسباب الرئيسية في العطب) ، وشبكة بها اكثر من اصدار أكسس ويعملوا على برنامج واحد ، مما يؤدي الى حدوث العطب الكامل لنموذج الواجهة ، ونوع الشبكة ، وهل هناك اتصال لاسلكي للبرنامج عند الانتهاء من عمل برنامج ما ، اعمل برنامج جديد واستورد كل كائنات البرنامج اليه ، واستعمل هذه النسخة ، فلو كان هناك عطب في احد كائنات البرنامج السابق ، لما تم استيراده جعفر

بارك الله فيكم إخواني وأحبابي على الحلول الجميلة أخي الكريم إتش جرب الملف التالي عله يفيدك .. Sub CountSumCF() Dim Ws As Worksheet, I As Integer, J As Integer Application.ScreenUpdating = False For Each Ws In ThisWorkbook.Worksheets Ws.Activate I = I + CountCFCells(Ws.Range("A1").CurrentRegion, Sheet1.Range("F1"), False) J = J + CountCFCells(Ws.Range("A1").CurrentRegion, Sheet1.Range("F1"), True) Next Ws MsgBox "Yellow Cells In All Sheets Count = " & I & vbNewLine & "Yellow Cells In All Sheets SUM = " & J Sheet1.Activate Application.ScreenUpdating = True End Sub Function CountCFCells(Rng As Range, C As Range, bCount As Boolean) Dim I As Single, J As Long Dim Chk As Boolean, Str1 As String, CFCELL As Range Application.Volatile Chk = False For I = 1 To Rng.FormatConditions.Count If Rng.FormatConditions(I).Interior.ColorIndex = C.Interior.ColorIndex Then Chk = True Exit For End If Next I J = 0 If Chk = True Then For Each CFCELL In Rng Str1 = CFCELL.FormatConditions(I).Formula1 Dim II As Integer Dim IIFlg As Boolean Dim Tmp IIFlg = False For II = 1 To Len(Str1) Tmp = Mid(Str1, II, 1) If ("0123456789" Like "*" & Tmp & "*") Then IIFlg = True Else If (IIFlg) Then Exit For End If Next Tmp = Right(Str1, Len(Str1) - II + 1) Str1 = "=" & CFCELL.Address & Tmp If bCount = False Then If Evaluate(Str1) = True Then J = J + 1 Else If Evaluate(Str1) = True Then J = J + CFCELL End If Next CFCELL Else CountCFCells = "Color Not Found" Exit Function End If CountCFCells = J Set Rng = Nothing Set C = Nothing End Function تقبل تحياتي Count & Sum Conditional Formatting Cells YasserKhalil.rar