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

بعد اطيب واجمل تحية اتمنى لكم وقتا ممتعا وفائدة ولاتنسونا من دعاؤكم 🌷 https://www.youtube.com/watch?v=3_QDoXynQs0

السلام عليكم ورحمة الله تعالى وبركاته احبائى اقدم لكم هذه الاداة البسيطة ذات الفائدة الكبيرة احيانا تحدث مشكلة عند تشغيل قاعدة بياناتك على بعض الأجهزة وذلك بسبب كتابة الحروف العربية داخل محرر الاكواد اثناء التصميم حتى وإن كانت ملاحظات وتلميحات وتم تعطيلها وبين طيات نقاش طويل بينى وبين استاذى الجليل ومعلمى القدير ووالدى الحبيب الاستاذ @jjafferr نصحنى وشدد على بــــ عدم كتابة اى احرف عربية داخل المحرر حتى وان كانت ملاحظات او تلميحات فسألته : وماذا ان اردنا كتابة رسالة باللغة العربية فأجابنى : بعمل جدول ليتم كتابة ما تريد باللغة العربية وتستدعيه وقت الحاجة فكرت وحاولت وبفضل الله تعالى ثم مساندة أستاذى الجليل فيما تعثرت فيه وتوصلت الى ذلك ولكن هناك شقين 1- الموضوع مرهق قليلا ويتطلب وقت وجهد كبيرين 2- بالرغم من النقطة السابقة الا انه ممتع جدا جدا جدا وبرغم صعوبته اثناء التصميم الا انه يعطى مرونه فى تغيير الرسائل بدون الرجوع الى محرر الاكواد وطبعا قد لا يستطيع البعض تحقيق ذلك لذلك فكرت فى بديل وكانت بفضل الله تلك الاداة البسيطة التى اضعها الان بين اياديكم شرح الاداة نكتب ما نريد فى المكان المخصص للغة العربية ونقوم بتحويل ما كتبناه الى الترميز العالمى نقوم بعمل نسخ الترميز العالمى الى محرر الاكواد داخل قاعدتك فى المكان المحدد لذلك من واقع الصورة الجزء الأيمن 1 >>---> المكان المخصص لكتابة اللغة العربية 2 >>---> زر الامر الذى يقوم بتحويل ما تم كتابتة الى الترميز العالمى Unicode 3 >>---> زر الامر الذى يقوم بنسخ الاحرف التى تم تحويلها الى الترميز العالمي الجزء الأيسر A >>---> لصق الترميز العالمى الذى قمت بنسخه من اى قاعدة بيانات تم استخدام هذا الترميز فيها من قبل B >>---> زر الامر الذى يقوم بتحويل الترميز العالمى Unicode الى اللغة العربية لتستطيع قراته مرفق لكم الاداة + قاعدة تجربة انتظر تجربتكم وافادتكم تم تعديل المرفق فى تمام الساعة 7:44 م بتوقيت القاهرة - تاريخ 23/09/2019 Converter Arabic and Unicode.zip Converter Arabic and Unicode.mdb

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

اجمع المبلغ بنفسك يدويا تجدة 1052.855 وليس 1052.856 وتجد ان الاجمالي الصحيح هو 442199100

بارك الله بك أستاذي القدير @ابا جودى و بالاستاذ القدير @jjafferr فكرة رائعة و عمل متعوب عليه بارك الله بكم

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

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

السلام عليكم ورحمة الله ويركاتة اقدم لكم برنامج ثوابى الاصدار الاول للمخازن وحسابات العملاء والموردين البرنامج مفتوح المصدر لكى يستفيد منه الجميع وتحياتى الى كل الاخوا الكرام اعضاء ومشرفين تم تبديل المرفق بالنسخة الأخيرة بحسب طلبك منتدى اوفسنا "جرجس" مصر محافظة بورسعيد girgis_girgis22@yahoo.com

فورم ادراج الصور والبحث وتسجيل البيانات فيديو 7 الفيديو

السلام عليكم اساتذتي الافاضل ورحمة الله وبركاته الحقيقة هذه العملية للضرب دوختني الى ابعد حد عندما اضرب كمية الصافي في سعر الوحدة بحاسبة الحاسوب او الحاسبة اليدوية العادية يخرج الناتج صح اما في عملية الضرب بالحاسوب في التقرير يكون الناتج خطا حيث الفرق هو 42 دينار استاذتي الافاضل طلبي مشروح على التقرير بالتفصيل .... ملاحظة التاريخ الاول 1/4/2019 والتاريخ الثاني 30/8/2019 حتى يخرج التقرير لكل الموسم من البداية للنهاية مع وافر التحايا Prog4.mdb

في خدمتك مثل قلت كان الخطأ في تقريب اخر رقم عشري

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

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

اجمالي الكمية من 1-4-2019 الى 30-8-2019 = 1052.855*420000 = 442199100 كان الخطاء كان ان البرنامج يعطيك ناتج الاجمالي =1052.856 اي يقرب اخر رقم عشري جرب المرفق Prog4.mdb اجمع الوزن الصافي يدويا تجد انه مطابق لحقل الكمية صافي ثم اضرب في السعر واخبرني بالنتيجة

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

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

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

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

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

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

مرحبا اخي @عبد اللطيف سلوم اضافة الى ماسبق ان اشرت اليه في رد سابق 1- الاهتمام اكثر بتنسيق التقارير الالوان في التقرير ليست مهمه الاهم التنسيق والترتيب وان تكون تحتوي على شعار واسم وعنوان ووسائل الاتصال الخاصة بالمكتب وهذا الامر يقودنا للمقترح الثاني 2- اضافة جدول ونموذح للقيم الثابتة مثل اسم المكتب الترخيص ارقام المكتب والشعار هذا الجدول يسهل عليك وعلى مستخدم البرنامج ويعطي التقارير لمسة احترافية 3- يوجد في البرنامج شاشة لسند القبض وشاشة لسند الصرف ويتطلب اضافة امكانية الطباعة لكل منهما على ان يعد التقرير الخاص بهما باستخدام الشكل المعتمد لهذين المستندين 4- ربما في رد تالي اخي عبد اللطيف بصراحة التقارير الحالية غير مناسبة امل ان تتقبل ماكتبت بصدر تحياتي وتقديري

السلام عليكم تقريب آخر في الملف المرفق... بن علية حاجي شيت.xls

جزاك الله خيراً أستاذى

جرب هذا الملف Times_sh.xls

جرب هذه القاعدة لاستاذى الجليل ومعلمى القدير الأستاذ @jjafferr Decompile_2.accdb

وايه المانع ان شركة مساهة بين 10 افراد اوكلوا الاداره لاحدهم بموجب عقد ووجدوه مختلس مثلا سيكون اذا عند المحام الاول 9 مدعين وعند محام الخصم 1 مدعى عليه وتخيل انت ان كلا المحاميان يديران مكتبهما ببرنامجك انا فقط لم اقم بالتجربة ولكن فى الشاشة الاولى الرئيسية لماذا توضع الحسابات ؟! شئ غريب جدا جدا جدا

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

وعليكم السلام OTL2.xlsx

انا شخصيا دائما احاول ان ينحصر كل عملى بالاكسس اليكم طرقتى الاصدار الاول وقابل للتطوير ان شاء الله ActiveX Registration.zip

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

شكرا لك أستاذ عبد اللطيف سلوم

وعليكم السلام بارك الله فيكم وزادكم الله من فضله

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

الاكسس،الاكسل،فجول بيسك

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

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

array هذي عبارة عن جدول او جداول ubound للاشارة عن البعد الاخير سوى لاعمدة او للصفوف للجداول مثلا استخدام Ubound للـ Array A = Array(1,2,3,4,5) لمعرفة عدد بيانات المتغر A msgbox Ubound(A) طبيعة الحالة النتيجة 4 لان اي جدول يبداء بصفر وليس بـ 1 الا اذا تم الاشارة في بداية المودويل بالجملة Option Base 1 كالتالي Option Base 1 Sub Test() Dim A A = Array(1, 2, 3, 4, 5) MsgBox UBound(A) ' 5 End Sub او بدون الاشارة كالتالي النتيجة 4 Sub Test() Dim A A = Array(1, 2, 3, 4, 5) MsgBox UBound(A) ' 4 End Sub وبطبيعة الحالة عند استخدام الحلقات التكرارية يستخدم للمصفوفات للاشارة للبداية بكلمة Lbound بدلاً الخطاء اذا اشرت بـ 0 او 1 وللاشارة بالنهاية بـ Ubound كالمثال التالي Option Base 1 Sub Test() Dim A A = Array(1, 2, 3, 4, 5) For i = LBound(A) To UBound(A) MsgBox A(i) ' 1,2,3,4,5 Next i End Sub ولها استخدامات اخرى بإمكانك مراجعة موضوع استاذنا الغالي عبدالله باقشير لشرح المصفوفات

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

أخى نسيم الروح الروح من فضلك إذا كانت الإجابة صحيحة أشر بتمت الإجابه

اخى الفاضل أولا قم بقياس الليبل بالمسطرة وبالمليمتر طولا وعرضا .. الليبل نفسه وليس الورق الملصوق عليه ثانيا قم بفتح Printing Preferences كما بالصورة ثالثا قم بإنشاء التقرير المراد الطباعة منه وحدد رابعا ضع جميع عناصر الطباعة على التقرير خامسا تابع الصورة ok ok ok أزل جميع زوائد التقريد عرضا وارتفاعا إن كانت هناك أى زيادات جرب ووافنى بالنتيجة والله الموفق

طبعا الكود ماخوذ من الاخ محمد القاضي qathi الله يذكرة بالخير benyasien.rar

تفضل copy txt val.rar

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

جرب هذا الملف الاسماء عشوائية (حيث انك لم ترفع الملف الذي تريد) يمكنك زيادة الاسماء الى ما تريد (حتى 500 اسم) tekrar.rar

جرب هذا الشيء Classeur1salim.zip

السلام عليكم و رحمة اللة بعد طول غياب نحب المنتدى و اهله كود اثبات وجود و انتماء للمنتدى ليس اكثر For i = 1 To UsedRange.Rows.Count For x = i + 1 To UsedRange.Rows.Count If Cells(i, 1).Value = Cells(x, 1).Value Then Cells(x, 1).Delete Next x Next i Return To Excel Offciena.rar

تفضل اخي شوف ينفع معك ولا لا فاتورة خردة - Copy.rar

السلام عليكم لدي office 2010 لكن لا تعمل عليه برجاء غمل نسخة تناسب 2010 لانها تعطي رسالة ان البرنامج تم تصميمه بنسخة اعلى