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

تم الاجابة على السؤال هنا: جعفر

بسم الله نبدأ عامنا الحالي بهذه الموسوعة 1200_Visual_Basic_macro_examples.rar عسى أن ينال إعجابكم

السلام عليكم سأستخدم عمل أخي شفان ، واقوم بالتعديل عليه في الجدول ، انا لم اغير نوع الحقل الى تاريخ ، وانما استعملت الامر CDate في استعلامات اخي شفان ، لتحويل النص الى تاريخ: . ولربط هذا الاستعلام (حقل Date هنا اصبح تاريخ) بالجدول (حقل Date لا يزال نص) ، فلا يمكن ربط الحقلين في استعلام ، لذا عملت استعلام qry_enterans_absent للجدول enterans_absent ، وفيه غيرت الحقل الى تاريخ ، وربطت الاستعلامين اعلاه في الاستعلام Q2 ، والذي يحتوي على النتائج المطلوبه جعفر 729.new work.accdb.zip

لم اجد سببا ، ولكني اوقفت الرسالة بهذا الكود في النموذج الفرعي: Private Sub Form_Error(DataErr As Integer, Response As Integer) If DataErr = 2448 Then Response = acDataErrContinue End If End Sub اعتقد بأنه عندك خطأ ما في الربط بين النموذج الرئيسي والفرعي ، فعلى الرغم من حفظ البيانات في النموذج الفرعي ، إلا انها لا تظهر لاحقا !! جعفر 728.Test_Backup.accdb.zip

كل الشكر استاذ سليم

خالص الشكر

تفضل ، رابط فيه مرفق http://www.helenfeddema.com/Files/accarch173.zip جعفر

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

وعليكم السلام هل قصدك انه لما تكون على سجل معين ، تريد خلفية السجل تتحول الى اللون الازرق ، ولما تنتقل الى سجل آخر ، تريد السجل السابق ترجع خلفيته الى الابيض ، والسجل الجديد الذي تكون عليه تتحول خلفيته الى الازرق؟ جعفر

اخى الكريم انا عامل شريط قوائم للبرنامج اضغط على قائمة الوظائف الاضافية لو عندك اكسس 2007 تلاقي قائمة البيانات الاساسية - المشتريات - الانتاج - المبيعات - المصروفات - الخزنة - استعلامات - انهاء عاوز اعمل صلاحيات للحذف والتعديل خاصة فى فواتير المشتريات والمبيعات والانتاج والمصروفات فاتورة مشتريات Trans_in - مردودات مشتريات Trans_inOut - انتاج frmControl - مبيعات Trans_out - مردودات مبيعات Trans_outin - صيانة للعملاء Maintenance - المصروفات الادارية Expenses يكون الصلاحية للادمن فقط والنموذج الرئيسي Users فاتورة مشتريات Trans_in - مردودات مشتريات Trans_inOut - انتاج frmControl - مبيعات Trans_out - مردودات مبيعات Trans_outin - صيانة للعملاء Maintenance - المصروفات الادارية Expenses -

وعليكم السلام كان المفروض ان تواصل سؤالك في الموضوع السابق وكما اخبرك أخونا ابوخليل: ولا يمكنك ان ترى الكود ، حتى ولو فتحت الباسورد ، لأنه عند تحويل البرنامج الى صيغة accde ، فالاكسس يخفي الكود كجزء من حماية/قفل البرنامج. الآن وقد حصلت على اجابتك ، اذا احببت ان احذف برنامجك من مشاركتك اعلاه ، فرجاء اخباري جعفر

انا ظهرت عندي نفس المشكلة عند تنزيل الملف بعدم ظهور اليوم ولكن بعد تغيير بعض القيم الى الفرنسية حلت المشكلة ننتضر ردا من الاستاذ حصبيا ربما يكون له رأي آخر

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

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

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

وعليكم السلام الرسالة تقول بأنه لا يمكنك إضافة بيانات في حقل معين ، وهناك عدة اسباب لهذه الرسالة ، ولا يمكن حلها إلا برؤية البرنامج جعفر

اخي الفاضل اليك التعديل انشاء الله يكون المطلوب اضافة مرفق لكل سجل.rar

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

هل تريد هذا ؟ القي نظرتا الى الصورة اذا نعم ... اليكي الجواب اولا : تم تغيير الحقل Date من نوع النصی الێ نوع تاریخ والوقت ثانيا : تم استعلام q1 لکی نحصل على الرقم اي دي و اسم الموظف و اضغر تاريخ للموظف وهذه الاستعلام الاول SELECT persons.ID, persons.EmpName, Min(enterans_absent.Date) AS MinOfdate FROM persons INNER JOIN enterans_absent ON persons.ID = enterans_absent.IDb GROUP BY persons.ID, persons.EmpName; ثالثا : بواسطة الاستعلام الاولى عملنا استعلام ثاني باسم q2 ويعطيك النتيجة كما مبينة في صورة الاعلاه وهذه الاستعلام الثاني SELECT Q1.*, enterans_absent.* FROM Q1 INNER JOIN enterans_absent ON (Q1.MinOfdate = enterans_absent.date) AND (Q1.ID = enterans_absent.IDb); ملاحظة : في نهاية المطاف هناك احتمال ان يكون هناك مشاكل امامك لانكي تستعمل الاسماء المحجوزة مثل Date اليك القاعدة بعد تعديل new work.rar

أخواني في المنتدى.. محاولة بسيطة مني في تبسيط عمل الكود وجعله مرن مع خيار التراجع. إليكم المرفق: sub total loop.rar

الاخوة الزملاء فى هذا الصرح العظيم اقدم لكم شرح مبسط عن msgbox فى لغة البرمجه VBA فى البداية كلنا نتفق ان اى عمل فى الاكواد يتطلب فى اغلب الاحيان وجود رساله تحذيرية للمستخدم او رساله معلوماتية او رسالة فى صيغه سؤال الرساله عبارة عن 3 أجزاء وهى كالتالى "title عنوان الرساله",BUTTONS الازرار,"text نص الرساله " msgbox نلاحظ ان ما بين كل جزء يوجد هذه العلامه ( , ) وتكتب من خلال الضغط على shift+حرف و بالعربى اولا نقوم بشرح الجزء الاول من الرساله وهو "نص الرساله " نقوم بفتح محرر الاكواد من خلال ALT+F11 ُم ادارج مودويل جديد للعمل علية اول نوع من الرسائل هى النوع العادى مثال 1 لو حبينا نعمل رساله ونكتب فيها ( كلنا بنحب أوفيسنا ) اول شئ نعمل ادراج مودويل جديد ونكتب فيه الكود التالى Sub hossam() MsgBox "كلنا بنحب أوفيسنا" End Sub نلاحظ فى الكود ان فى ثلاثة اسطر السطر الاول وهو اسم الكود وهو هنا اسمه Hossam ويمكن تغيير الى اى اسم تحبه انت الثانى وهو الكود الذى يتم تنفيذه وفى المثال السابق هو تنفيذ رساله كلنا بنحب اوفيسنا (كيف يتم كتابة الرساله) msgbox ثم "الرساله" نلاحظ ان الرساله بين علامتين تنصيص اى الضغط على shift+حرف ط بالعربى من لوحه المفاتيح لو رجعنا الى قمنا باغلاق محرر الاكواد ورجعنا الى ورقة العمل 1 من زر Developer بشريط القوائم الضغط على اول زر فوق ناحية اليسار ثم رسم الزر على ورقة العمل ستظهر لك قائمة بها كل الاكواد التى قمت بعملها اختار منها كما هو بالمثال hossam لو قمنا بالضغط على هذا الزر ستظهر لنا الرساله التالية مثال 2 عمل رساله من شقين شق ثابت وهو الرساله وشق متغير مثلا "عدد الطلبه فى الفصل الاول" & ( الرقم بالخلية A1 ) يكون الكود كالتالى Sub hossam() MsgBox "عدد الطلبه فى الفصل الاول " & Range("A1").Value End Sub وهنا نلاحظ ان بعد الانتهاء من الرساله وضعنا علامه & ثم Range("A1").Value اى الرقم اللى موجود بالخلية A1 وهو كما هو بالصورة 15 عند الرجوع الى ورقة العمل والضغط على الزر ستظهر لنا الرساله كما هو مبين بالصورة مثال 3 نريد عمل رساله فى سطرين يكون الكود كالتالى Sub hossam() MsgBox "عدد الطلبة فى الفصل الاول " & Range("A1").Value & vbNewLine & "عدد الطلبة فى الفصل الثانى" & Range("A2").Value End Sub نلاحظ هنا هذا هوالجزء الاول من الرسالة Range("A1").Value & "عدد الطلبة فى الفصل الاول " MsgBox نفس الكود السابق ثم علامة & vbNewLine & أى عمل سطر جديد ثم السطر الثانى من الرساله Range("A2").Value & "عدد الطلبة فى الفصل الثانى" MsgBox وعند الرجوع الى ورقة العمل والضغط على زر الكود ستظهر الرساله التالية كما موضح بالصورة الحمد لله انتهينا من الجزء الاول وهو نص الرساله وعرفنا انى ممكن يكون نص ثابت كما هو بالمثال الاول وممكن يكون جزء ثابت وجزء متغير كما هو بالمثال 2 وممكن يكون جزء ثابت ومتغير اكثر من مره على سطرين كما بالمثال 3 ثانيا: نقوم بشرح الجزء الثانى من الرساله وهو BUTTONS الازرار BUTTONS الازرار,"text نص الرساله " msgbox قبل ان نبداء بشرح هذا الجزء ننظر الى الصورة التالية شكل الزر رقمه الاسم فى اول مثال من الشرح وهو عمل رساله ثابته "كلنا بنحب أوفيسنا" فاذا اردنا عمل رساله "هل تحب أوفيسنا " هنا صيغة سؤال اى يوجد له اجابة اما نعم او لا اذن لابد من وجود ازرار فلو حبينا نعمل كود يكون كالتالى Sub hossam() MsgBox "هل تحب أوفيسنا ؟", vbYesNo End Sub وعند الرجوع الى ورقة العمل والضغط على زر الكود ستظهر الصورة التالية كما موضح بالصورة كما يمكن ايضا كتابة الكود بتلك الطريقه وهى استبدال vbYesNo بالرقم 4 كما هو موضح بالجدول اعلاه ويكون الكود كالتالى Sub hossam() msgbox "هل تحب منتدى اوفيسنا؟",4 End Sub

اخى الكريم تفضل الكود بيكون بهذا الشكل Sub hossam() Q = MsgBox("هل تحب اوفيسنا", vbYesNo) If Q = vbNo Then MsgBox "طيب ليه وأوفيسنا بتخدمنا كلنا": Exit Sub End If If Q = vbYes Then MsgBox "أوفيسنا بتموت فيك" End If End Sub تقبل تحياتى

انت لم تشر الى هذه النقطة من البداية ، فكل عملي كان على عمل استعلام يربط الجدولين برقم الفاتورة ، وهذا معناه انه اذا الفاتورة غير موجودة في احد الجداول ، فانها لن تظهر في الاستعلام!! طيب ، هناك حل بسيط لهذه النقطة ، ولكن بشرط اذا كان هناك جدول واحد يحتوي على جميع الفواتير والجدول الآخر لا يحتوي على جميع الفواتير ، فهل جداولك كذلك ، واذا الجواب نعم ، فأي الجداول تحتوي على جميع الفواتير؟ جعفر