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

استأذن من استاذنا @ابا جودى اتفضل استخدمت هذا الكود قبل تحديث 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 هو المطلوب بكله ربي يبارك فيك مع التقدير للاخ@ابا جودى شكله فهم الموضوع خطاء تحياتي لكم جميعا

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

نعم! إليك هذا 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 حياكم الله وبياكم ان مقصد الاستاذ / @محمدنجار هو اسماء الجدوال واسماء الحقول داخل الجدول الافضل مراعاة الاتى بها الاسماء تكون بالانجليزية لا تستخدم الرموز او المسافات بين الكلمات تقبل مودتى

بعد اذن الاستاذ الغالى @Shivan Rekany اتفضل يا استاذ @ابو زاهر جرب المرفق ده بص انا غيرت شوية حجات ليه حضرتك كنت عامل نوع الحقل رقم الفاتورة Currency

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

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

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

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

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

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

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

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

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

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

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

اتفضل test2.rar

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

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

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

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

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

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

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

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

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