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

استأذن من استاذنا @ابا جودى اتفضل استخدمت هذا الكود قبل تحديث Private Sub Rajmasnf_BeforeUpdate(Cancel As Integer) If DCount("[Rajmsanf]", "[HRAKATSANF]", "[Rajmsanf]='" & Me.Rajmasnf & "'" & "AND [Rjmfatwra]=" & Forms![فاتوره مشتريات]![Rjmfatwra]) > 0 Then MsgBox "المادة مكررة" Me.Undo End If End Sub 1111111.rar

السلام عليكم اخواني الاعزاء هذا مثال قمت بعمله يفي بالغرض ان شاء الله بالتوفيق للجميع Input Box.rar

بارك الله فيك استاذ Shivan Rekany اسأل الله ان يضاعف لك اجر ما تمنيت لي ولغيري

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

مشكوررررررر اخي@ابا جودى الان كذا مزبوط حفظك الله انت والاخ @Shivan Rekany عملتم المطلوب ربنا يحفظكم أينما كنتم شاكرين لكم

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

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

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

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

- اذا كان الحقل رقمي Numerical ( اي انه في الجدول نوعه رقم ) فيجب ان يوضع في ( الإستعلام او التعبير ) بين علامتي تنصيص بهذه الطريقة "[iD]" --------------------------------------------------- - اذا كان الحقل نصي Strings ( اي ان الحقل في الجدول نوعه نص ) فيجب ان يوضع في الإستعلام بين ثلاث علامات تنصيص بهذه الطريقة '[NAME]' --------------------------------------------------- -اذا كان الحقل من نوع تاريخ DATE ( يعني في الجدول نوعه تاريخ / وقت ) فيجب ان يوضع بين بين علامتي شبكة #[DATE]#

اتفضل test2.rar

نعم! إليك هذا YourObject=date()-1

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

السلام عليكم اخواني بدأت بأرشفة مواضيع أرشيف الأكسس , و هذا ماتم انجازه حتى الآن , حيث المواضيع كثيره , و سأتم العمل ان شاء الله تباعا و ليكن كل يوم عدة مواضيع مثلا , و يتم اضافتها على هذا الموضوع لحين الانتهاء , ثم نبدأ بتنقيح مواضيع المنتدى العام , و اضافة الجديد منه الى هذا الموضوع . و في حال الانتهاء كاملا من العمل يتم نشره في صفحه جديدة للأعضاء . و من يرغب من الأخوه المساعده , فليتفضل مشكورا : أولا : أرشيف الجداول دوره متكامله في تصميم جداول الأكسس مثال عملي لتحليل و تصميم النظم الوصايا السبع للمبتدئين بالأكسس أنواع العلاقات بين الجداول مع مثال عملي قناع الادخال في الأكسس تنسيقات الأرقام و أمثله عليها البحث ضمن الجدول عن القيمه المقابله في جدول آخر كيفية تحويل حقل الى مربع تحرير و سرد لعرض أكثر من قيمة فيه تعلم الأكسس من خلال 4 ملفات وورد تعلم الأكسس بالصوت و الصورة قوالب تصميم قواعد بيانات جاهزة NorthWind شرح و تحليل قاعدة البيانات الشهيرة

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

السلام عليكم ورحمة الله وبركاته حبيت أنقل لكم فكرة جميلة للحضور والغياب للمبدع إسلام رجب ولكم مني جزيل الشكر

ألف مليون شكر لك الأخ الكريم سليم حاصيبا دمت متألقا

الف شكر على الاهتمام والمجهود الرائع ا/ @محمد سلامةا @ابا جودى @Shivan Rekany

تم التعديل كما تريد élèves_salim1.rar

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

مرة اخرى استأذن من استاذنا @ابا جودى على المداخلة اتفضل استخدمت هذا الكود Private Sub Rajmasnf_BeforeUpdate(Cancel As Integer) If DCount("[Rajmsanf]", "[HRAKATSANF]", "[Rajmsanf]='" & Me.Rajmasnf & "'" & "AND [Rjmfatwra]=" & Forms![فاتوره مشتريات]![Rjmfatwra]) > 0 Then MsgBox "المادة مكررة" Me.Undo ElseIf DCount("[Rajmsanf]", "[alsnaf]", "[Rajmsanf]='" & Me.Rajmasnf & "'") < 1 Then MsgBox "ليس لدينا هذا الرقم" Me.Undo End If End Sub بيعمل لك كلا من طلبين واتفضل قاعدة بياناتك بعد تعديل 1111111.rar

عادي اخي

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

مين فات قديمه تاه

مشاكة مع استاذي الحبيب @محمد سلامة اتفضل اكو برامج باسم 3D Button Creator Gold تقبل تحياتي

ما هو اصدار الاوفيس لديك؟؟ لا من قال ان الاكسس فقير في ذلك.. بالعكس من الاصدار 2007 فيما فوق ممتاز في الألوان والأشكال والازرار

استاذ @almosafer almasry حياكم الله وبياكم ان مقصد الاستاذ / @محمدنجار هو اسماء الجدوال واسماء الحقول داخل الجدول الافضل مراعاة الاتى بها الاسماء تكون بالانجليزية لا تستخدم الرموز او المسافات بين الكلمات تقبل مودتى

أشكركم اساتذتى الافاضل . وجدت ضالتي عند أستاذي الكريم أبا جودي. أشكركم أستاذي، ودمتم سباقين للخير. تحياتي

تحفة فنية بجد

@صالح حمادي أخي صالح الكود الذي تفضلت به لاينقل البيانات الى الجدول في الشيت المطلوب وانما ينقلها الى شيت جديد وجدول جديد

السلام عليكم و رحمة الله تعالى و بركاته: استعمل هذا الكود DoCmd.TransferSpreadsheet acExport, acSpreadsheetTypeExcel12, "table1", "مسار الملف", True, "e6:h25"

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

شكرا جزيلا لك ابا جودى

اتفضل ان شاء الله يكون ده المطلوب MoreSale_up.rar

جزاكم الله خيرا بارك الله فيك اخي @الأحمري اسأل الله ان يضاعف لك اجر ما تمنيت لي ولغيري

ربي يسعدك ويجزاك الجنة

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

أخى الكريم موضوع تغيير الأوفيس هذا راجع إليكم أما فيما يختص بالكومبوبوكس حدد ماذا تريد فيه لأنى لم أفهم طلبك الخاص به

أخى الكريم الملف المرفق من قبلك ليس به أى بيانات قمت بإنشاء فورم مع تعديلات بسيطه على شكل الشيت الفورم به إمكانيه البحث والتعديل والحذف والإضافة 1438.1.rar

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

الكود بهذا الشكل سليم إن شاء الله ولكن طالما أننا سنتعامل مع أكثر من ورقة عمل فلابد من الإشارة لورقة العمل التي فيها قيمة الخلية (القائمة المنسدلة) قم بالإشارة إلى ورقة العمل قبل كلمة Range في هذا السطر strClass = Sheets(StudentData).Range("W2").Value

همتك معانا استاذي الفاضل محمد سلامه

مشاركة مع اخينا الغالي ابا جودي اولا تصحيح الجمله Case 1 Me.RecordSource = "SELECT Tbl_Result.*, Tbl_Result.Sub FROM Tbl_Result WHERE (((Tbl_Result.Sub) Like '*عربية*'));" وهكذا للمواد الاخرى ثانيا ليس من المنطقي ان تتغير الجمل البرمجيه خصوصا لو هناك عميل سيستلم البرنامج وهنا يمكنك 1. ضع حقل اضافي في الجدول المواد باسم كلمة البحث او البحث وسيكون به الكلمات التي تريد الفلترة بها 2. تشير لمربع النص الذي بالتقرير والذي سيحتوي اسم الماده والتي هي بمربع السرد بالنموذج هكذ =[Forms]![Frm_PrintComm]![Cmb_SelectSubject].[column](1) هنا لم يعد حاجة للكود سواء للبحث او للاشاره لاسم الماده فقط استعلام بالتوفيق

تفضل ولكن سيتم التصدير لملف جديد ، وأتمنى أن يساعدك خبراء المنتدى كما تعودنا منهم Newtest.rar

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

وذكر ان الذكرى تنفع المؤمنين ,,,,, قف أنه رمضان لقد بدأ السباق فاحرص أن تكون في مقدمة المتسابقينفكيف تستفيد من رمضان؟؟؟؟؟؟؟؟؟؟؟من خلال الحرص على 8 أشياء في غاية الأهمية:فلنبدأ بأول واهم شيئ وهو :. 1- أنت و الصلاة: الحرص علي الفريضة في وقتها وجماعه – يفضل في المسجد – يساوي 100,000 (مئة ألف) حسنة في اليوم الواحد أو 3,000,000 (ثلاثة ملايين) حسنة طوال شهر رمضان !!!! 2 قبل الفجر4 قبل الظهر 2 بعد الظهر2 بعد المغرب 2 بعد العشاء النوافل : الحرص علي 12 ركعة في اليوم :2- أنت و القرآن:كل حرف بحسنة و الحسنة بعشر أمثالها و في رمضان بسبعين ضعفًا، إذن قراءة الجزء الواحد = 4 مليون حسنة تقريبًا، فكيف لعاقل أن لا يقرأ جزءًا علي الأقل يوميًا لتحقيق هذا الثواب غير العادي ؟؟ و لم لا نجتهد و نقرأ جزئين يوميًا (بعد الفجر وقبل النوم مثلاً ) لنختم مرتين ؟؟ 3- أنت و الصدقة:بسبعين ضعفًا في رمضان وهي تطفئ غضب الله على العبد، خصص مبلغًا معينًا تتصدق به كل يوم و سترى لهذا أثرًا رائعًا في حياتك. 4- أنت والتراويح:الحرص عليها أفضل من تضييع وقت رمضان الثمين المليء بنفحات الله في التمثيليات و الفوازير وغيرها من مضيعات الوقت و حاول إن استطعت أن تصلي في مسجد يقرأ بجزء يوميًا لتضاعف من ثواب القرآن اليومي. 5- أنت و صلة الأرحام: و ابدأ بمن بينك و بينه خلافات و كن أفضل منه فلن يقبل الله صيامًا من مسلمَيْنِ بينهما مشاحنات أو عداوة.6- أنت و الدعوة للخير: ادعُ الناس لكل هذا الخير الذي عرفته و شجع القريبين منك على الحرص على الطاعات.7- الصحبة الصالحة:صاحب في رمضان صديقك الحريص على طاعة الله لتعينوا بعضكم البعض على الخير و ابتعد عن رفاق السوء. انظر إلى أمر المولىبالصبر على رفاق الخير أي مقاومة هوى النفس في الانصياع إلى أهوائها أو مصاحبة غيرهم من محبي الدنيا في سورة الكهف "و اصبرنفسك مع الذين يدعون ربهم بالغداة و العشي يريدون وجهه و لا تَعْدُ عيناكَ عنهم تريد زينة الحياة الدنيا و لا تطع من أغفلنا قلبه عن ذكرناو اتبع هواه و كان أمره فُرُطا"8- الدعاء:كان الصحابة يحرصون في رمضان على دعوات محددة يركزون عليها في الصلاة و كل المناسبات طوال الشهر و يقولون:فوالله ما يأتي رمضان الذي يليه إلا وقد استجيبت كلها، ولا تنس مهما تعددت دعواتك أن تدعو الله أن ينصر الإسلام و المسلمين في الأرض كلهاو أن يعيد للمسلمين المسجد الأقصى و فلسطين و ما ذلك على الله بكثير .فيا من ترجو رحمة الله و مغفرته و ترجو أن يعتق رقبتك من النار في رمضان القادم هذا، احرص أشد الحرص علي تلك الأشياء النافعة في رمضان و جاهد نفسك على أن لا تفتر عزيمتك بعد بضعة أيام ثم لا تصحو من تلك الغفلة إلا ورمضان يوشك أن ينتهي.اللهم بلغنا رمضان

جزاك الله خيرا

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

الم يعجب الموضوع احد