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

تفضل حسب طريقتك SandAll3.rar

,كذلك ولاثراء الموضوع في حالة الطرح غير هذا السطر Range("a2:a10").PasteSpecial Paste:=xlPasteValues, Operation:=xlAdd بهذا السطر Range("a2:a10").PasteSpecial Paste:=xlPasteValues, Operation:=xlSubtract

اتفضل [Forms]![SandExpense_F].Refresh [Forms]![SandExpense_F]![Amount] = [Forms]![SandExpense_F]![ExpenseDate_Sub]![Total1] [Forms]![SandExpense_F]![Amount].Requery Me.Refresh Total1.Requery Me.notes.SetFocus

Me.Requery [Forms]![SandExpense_F]![Amount] = [Forms]![SandExpense_F]![ExpenseDate_Sub]![Total1] Me.Refresh هذا لتحديث الاجمالي

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

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

ماشالله عمل جبار تشكر عليه استاذنا الغالي

هل احد جرب المزامنه عن طريق قوقل درايف

تفضل بحث1.xlsm

السلام عليكم ورحمة الله وبركاته حمّلت ملفاً من أحد المواقع التي طلب صاحب الملف فيها من الأخوة طريقة حساب الزكاة فوجدت أن أحد الأخوة قال له اضرب المبلغ الإجمالي بــ 2.5% وسيخرج لك المبلغ المتوجب عليك دفعه عندما نظرت إلى المبلغ النقدي وجدت أنه لايبلغ النصاب وأن الأخ الذي وضع له المعادلة فاته شيءٌ هام وهو: زكاة النقود يجب أن تبلغ النصاب حتى يتم إخراج الزكاة عنها ونصابها يقاس على الذهب أو الفضة (وإن كان البعض يرجح قياسها على الفضة رحمةً بالفقراء) فقمت بصياغة معادلة لزكاة النقودة لذلك سترونها بالمرفق معه الشرح مرة حسب سعر الذهب وأخرى حسب سعر الفضة ثم قمت بصياغة معادلة لزكاة الذهب ومعادلة لزكاة الفضة وأحببت أن أكمل العمل فصغت معادلات لحساب زكاة الغنم والبقر والإبل ولمّا كانت زكاة البقر والإبل دقيقة في الشريعة الإسلامية لم أستطع أن أضع معادلة تقبل أي رقم يدخله المستخدم لعدد رؤوس البقر أو الإبل فالمعادلة التي صغتها لحساب زكاة البقر كانت لا تقبل أكثر من الرقم 249 فلن تحسب الزكاة إذا كان المبلغ أكبر من ذلك أما الإبل فالمعادلة التي صغتها لحساب زكاته لن تقبل عدد أكبر من 209 رأساً من الإبل والسبب أن التقسيمات دقيقة للغاية طبعاً بإمكاني أن أكمل للألف وأكثر ولكني وجدت أنني غير قادر على وضع معادلة واحدة كما فعلت في البقية وصلت لنتيجة أن زكاة البقر والإبل قد تحتاج لكود عن طريق الفيجوال وهذه نتركها للأساتذة في هذا المنتدى أسأل الله عزوجلَّ القبول أنتظر آراء الأخوة والأساتذة هنا وتعقيباتهم التي لا نستغني عنها أبداً لا تنسونا من دعوة في ظهر الغيب ملاحظة كلمة سر الحماية للملف هي: 12 abo_akram.rar

اكتب امري طباعة لكل تقرير على حدة في نفس حدث الزر

اتفضل اليك هذا Private Sub Command0_Click() Dim NameTblimport As String Dim txtpathfile As String NameTblimport = "Table" ' اسم الجدول المراد استيراده txtpathfile = Application.CurrentProject.Path & "\b.mdb" ' مسار قاعدة البيانات التي بها الجدول DoCmd.DeleteObject acTable, NameTblimport DoCmd.TransferDatabase acImport, "Microsoft Access", txtpathfile, acTable, NameTblimport, NameTblimport, False End Sub DeleteAndImportTableFromAccess

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

الملف طباعـــــــــــــه صفحات.rar

جرب هذا الكود Option Explicit Sub Create_TOC() Dim wbBook As Workbook Dim wsSheet As Worksheet Dim lnRow As Long Dim lnCount As Long Set wbBook = ActiveWorkbook With Application .DisplayAlerts = False .ScreenUpdating = False End With ''''''''''''''''''''''''''''''''''''''''''''''''''''''''' On Error Resume Next Sheets("TOC").Select ' TOC (Table Of Contents) If Err.Number = 9 Then Sheets.Add Sheet1: ActiveSheet.Name = "TOC" ActiveSheet.Range("A2:a500").ClearContents On Error GoTo 0 lnRow = 2 lnCount = 1 For Each wsSheet In wbBook.Worksheets If wsSheet.Name <> "TOC" Then With ActiveSheet .Hyperlinks.Add .Cells(lnRow, 1), "", _ SubAddress:="'" & wsSheet.Name & "'!A1", _ TextToDisplay:=wsSheet.Name End With lnRow = lnRow + 1 lnCount = lnCount + 1 End If Next wsSheet With ActiveSheet.Range("a1:d500") .Font.Size = 20 .Font.Bold = True .Columns("A:d").EntireColumn.AutoFit End With With ActiveSheet .Range("a1") = "المحتويات" .Range("c1") = "عدد الصفحات" .Range("d1") = lnCount - 1 End With With Application .ScreenUpdating = True .DisplayAlerts = True End With End Sub الملف مرفق h link salim.rar

تلبية لرغبة الاخ محمد ممتاز تم التعديل على الكود ليظهر الصف الاول عند الطباعة مع الاحتفاظ بعدد الصفوف المطلوبة لكل صفحة طباعة ما عدا اخر صفحة اذا كان عدد الاسطر اقل من المطلوب تظهر البيانات المتبقية مع الاجمالي طباعة أول سطر في كل صفحة مفعلة تستطيع ان تراها من خلال Print Preview (لكن لا يظهر اول سطر على الشاشة العادية) auto_sum advanced.rar

السلام عليكم ورحمة الله وبركاته اخوانى واحبابى فى الله وجدت اداه لتحسين شكل الفورم هى قديمه وحتى الموقع التابع لها لم يعد يعمل ولكن وجدتها ومعها تسجيل لها الاداه اسمها نايس بانل تمنياتى لكم بالتوفيق والنجاح ConectExcel3.rar

السلام عليكم أساتذتى واخوانى بالمنتدى تناولت فى موضوعى السابق طريقة نقل بيانات من ملف مغلق الى ملف مغلق أخر بطريقة تسمى ado وهى اختصار للعبارة ActiveX Data Objects بدأ العمل بها فى مايكروسوفت 1996 تستخدم هذة الطريقة فى ترحيل ونقل البيانات بين الملفات استخدمت هذه الطريقة فى جلب البيانات الى شيت رئيسى ثم ربطت الشيت الرئيسى بشيت آخر بلينك . بعد ذلك قلت لنفسى لو عندى كود لادخال البيانات الى ملف مغلق يبقى الأمر 10/ 10 ثم بحث عن كود ووجدت واحد فى أحد المواقع الأجنبية وقمت بتعديله بطريقة لا يشعر فيها المستخدم بأن الملف ده اتفتح والتفاصيل هنا : http://www.officena.net/ib/index.php?showtopic=57798 والحمد لله تم استبدال اللينك بكود . وتركت لكم الملفات فى الرابط ده . مرة مستخدما اللينك ومرة الكود فى ادخال البيانات للملف المغلق . و اليوم أقدم لكم كيفية جلب البيانات من 3 ملفات مغلقة دفعة واحدة وبضغطة زر واحدة ومن ثم ترحيلها وادخالها الى ملف مغلق آخر دون شعور المستخدم بذلك وهذا يتم بذات الطريقة السابقة . للأصدقاء من خارج المنتدى : على الميديا فاير من خلال الرابط التالى http://www.mediafire.com/download/gidslzjdssb2jii/copy__data_from_a_closed_excel_file__&_paste_it_in_a_closed_excel_file_by_mokhtar_(__3_).rar للأصدقاء فى المنتدى : تفضلوا الملفات فى المرفق التالى . أرجوا أن يفيدكم وتستمتعوا به تحياتى للجميع copy data from 3 closed excel file & paste it in a closed excel file by mokhtar ( 3 ).rar

هذا تجميع لأهم الدروس والمواضيع المميزة بالمنتدى ضم روابط المواضيع المثبتة من أعمال معلمينا الفضلاء ومبدعينا في صفحة واحدة .. وذلك من باب التجديد والتغيير وإعطاء مساحة اكبر للمواضيع المتجددة .. *********************************************************************** أولا : توجيهات للأعضاء الجدد في المنتدى ثانيا : طلب من جميع الخبراء وجميع الاعضاء النشطاء الذين يتصدون للحلول وإجابة السائلين *********************************************************************** القسم الأول : الجداول والاستعلامات: الاستعلام الجدولي والمعايير القسم الثاني : النماذج: شرح أداة WebBrowser 1 2 شاشة انتظر من فضلك !! | سلسلة مهارات في أكسس | 06 | توسيط النماذج داخل النافذة أو الإطار طريقة إبداعية لتغيير خلفيات جميع النماذج إعادة تسمية العناصر الكثيرة دفعة واحدة في النموذج بأسماء متسلسلة مثل : ( Box2 , Box1 , ... ) ⭐ كيف تغير اللغة في برامجك ⭐ ✨💻 صفحة رئيسية متطورة بقائمة جانبية وأزرار فرعية ⭐ التحكم الكامل فى واجهة اكسس ( تصغير بجوار الساعة - توسيط - اخفاء - تغيير أيقونة شعار أكسس ) القسم الثالث : التقارير: مسقط التقارير او صانع التقارير انشاء شريط طباعة للتقرير القسم الرابع : الماكرو والوحدات النمطية VBA: إنشاء دروس VBA أكسس كشكول VBA ترجمة النصوص وتحويلها إلى صوت في vba باستخدام جوجل ( تجارب وفوائد ) :: دالة لحساب أيام الحضور والغياب .. وفكرة عد القيم النصية في حقول السجل الواحد :: اجعل برنامجك يعمل على النواتين 32بت و 64بت اجعل برنامجك يعمل على النواتين 32بت و 64بت _ طريقة ثانية شخابيط ابو جودى: سلسلة منافع مختلفة لتجميعات دوال عامة وافكار مختلفة ( بداية مهمه لتسجيل الاخطاء) شخابيط ابو جودى: سلسلة منافع مختلفة لتجميعات دوال عامة وافكار مختلفة ( FileDialog ) شخابيط ابو جودى: سلسلة منافع مختلفة لتجميعات دوال عامة وافكار مختلفة ( بداية مهمه لتسجيل الاخطاء) شخابيط ابو جودى: سلسلة منافع مختلفة لتجميعات دوال عامة وافكار مختلفة ( FileDialog ) شخابيط وافكار : اليوم اقدم اليكم منفعة لا غنى عنها (ImmediateWindowHelper) تفقيط عام متعدد : تحويل الارقام وقيمة ارقام العملة أو ( عملات متعددة ) الى نص مع التفقيط باللغة العربية ولغة اخرى منتقى التواريخ "Date pickers" القسم الخامس : قواعد البيانات SQL وما يتعلق بها: أكسس و اسكيوال سيرفر Access with Sql Server الأكسس و SQL جُمل SQL مشاركة قاعدة البيانات على الانترنت بواسطة SQL Server [تطبيق] تحويل قاعدة بيانات اكسس الى SQL Server (الجزء الاول _ الجزء الخامس) ربط الاكسيس ب php القسم السادس : البرامج والأدوات والإضافات: إدارة الجداول المرتبطة ، أداة وشروحات نظام مراسلة واشعارات شبيه بالفيس بوك معالج بحث وتصفح مسقط التصفح كارنيهات باستخدام باركود ماتركس - QR code محاكاة برنامج واتساب بالاكسس .. هدية لاوفيسنا القائمة المختصرة - Shortcut menu ارسال رسائل whatsapp (وتساب) بدون حفظ الرقم رسائل whatsapp (وتساب) في اكسس رسائل whatsapp (وتساب) بدون حفظ الرقم ( الكاتب الذكي لدوال المجال في أكسس Dloockup, DCount, DMax, DMin, Dfirst, DLast , DSum, DAvg) ⭐⭐(( مكتبة الأكواد الخاصة )) :: الإصدار الثاني 2.0 ⭐⭐ ، /// ، مكتبة الأكواد الخاصة | سلسلة هدايا الأكسس | 04 | 🎁 - 📟 آلة حاسبة 📟 - هدية مميزة مفتوحة المصدر 🎁 🖌️✏️👨😉🧑‍💻 ... برنامج دردشة بين المستخدمين على الشبكة ... 👨‍💻🧑‍💻✍️😊✏️🖊️ 🎁 :: هديتي لكم :: 🌷📨 >> برنامج مرسال الواتسأب - مع المرفقات - << ✉️ 🙂🌷💌 🎁 :: مرسال الواتسأب :: 📨 :: الإصدار الثاني 2.0 :: مطور :: 🧬🏹 🎁 هدايا الأكسس ✨ | 03| زاد المثابر للحصول على أسماء العناصر في أكسس | أداة رائعة للمطورين 🧛🏻‍♂️ [الاصدار الثاني] ارسال رسائل جماعية لعدد x من المستخدمين على الواتس اب في الاكسس هدية: برنامج تصدير بيانات من جداول/استعلامات اكسس الى اكسل ، 32بت و 64بت هداء لكم برنامج بسيط للديون والسداد 🟢 واتساب ويب web.watsapp 🟢 هدية : تصدير كائنات دفعة واحدة الى قاعدة أخرى أو حسب إختيارك 🧮 الكاتب الذكي لدوال المجال |::| 📜 نسخة مطورة ومحدثة |::| 😊 الإصدار الثاني 2.0 ⭐ كيف تغير اللغة في برامجك ⭐ القسم السابع : الأفكار والنصائح والتوجيهات: مواضيع مهمة .. قراءة وتفكيك بيانات الحقل الى حقول تطبيقات وأفكار وتلميحات تخفيض امان windows وتسجيل المكتبات عند تنصيب البرامج هام لمطورى ومصممى قواعد البيانات إنتبهوا حتى لا تواجهوا مشاكل مع العملاء خلاصة الأقوال .. حول مسائل الحماية 🔒🔑💪🏻 القسم الثامن : مواضيع متنوعة: ملف للبحث عن المواضيع في هذا المنتدى بعض المواضيع المتميزة والمهمة ( 8 ) الحماية برقم القرص الصلب والمعالج واللوحة الأم شرح أكسس 2003 - 2007 - 2010 - 2013 ( صوت وصورة ومرفقات ) رفع نسخة احتياطية على السحابة (google drive) ::💡 أفكار وفوائد 💡:: أسهل طريقة لعمل مربعات صح ✔ أو خطأ ✘ بالحجم واللون الذي تريده ❌☑️✔️✅❎ ⭐⭐ طريقة إبداعية لتحديث نسخة الواجهات FE 🖥️ لدى المستخدمين بدون برامج أو أدوات خارجية 😊👌⭐⭐ رمز الاستجابه السريع QR CODE حسب متطلبات هيئة الضرائب السعودية: ------------------------------------------------------ 1. https://www.officena.net/ib/topic/112126-موضوع-مهم-للنقاش-ماهو-مستقبل-الاكسس-بعد-تطبيق-المرحله-الثانيه-للفاتوره-الاكترونيه/ 2. الموضوع والمرفقات النهائية لرمز الاستجابه السريع QR CODE حسب متطلبات هيئة الضرائب السعودية 3. https://www.officena.net/ib/topic/112589-مكتبة-الموقع-الفاتورة-السعودية-المبسطة/ --------------------------------------------------------------------------------------------------------------------------------------------------------------- القسم التاسع : الدروس والشروحات والمشاريع : طريقة /اضافة صوت للاكسس مع التحكم فى (الايقاف/التشغيل) للصوت تصميم قاعدة بيانات احترافيه لإدارة يوميات وشئون العاملين

السلام عليكم أخي الصدِّيق طبعا يتم هذا الأمر من صفحة DATA هذا هو الكود Sub Shift() Sheets("Data").Activate LR_C = [E60000].End(xlUp).Row For r = 4 To LR_C 'المرور علي أسماء العملاء ، إن وجد ورقة بالإسم ذهب لبرنامج الكتابة عليها 'وإن لم يجد ، يتم تكوين ورقة جديدة بالإسم ثم يذهب للكتابة عليها clnt = Cells(r, "D"): cl_Cod = Cells(r, "E"): cl_addr = Cells(r, "F") If clnt = "" Then GoTo 20 For i = 1 To Sheets.Count If Sheets(i).Name = clnt Then GoTo 10 Next i 'برنامج تكوين ورقة جديدة بإسم العميل Sheets("sample").Visible = True Sheets("sample").Copy after:=Sheets(Sheets.Count) With Sheets(Sheets.Count) .Name = clnt .[B1].Value = cl_Cod .[B2].Value = clnt .[D2].Value = cl_addr End With Sheets("sample").Visible = xlVeryHidden Sheets("Data").Activate 10 'برنامج الكتابة علي ورقة موجودة بإسم العميل If r <> LR_C Then n_LR = Cells(r, 2).End(xlDown).Row - 1: GoTo 15 n_LR = [H10000].End(xlUp).Row 15 LR = Sheets(clnt).[D60000].End(xlUp).Row + 1 Range("B" & r & ":C" & r).Copy (Sheets(clnt).Cells(LR, 1)) Range("G" & r & ":K" & n_LR).Copy (Sheets(clnt).Cells(LR, 3)) 20 Next r End Sub أنظر المرفق فاتورة جديدة6.rar