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

السلام عليكم ورحمة الله تعالى وبركاته كل عام وانتم بخير وصحة وسعادة واسال الله تعالى ان يبلغني واياكم شهر رمضان واساله تعالى لى ولكم القبول هدية متواضعة اتمنى ان تنال رضاكم ( امساكية شهر رمضان ) طبعا تتم تغيير المواعيد او التواريخ وفقا لكل دولة التقويم المستخدم والمواعيد طبقا لمدينة القاهرة - جمهورية مصر العربية 147525677_.zip

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

كم انا محظوظ بجميع الاساتذة هنا جزاكم الله عني كل خير

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

اسف تم تعديل المرفق بالمشاركة الاولى لوجود خطأ واعادة رفعه مرة أخرى واعادة رفعه مضغوط هنا تقليلا للحجم pppp(v1).zip

تفضل التعديل حسب فهمي لطلبك PPP2.rar

جرب هذا الماكرو Sub MoveDataTOTable() Dim endrow%, n%, MAX_RO%, K% Dim M As Worksheet, D As Worksheet Set M = Sheets("Main") Set D = Sheets("DB") endrow = 1 MAX_RO = M.Range("B9").CurrentRegion.Rows.Count D.Range("A1").CurrentRegion.Offset(1).ClearContents If MAX_RO = 1 Then Exit Sub For K = 10 To MAX_RO + 10 If M.Cells(K, 2) <> "" Then n = n + 1 D.Cells(endrow + 1, 4).Resize(, 4).Value = _ M.Cells(K, 2).Resize(, 4).Value endrow = endrow + 1 End If Next If n Then With D.Cells(2, 2).Resize(n) .Value = M.Range("C6") .Offset(, 1) = M.Range("C7") .Offset(, -1) = Evaluate("Row(1:" & n & ")") End With D.Cells(2 + n, 5) = "TOTAL" D.Cells(2 + n, 7).Formula = _ "=SUM(G2:G" & n + 1 & ")" End If End Sub الملف مرفق KOUL.xlsm

السلام عليكم كل عام وانتم الى الله اقرب التطبيق يحتوى على عدد 2 جدول الاول : tblMassagesSetting به اسماء الأزرار والتى يمكن ترجمتها الى اى لغة يريدها المصمصم الثانى : tblMassages وهو الجدول الذى يمكن للمصمم اضافة الرسائل به ليسهل تغير محتوى الرسائل او تعديلها دون الدخول الى وضع التصميم تعريف لمحتويات الجدول tblMassages ( جدول الرسائل ) الحقل IDMasg : معرف الرسالة هنا يتم وضع كود لا يقبل التكرار لكل رسالة ليتم استدعاء الرسالة داخل صندوق الرسائل من خلاله الحقل MasgPrtOne : نص الرسالة (السـطر الأول) هنا يتم كتابة السطر الأول من الرسالة الحقل MasgPrtTow : نص الرسالة (السـطر الثانى) هنا يتم كتابة السطر الثاني من الرسالة الحقل MasgPrtThree : نص الرسالة (السـطر الثالث ) هنا يتم كتابة السطر الثالث من الرسالة الحقل MasgHead : عنوان الرسالة هنا يتم كتابة عنوان الرسالة الحقل MasgType : معرف رمز الرسالة هنا يتم كتابة رقم رمز التى تريد ظهورها مع الرسالة والتى تدل على نوع الرسالة الحقل MsgBtn :معرف عدد الأزرار هنا يتم كتابة رقم عدد الأزرار التى تريد لها الظهور فى صندوق الرسائل يتم استدعاء الرسالة بالسطر الاتى مع تغيير معرف الرسالة الى الرقم الدال عليها MakeMsg (معرف الرسالة) اترككم مع الاستمتاع بتجربـة المرفق full control arabic Message Box 32x,64x .mdb

اختصارت جميع الاوامر فى الورد نقل عن الدكتور سعود عقيل رمضان كريم 2021 ملخص اختصارات وورد.DOC

جزاك الله خيراً مشكور أستاذ ابا جودى

تم التعديل كما تريد Option Explicit Sub Data_Without_Empty() Dim endrow%, n%, MAX_RO%, K% Dim M As Worksheet, D As Worksheet Dim Fixed_row%, New_ro% Set M = Sheets("Main") Set D = Sheets("DB") endrow = D.Cells(Rows.Count, "E").End(3).Row Fixed_row = endrow + 1 MAX_RO = M.Range("B9").CurrentRegion.Rows.Count If MAX_RO = 1 Then Exit Sub For K = 10 To MAX_RO + 7 If M.Cells(K, 2) <> "" Then n = n + 1 D.Cells(endrow + 1, 5).Resize(, 4).Value = _ M.Cells(K, 2).Resize(, 4).Value endrow = endrow + 1 End If Next If n Then With D.Cells(Fixed_row, 3).Resize(n) .Value = M.Range("C6") .Offset(, 1) = M.Range("C7") .Offset(, 6) = M.Range("C25") .Offset(, -1) = Evaluate("Row(1:" & n & ")") End With D.Cells(n + Fixed_row, 5) = "TOTAL" D.Cells(n + Fixed_row, 8).Formula = _ "=SUM(H" & Fixed_row & ":H" & Fixed_row + n - 1 & ")" New_ro = D.Cells(Rows.Count, 2).End(3).Row D.Cells(2, 1).Resize(New_ro - 1).Formula = _ "=IF(B2="""","""",MAX($A$1:A1)+1)" D.Cells(1, 1).CurrentRegion.Value = _ D.Cells(1, 1).CurrentRegion.Value End If End Sub الملف من جديد KOUL _1.xlsm

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

اتفضل مساحات.accdb

كل عام وأنتم خير أستاذ ابا جودى ورمضان كريم

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

شكرا جزيلا اخي الكريم

جميل جدا الفكرة واعتذر الصفحة كانت مفتوحة قبل إجابة حضرتك ولم انتبه اليها الا بعد مشاركتى والان اصبج هناك فكرتين احدهما تعتمد على وجود المرفق فى نفس المسار وهى فكرة استاذى الجليل الاستاذ @husamwahab وطريقتى المتواضعة التى لا تعتمد على وجود المرفق على الحاسوب من الاساس يكفى وجوده داخل القاعدة بالجدول

اتفضل pppp(v1).accdb

اخي العزيز @حلبي 1- انا جربت البرنامج على عدة حواسيب لابتوب وهو يعمل جيدا لكن الدقة التي لديك 1280 *800 حاول ان تجرب تكبير قياس ارتفاع النموذج واخبرنا النتائج رجاء 2- تم اضافة كود ووحدة نمطية لاخفاء شاشة الاكسسس بدون مشاكل كما في المرفق علما انني اعمل على اكسس 2010 ضبط حجم النموذج على الشاشة-.rar

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

ممكن رابط الموضوع الاصلى يا استاذ @ناقل

اعتقد لديك مشكلة في التشفير وفك التشفير انظر المرفق ..... prog.accdb

و عليكم السلام عسى يكون المطلوب المصنف1 (1).xlsm

جيد جزيت الجنة

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

جزاك الله خير وجعلها الله في ميزان حسناتك

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

وعليكم السلام 🙂 اقرأ هذا الموضوع ، ففيه معلومات تفيدك : . جعفر

تسلم ايدك

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

استبدل الرقم 19 بأي رقم تريده (حتى ولو كان 10000) لانه لا حاجة الى العامود بالكامل أكثر من مليون خلية مما يثقل البرنامج

تسلم اخي العزيز زحمتك معي

السلام عليكم ورحمة الله وبركاته اختي الكريمة بعد تسمية خلايا(القائمة الاولى) كنطاق مسمى تأكدِ من انه تم تعريف الاسم وذلك من القائمة صيغ > الاسماء المعرفة > ادارة الاسماء – تظهرلكِ نافذة فاذا كان الاسم موجود فيعني انه تم تعريفه , اما اذا كان غير موجود فقومِ بتسمية من نفس النافذة الظاهرة التبويب جديد واكتبِ اسما له وتحديد خلاياه . كذلك اذا كتبتِ معادلة التنسيق الشرطي في خلية وظهر الخطاء #NAME? فيعني هذا ان الاسم لم يتم تعريفه, اما اذا ظهر الخطاء #VALUE! فيعني ان الاسم معرف وان المعادلة سوف تعمل عند ادخالها في التنسيق الشرطي . ففي معادلة التنسيق الشرطي =VLOOKUP(A1; SUBSTITUTE( MyRng; " "; ""); 1; FALSE)=A1 فيها الفاصلة منقوطة (;) فاذا كانت اعدادات الجهاز لديكِ لا تعتمد الفاصلة المنقوطة فاستبدلها بالفاصلة غير المنقوطة (,)فتكون المعادلة =VLOOKUP(A1, SUBSTITUTE( MyRng, " ", ""), 1, FALSE)=A1 فاذا مازالت لديكِ مشاكل فحاولِ تطبق الموضوع في ملف جديد ثم اضغطه ببرنامج الونرار ورفعه في مشاركة لاحقة, تحياتي الخالدي

عندي جدول ينكون من حقلين الاول رقم العضوية ( المفتاح الرئيسي) والثاني اسم العضو مثال: رقم العضوية الاسم 2 سالم 5 محمد 100 احمد 3 ايراهيم 70 سعيد مع ملاحظة رقم العضوية ليس بالترتيب ويكون تلقائيا عملت نموزج لهذا الجدول. لكن السؤال اذا اردت ان ادرج شخص بين شخصين كيف العمل؟؟. لنفرض اني اريد ان ادخل شخص جديد بين احمد وابراهيم و بعد ان اعطيه امر ادراج وبعد ان اضع راس المؤشر على احمد , يقوم بفتح سجل فارغ بين احمد وابراهيم بحيث يمكني من ادراج اسم عضو جديد اسمه طاهر مثلا حسب علمى الاكسس يدرج السجل الجديد فى اخر الجدول؟؟ اريد حل لهذه الاستفسار فى نموذج وليس فى جدول من يتصدق على وله الاجر؟

اخواني لدي مشكلة في التفقيط والمطلوب موضح في المرفق على النموذج وبإختصار اريد اظهار المبلغ مفقط على الشاشة والطابعة وعند الادخال دون حفظ التفيقط في القاعدة ولكم الشكر الجزيل على ماقدمتموه وتقدموه دائما وهذا الملف http://www.islamcall.com/print_subform.mdb الملف المرفق

السلام عليكم ارجوا مساعدتى فى عمل استعلام معين . فانا عندى جدولين الاول يحوى على حقل يتم فيه تعبته بعدد المجموعات المطلوبة مثل عدد المجموعات المطلوبة = 5 او 6 او 10 وهكذا وهذا الجدول الاول هو كما يلى ------------------------ عدد المجموعات = ----------------------------------- اما الجدول الثانى فيحوى على اسماء مجموعة من الاعضاء ولكل عضو رقم عضوية . اذا هذا الجدول يحوى على حقل لعضوية العضو واحقل اخر لاسمه كما يلى ----------------------------------------- رقم العضوية الاسم 1 محمد 2 سعيد 3 سالم 4 احمد 5 سليمان 6 طاهر 7 عقيل 8 عمر ------------------------------------------ والان اريد ان اعمل استعلام يحوى على حقل جديد اسمه الدور و هذا الاستعلام يأخذ فى الاعتبار عدد المجموعات المعطاة قى الجدول الاول. فاذا كان عدد المجموعات المطلوبة هو 2 فان نتيجة الاستعلام لابد ان تكون كاتي ------------------------------------------------ رقم العضوية الاسم المجموعات الدور 1 محمد 1 1 2 سعيد 2 1 3 سالم 1 2 4 احمد 2 2 5 سليمان 1 3 6 طاهر 2 3 7 عقيل 1 4 8 عمر 2 4 اما اذا كا ن عدد المجمةعات =3 فيكون نتيجة الاستعلام كتالي: -------------------------------------------------------------- رقم العضوية الاسم المجموعات الدور 1 محمد 1 1 2 سعيد 2 1 3 سالم 3 1 4 احمد 1 2 5 سليمان 2 2 6 طاهر 3 2 7 عقيل 1 3 8 عمر 2 3 اما اذا كا ن عدد المجمةعات =4 فيكون نتيجة الاستعلام كتالي: -------------------------------------------------------------- رقم العضوية الاسم المجموعات الدور 1 محمد 1 1 2 سعيد 2 1 3 سالم 3 1 4 احمد 4 1 5 سليمان 1 2 6 طاهر 2 2 7 عقيل 3 2 8 عمر 4 2 وهكذا................... فالرجاء مساعدتي فى كيفية عمل هذا ا الاستعلام و السلام عليكم

عند سجلات شراء لصنف واحد مثال رقم العملية = عدد السلعة = سعر السلعة ـــــــــــــــــــــــــــــــــــــ 1 1000 67 2 500 77 3 600 65 ======================================= بعت 600 سلعة بسعر 650 ابغه يخصم من العمليتين 2و3 ( لان العملية 1 سعر الشراء أعلى من سعر البيع) بعت 100 سلعة بسعر 1100 ابغاه يخصم من الثلاث عمليات بالتساوي يعني يخصم من عمليه 1 34 وعملية 2 33 وعملية 3 33 سجل ========== سؤال أخر كيف يمكنني تحديد الخصم من عملية بيع محددة يعني عند الخصم يسأل ما رقم عملية الشراء التي تريد أن يتم الخصم منها اتمنى تكون وصلت المعلومة

السلام عليكم لا اعلم لماذا يظهر لي ان البرنامج غير موجود او محذوف

عفوا لم لا استطيع تحميل اي ملف ؟

البرنامج لا يعمل على اكسس 2019 نظام 64 بت