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

اليك هذا المرفق بايد عربية وبنفس النتيجة وانظر الى الاكواد المستخدمه الدعاء للاستاذ الجليل والمعلم القدير @رمهان FindAsUType - بايد عربيه رمهانية -.rar

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

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

بعد اذن الاستاذ شيفان انتي عامله المقارنة على اساس قيمة الاوبشن نفسها والاصح على مربع الخيار والذي قيمته حسب الاوبشنز Private Sub CmdSearch_Click() Do While Reports.count > 0 DoCmd.Close acReport, Reports(0).Name Loop If إطار8 = 1 Then DoCmd.OpenReport "ShabakaReport", acViewPreview End If If إطار8 = 2 Then m1.Visible = True m2.Visible = True DoCmd.OpenReport "StationsReport", acViewPreview End If If إطار8 = 3 Then m1.Enabled = True m2.Enabled = True m3.Enabled = True DoCmd.OpenReport "LinesReport", acViewPreview End If End Sub وبعدين راح نعمل لك اختصار وتحسين بالتوفيق

معليش استاذ شيفان لو العدد 200 او 210 او 10 فهل السائل يريد كذلك 210 تصبح 220 ام تضل كماهي لانها مقربة للعشرة تحياتي

على العموم انا انتهت من تطبيق اعادة الترقيم مرة اخرى بع اغلاق القاعدة وفتحها تجد الترقيم تم اعادته برمجيا Access Import_ up 2.rar

من فايل اختار اوبشن الباقي كما مبينة في الصورة

اهلا بك @حربي العنزي هذا لاستخدام الى الاسفل Int(Me.Text0 / 10) * 10 وهذا الى الاعلى Int(1 + Int(Me.Text0 / 10)) * 10 وانتظرني سافتح باذن الله موضوع جديد مع فانكشن لكي تقدرون تستخدمون مع الاستعلامات بشروط

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

السلام عليكم ارجو المساعدة اذا سمحتم .. لدى رسالة ماجستير مقسمة على فصول بوورد 2016 ولدى مشكلة عند تحويل بعض الملفات الى بي دى اف تحصل مشكلة فى التنسيق ويتم ترحيل بعض الفقرات اى انها لا تكون بنفس التنسيق ووجدت عند تحويل الملف من صيغة docx الى صيغة word 97-2003 يتم حل المشكلة لكن التنسيق يكون مختلف عن وورد 2016 اى بعض المميزات لا تكون موجودة _____________ حاولت التعديل في التنسيق والتحويل الى بى دى اف لكن نفس المشكلة موجودة انا اكتب على حجم صفحة A4 واترك هوامش 3 سم من جهة اليمين و2 ونصف سم من الجهات الأخرى ياريت الاقي عندكم الحل .. شكرا جزيلا

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

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

بعض ما عندكم أخي العزيز

شكرا لك @أ / محمد صالح على الشرح الوافي الكافي

كما أخبر أستاذ @Shivan Rekany هذا حل عدم ظهور اللغة العربية بصورة صحيحة في محرر الفيجوال بيسك وبالنسبة لرسالة الخطأ الظاهرة ربما لعدم وجود المكتبات DLL المطلوبة في الملف وربما بسبب مشكلة اللغة وعلاج المكتبات من قائمة tools نختار references ستظهر نافذة ومكتوب بجانب بعض المكتبات missing يعني مفقود ولك فيها حلان تحميل ملفات DLL الناقصة أو الاستغناء عنها إذا استمر عمل البرنامج بدونها وفقنا الله وإياكم لكل خير

صحيح كلامك استاذي شفان حتى انا استغربت فعل ذلك لكن الطيور على اشكالها تقع .. تحياتي لك

مش شغال لأن الشرط متحققش فى الجدول فى الحقل amr غير كلمة تم الى اى شئ وافتح النموذج هيشتغل تمام جرب وقولى بالظبط استاذ شيفان هذا الكود اللى موجود بالمرفق الثانى مشكور على مرورك

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

وطربقة استاذنا الجليل واخونا الحبيب استاذ @Shivan Rekany افضل من طريقتى واعتذر كنت اتمنى عمل اعجاب ولكن يخبرنى انى استخدمت عدد 10 اعجاب اليوم ولا يسمح لى الموقع بذلك ولكن بأفعلها على طريقتى الشخصية وحضرتك بالصحة والخير والسعادة ان شاء الله انت عايز لو مافى اى قيم مختلفة فى شيت الاكسل يخبرك برساله بذلك وان كان هناك اختلاف يخبرك بعدد السجلات فقط المختلفة والتى سيتم استيرادها ؟!

جزاكم الله خيرا واحسن اليكم كما تحسنون دائما الى كل رواد المنتدى

بعد اقول غريبة لماذا استخدم المبرمج هذه الاسماء ما رأيت بحياتي واحد بيسمى الحقول والجداول بهذه الاسماء هل في المستقبل سيعرف ما عمله ؟ هذا هو السر اللي افكر فيه ...

التحسينات 1. زر فتح التقارير - البحث- Private Sub CmdSearch_Click() DoCmd.OpenReport Choose(إطار8, "ShabakaReport", "StationsReport", "LinesReport"), acViewPreview End Sub 2. حذف جميع الاكواد على الاوبشنز والتي عند الحدث عند التركيز واستبدالها بحدث بعد التحديث لمربع الخيار اطار8 وليصبح الحدث : Private Sub إطار8_AfterUpdate() m1.Enabled = إطار8 = 1 m2.Enabled = إطار8 = 2 m3.Enabled = إطار8 = 3 End Sub بالتوفيق

اذنك معك استاذي الحبيب وهذا هو تعديل ما قلت استاذنا على القاعدة Hawadith3.rar

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

جزااااااااااااااااااااااااكم الله خيرا اللهم اغفر لكم ولوالديكم وللمسلمين

العفو وتمام عليك تحياتي

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

ايش رايك حسب فهمي If Right(Text0, 1) <> 0 Then Text0 = Text0 - Right(Text0, 1) + 10 تحياتي اضفنا الردود بنفس اللحظة استاذ شيفان وهذي ب iif IIf(Right(Text0, 1) <> 0, Text0 - Right(Text0, 1) + 10, Text0)

يعني لازم نستخدم هكذا IIf(Right(Me.Text0, 1) <> 0, Int(1 + Int(Me.Text0) / 10) * 10, Me.Text0) شكرا على التنبه

هي نفس المهمة ولكن انت استخدمت بواسطة الاكسس والكائن docmd انا استخدمت مكتبات dao والكائن tabledefs

انا وورد ٢٠١٦

يتم طباعة الملف كما هو إلى ملف pdf هذا مجرب على وورد 2007

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

ابحث عن برنامج Pdf creator وهو برنامج مجانى يثبت فى الجهاز على أنه طابعة و من داخل الوورد اطبع مع اختيار هذه الطابعة pdfcreator سيتم حفظ الملف إلى pdf

كـــــل عــــــــــــام و ا نـتـــــــــم جـمـيــعــــــــــــــــــــــــا بــخــــــــــــــــــــــــــــيـــر و ر مــضــــــــــــــــــــا ن كـــــــــــــــــــــــــــــــريــــم

اليك هذا تم عملت التعديل في مشاركتي الاعلاه وتقدر تستخدم دالة IIF في الاستعلام

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

اقصد اعزائي هذا التعبير =Format(0.2445,"0.000") يعطيك ناتج 0.245 ولو تم ضربه في 100000000 سيكون النتاج 24500000 بينما الرقم اصلا 0.2445 والذي لو ضرب في 100000000 سيكون الناتج 24450000 والفرق سيكون خمسون الف القصد بانه الدالة شكلا وليس قيمة الرقم وكان قصدي تنبيه فقط اما الاستاذه فكفو وأوفو تحياتي

يوجد كثير من الوحدات النمطية هل يمكن اختصاراها وازالة ماهو ليس له فائدة بعض اختصار البرنامج علي الصادر فقط ، من الملاحظ من اسم الوحدة النمطية ليس لها دور الآن لا يوجد وحده نمطية الان ليس لها اى دور مثل mod_Delete_Files وغيرها من الوحدات الغير مستفاد منها في برنامجي الصغير. ياريت استاذي العزيز ان نختصر بقدر الامكان من عدد الوحدات النمطية . هذه الوحدة النمطية تحذف المرفقات لو حذنا السجل ها محتاج نحذفها براحتك لكن عند حذف سجل محدد يبقى مجلد المرفقات كما هو بالمرفقات جرب زر الامر حذف سجل وتأكد ان لهذا الرقم مرفقات وعندما يطالبك بكلمة مرور الحذف " 123" هل يمكن عند الضغط علي زر " استعراض ملف المرفقات" ولم يوجد للرقم الصادر اي صور ان يعطي رسالة " هذا الرقم ليس له اي صور " نعم ممكن ذلك غير الكود على زر الامر " استعراض ملف المرفقات" بالكود الاتى Dim attash_file As String attash_file = db_path() & "archives\" & "sader\" & [ID] & "\" If Dir(attash_file, vbDirectory) = "" Then MsgBox "هذا الرقم ليس له اي صور" Else ShellExecute attash_file End If لماذا عند اخذ صورة من الكمبيوتر " في زر "ادراج مرفقات من الكمبوتر " لا يدعم الصور التي من نوع PDF ويعطي في مجلد الصور غير متاح مين قال الكلام ده البرنامج يقبل اى مرفق باى امتداد حتى لو كان exe بعض الاكواد داخل الفيجوال غير مستخدمة وانا خايف احذف شئ لا يعمل البرنامج معي . مثل اكواد ملف الوارد وغيرها انا فعلا كنت ناسي كود واحد فقط الان لا يوجد اى اكواد غير مستخدمه راجعت كل الاكواد وحتى لا اشق عليك اليك المرفق بعد التعديل لا يوجد كود غير مستخدم ولا يوجد وحده نمطيه بلا فائده halabi.rar

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

تم رفع هذا الكود فى مشاركة منفصله حتى لا ننسى هذه المشاركة قائمة من قائمة تم ارفاق كود الحل من الفاضل ا / عبدالله باقشير و عادل حنفي مرفق الملف و الشرح ____________________________.rar Hid_compo.rar و لا تنسونا من صالح الدعاء تحياتى

=Format([T1]/[T2]*[T3];"0.000")

اليك هذا الصورة والنتيجة

اضف في جدول السرعة "اخر " والقي نظرتا الى الكود الكود هو نفس الكود السابق تقريبا CODE20177.rar

ما فهمت قصدك ... هل قصدك سجل جديد ؟

السلام عليكم ورحمة الله تفضل Book1.rar

اخى الكريم جرب المرفق اتمنى يكون هو ما تريد الصفحات ناجح / دور تانى محمية بدون كلمة مرور لمنع اللعب فى المعادلات تم الحل بمعادلة مضافة الى الاكسيل عند التغيير فى صفحة الادارة ( اضافة / حذف ) سيتم التعديل فى صفحة ناجح / راسب تلقائيا Book1.rar

الاخوه الافاضل / هل من امكانيه لتحويل هذا الصرح الى اكسيل عادي

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

السلام عليكم: هذه محاولة لتعديل مثالك أرجو ان تكون الحسابات متوافقة مع طلبك DSum.rar