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

حمل هذا البرنامج وجربه يمكن يلبي طموحك ادارة الشقق .rar

زيادة الخير خيرين يا غالي لا حاجة للاعتذار تحياتي

مشاركة مع الحبايب مثال (5).accdb

أخى محمد احمد لطفى وزيادة فى الفائدة جرب إختراع أخى العزيز ابا جودى فى هذه الوحدة النمطية التى لا تكتفى بإزالة المسافات أول وآخر الجملة ولكن أيضا المسافات الزائدة بين الجمل Update -12.mdb

السلام عليكم مرحبا أخي المصري استخدم هذا الكود Dim xdate As Date Dim xtime As Date xtime = "12:27:00" xdate = "2019/01/02" Time = xtime Date = xdate

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

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

السلام عليكم ورحمة اللة وبركاته موضوع قديم ولكني عملت هذا الكود لأحد أولادي فأحببت ان يستفيد منه من يحب الفكرة تعتمد علي التحقق من صحة ارقام التاريخ ( من الثاني وحتى السابع، من اليسار ) ولكن بطريقة رقميه بعيدا عن مشاكل فورمات التاريخ اي التأكد من ان الرقم الثاني و الثالث الخاص بسنة الميلاد يقع بين الارقام ( من صفر حتي 99 ) و التأكد من ان الرقم الرابع و الخامس الخاص برقم الشهر يقع بين الارقام ( من 1 حتي 12) و التأكد من ان الرقم السادس و السابع الخاص برقم اليوم يقع بين الارقام ( من 1 حتي 31) ثم التأكد من الرقم الرابع عشر وهو خاص بوزارةالداخلية للتحقق من صحة الرقم القومي يقع بين الارقام ( من 1 حتي 9 ) المرفقات !_Check_National_Number_التحقق من صحة الرقم القوميOffceina.xls

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

ما أعلمه أن ذلك غير ممكن، لأن تغيير الاسم لا يكون إلا عند إغلاق الملف. بينما تستطيع تغيير اسم ملف ما مغلق عن طريق آخر مفتوح.

أخى waheidi هل هذا ما تطلبة Update -12.mdb عذرا اخى AlwaZeeR لم انتبه لمشاركتك

وعليكم السلام ورحمة الله وبركاته استخدم Trim(Test)

تفضل أستاذ / ابو زاهر هذة كانت أحد مشاركات عضو من أعضاء المنتدى أرجو أن تكون هو ما تطلبه barcode.accdb

حاسك زعلان انى علقت انا اسف

بص هو فى بيسك . نت ينفع هههههههههههه لكن هل يمكن تعديل الكود ليتناسب مع اوفيس جرب بنفسك بقى طبعا لازم يكون معاك السيرفر واسم قاعدة البيانات واسم الجدول عمتا جرب دا INSERT INTO [ODBC;DRIVER=SQL Server;Server=servername;Database=dbname;Integrated Security=SSPI].Table1 SELECT * FROM Table1

أخى خالد هذه المشاكل من عندك انت فالبرنامج يعمل مع الجميع بكل كفاءة

شكرا لك أستاذنا ابو عارف على التدخل وحل المشكل الذي يظهر لي دائما عندما يكون الملف مكتوب بالعربي

شكرا استاذنا الفاضل / @ابو عارف حياك الله فعلا كلامك مصبوط انا نظرت للجدول وليس الاستعلام لك كل احترام وتقدير

بعد اذن الاستاذ/ @rey360 اليك المثال مثال.accdb

تفضل أخي اليك التعديل ولا تنس تطابق جميع خصائص عناصر عند تطبيقهم على برنامج الاساسي H_R0210.rar

أولاً كان يجب عليك إرفاق ملف عمل لأنه لا يمكن العمل على التخمين ثانيًا بعد إذن الأستاذ الفاضل حسين مأمون لأثراء الموضوع المعادلة التالية تفي بالغرض =IF(B2="";"";SUBTOTAL(3;$B$2:B2)) ترقيم.xls

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

أولا فى حدث عند الفتح ضع الكود Me.KeyPreview = True ثانيا فى حدث مفتاح لاسفل ضع الكود If KeyCode = vbKeyF1 Then DoCmd.OpenForm "اسم النموذج" KeyCode = 0 end if

تم التعديل My_filter_new.xlsm

If IsNull(إسم مربع النص المكتوب فيه عدد النسخ) = True Or إسم مربع النص المكتوب فيه عدد النسخ = 0 Then MsgBox "لم تدخل عدد النسخ" إسم مربع النص المكتوب فيه عدد النسخ.SetFocus Else DoCmd.OpenReport ("إسم التقرير"), acViewPreview ' open report DoCmd.PrintOut , , , , إسم مربع النص المكتوب فيه عدد النسخ, qty DoCmd.Close acReport, "إسم التقرير", acSaveNo End If

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

السلام عليكم ورحمة الله وبركاته الاستاذ الفاضل تابع المرفق على الرابط التالي و ان شاء الله يكون به ما تريد http://www.officena.net/ib/index.php?showtopic=37604&page=1 و الله المستعان و السلام عليكم ورحمة الله وبركاته