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

حمل هذا البرنامج وجربه يمكن يلبي طموحك ادارة الشقق .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

السلام عليكم ورحمة الله تعالى وبركاته اولا وللامانة وإحقاقا للحق وحتى يأخذ كل ذى حق حقه الفضل بعد رب العباد سبحانه وتعالى يعود الى استاذى الجليل ومعلمى القدير صاحب اللمسات الرمهانية والغالى على قلبى واخى الحبيب الاستاذ @رمهان والذى بت افتقده كثيرا وافتقد لمساته وانتظرها دائما بلهفة مشتاق الشرح نظريا للطريقة الرمهانية وهو كالاتى ننشئ الاستعلام كما نريد بالحقول التى نريد فى مكان المعيار للحقل المطلوب نكتب مثلا >>----> [Insert value] كما فى الصورة الاتيه يمكنكم تغيير المعيار [Insert value] مع مراعاة تغييره بالكود الذى سيأتى بعد قليل ونقوم باغلاق الاستعلام ونسميه على سبيل المثال >>----> qryJudy يمكنكم تغيير الاسم مع مراعاة تغييره بالكود الذى سيأتى بعد قليل نذهب الى النموذج الذى نريد فتح الاستعلام من خلاله ونريد تمرير قيمة المعيار من احد كائناته الى الاستعلام الذى انشأناه نقوم بعمل زر امر ونسند اليه الكود الاتى DoCmd.SetParameter "[Insert value]", [رقم النموذج] DoCmd.SetWarnings False DoCmd.OpenQuery "qryJudy" DoCmd.SetWarnings True نلاحظ فى السطر الاول من الكود DoCmd.SetParameter >>----> هذا الجزء من الكود هو الذى يختص بتعيين القيمة المعلمة والتى نريد تمريرها الى المعيار فى الاستعلام [Insert value] >>----> هذا اسم المعيار كما كتبناه فى الاستعلام تمام [رقم النموذج] >>----> هذا اسم الكائن على النموذج الذى نريد تمرير قيمته الى المعيار فى الاستعلام السطر الثانى من الكود DoCmd.SetWarnings False >>----> لايقاف رسائل الاكسس الافتراضية و التى تأتى لتأكيد تشغيل الاستعلام السطر الثالث من الكود DoCmd.OpenQuery "qryJudy" >>----> تشغيل الاستعلام ونكتب اسم الاستعلام كما انشئناه تماما السطر الرابع من الكود DoCmd.SetWarnings True >>----> ارجاع الوضع الافتراضى للاكسس بتشغيل رسائل الاستعلام مرة اخرى المثال المرفق هو بناء على طلب اخونا الحبيب الاستاذ @محمد القدسي الكود تم وضعه على زر امر بعنوان >>----> Run Query داخل نموذج باسم >>----> عملية انتاج طريقة أخرى ممكن استبدال المعيار داخل الاستعلام بالمعيار الاتى [TempVars]![x] وكذلك يتم استبدال الكود على زر الامر بالكود الاتى TempVars.Add "x",[رقم النموذج].Value DoCmd.SetWarnings False DoCmd.OpenQuery "qryJudy" DoCmd.SetWarnings True فتح النموذج بنافذة اخرى.accdb

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

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

أخى 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

بعد إذن أستاذنا القدير ابا جودى بارك الله له جرب المرفق اخى raafatfakhry New Microsoft Office Access 2007 Database.accdb

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 و الله المستعان و السلام عليكم ورحمة الله وبركاته