jjafferr

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

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

عفوا نسيت ذكر SQL وعن طريق الجدول المحلي ، ترسل البيانات الى جدول SQL ، انت في الكود تعمل جدول محلي ثم تلغيه ، فالفرق هنا ان يكون الجدول المحلي ثابت ، بسجل واحد فقط جعفر

وعليكم السلام ورحمة الله وبركاته عمل جميل ، بفكرة جديدة مستحدثة ، بارك الله فيك عندي ملاحظة واحدة: في بعض الدول الانترنت متقطّع ، فرأي ان تعمل جدول محلي وتجعله مصدر لبيانات النموذج ، بحيث معلومة التقييم يتم الاحتفاظ بها في قاعدة البيانات المحليه ، وعند الضغط على زر ارسال التقييم: أ- اذا تمت عملية ارسال البيانات ، فيتم حذف البيانات من الجدول المحلي ب- ولكن اذا لم يكن هناك انترنت: تخبر المستخدم بذلك ، بدل الرسالة الموجودة حاليا ، والتي لن يفهمها او يفهم ماالذي يجب القيام به ، وتخبره بأنه اذا لا يوجد انترنت الآن ، فانه يمكنه لاحقا ان يفتح النموذج وسيرى تقييمه في النموذج ، وما عليه إلا ان يضغط زر ارسال التقييم مرة ثانية جعفر

السلام عليكم تجربتي في التاريخ الهجري قليلة ، لهذا السبب عادة لا اتدخل في اسئلته افكر في طريقتين: الاولى: - اعمل حقل غير مضمن في احد النماذج الرئيسية ، وادخل فيه التاريخ الهجري كل يوم (يدويا او برمجيا ثم تصححه اذا شاء الامر) ، واجعل الاستعلام يقارن تاريخ الجدول ، بهذا التاريخ - ولكن قبل فتح الاستعلام ، يجب ان تخبر البرنامج انك تريد استخدام التاريخ الهجري للمقارنة والحساب ، وهنا الطريقة: http://www.officena.net/ib/topic/64763-التاريخ-الافتراضي-الهجري/?do=findComment&comment=421491 يعني: زر فتح الاستعلام سيكون: كود استعمال التاريخ الهجري (كما في الرابط اعلاه) كود فتح الاستعلام/التقرير كود إعادة التاريخ الى ميلادي (كما في الرابط اعلاه) الثانية: 1. هي ان نغير التاريخ الهجري الى ميلادي او العكس (عن طريق الكود في الاستعلام) : http://www.officena.net/ib/topic/56008-دالة-تحويل-التاريخ-الهجري-إلى-ميلادي/?do=findComment&comment=354428 او http://www.officena.net/ib/topic/36309-تحويل-التاريخ-الهجري-الى-ميلادي-وبالعكس/?do=findComment&comment=192182 ولو عندك تاريخ ام القرى ، فنستطيع استعمال: http://www.officena.net/ib/topic/59213-تحويل-التاريخ-الميلادي-الى-ام-القرى-هدية-وبطريقة-حصرية/?do=findComment&comment=378783 2. ونحن نعرف انه قد يكون هناك فرق عند تحويل تاريخ الجهاز الميلادي الى هجري ، والفرق يكون اقصاه 3 ايام ، لذا في الاستعلام وللمقارنة بين التواريخ ، لا تقارن يوم الجدول بيوم الجهاز المحول ، وانما قارن يوم التاريخ مع يوم الجهاز المحول +-3 ايام (يعني 3 ايام قبل تاريخ الجدول و3 ايام بعده) ، وطبعا تكون تعرف ان النتائج تقريبية وليست اكيدة قلت لك تجربتي مع التاريخ الهجري قليلة جعفر

اليك التعديلات: 1. عمل جدول خاص بالموظفين: . 2. تغيير جدول Maintb الى التالي: . الآن ، كل سجل يخص موظف واحد فقط ، وكلما اردت اضافة معلومات ، فيجب إضافة سجل/سجلات جديده للموظف حسب الحاجة من المهمات طبعا الآن يجب ان تغير في نموذج الادخال ، وعليه لازم نغير طريقة عمل النماذج اللي اشتغلنا عليها سابقا ، وكذلك التقرير. جعفر 368.Database1.mdb.zip

ولكن في الجدول Maintb ، هناك حقل واحد فقط لجميع الحقول في المربع الاحمر!! يعني هل افهم من كلامك ، انه كلما اردت اضافة مهمة Category لشخص ، فيجب ان تغير بقية الحقول كذلك؟ اذا كان الجواب نعم ، فهذا معناه ان جدولك يحتاج الى تعديل ، بحيث كلما تُدخل مهمة ، فيجب ان تعمل سجل جديد في الجدول يخص هذا الشخص فقط. انتظر منك الرد لإجراء التعديل على الجدول. جعفر

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

بسبب تجاربي ، انا اوقفته من النموذج Form1 ، فتستطيع تشغيله الآن جعفر

ماشاءالله عليك ، هذه هي الطريقة المحترفة جعفر

سيدي الفاضل من الخطأ ان تبدا اسم الكائنات برقم ، او اسم حقل ، واتذكر في احد المنتديات الاجنبية ، كنت وسط أفضل المبرمجين ، وجاءنا سؤال في المنتدى ، وكان احد جداوله يبدا برقم ، ولم نفلح في الوصول الى حل (مع ان السؤال ما كان بذاك التعقيد) ، ولما تم تغيير اسم الجدول ، تم الحل بسهولة !! . نموذج frm_Favorite: زر Add / Remove هو الذي يضيف المواد الى المفضلة ، وتعرف ان المادة اُضيفت الى المفضلة عندما يصبح لون الخلفية اخضر ، نموذج frm_Medication: عند تشغيل النموذج ، ستظهر لك جميع الادوية ، حيث All سيكون مختار ، وعندما تختار Favorite ، ستظهر لك الادوية المفضلة فقط عندما تريد ان تبدأ من البداية ، يجب ان تستخدم الاستعلام qry_User_All_to_Zero ، حتى يُزيل جميع الادوية المفضلة (طبعا استعمل هذا الاستعلام مرة واحدة وفي البداية فقط) ، عند بدأ البرنامج ، يقوم البرنامج بحفظ رقم المستخدم في وحدة نمطية ، وهذا الرقم متوفر للبرنامج الى اغلاقه ، وستلاحظ في الاستعلام الطريقة التي استعمل هذا الرقم ، وهي: . او في الكود: Me.Add_This_ID = Pass_ID() . وللعلم ، تم إضافة رقم الدكتور الى جميع الوصفات اللي يعملها ، فيعني تستطيع ان تعمل استعلام بإسم الدكتور ، بالاضافة/بدل عن Print_This جعفر 357.ER12345678.accdb.zip

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

مافي مانع من المساعدة ، بل ونرحب بالفكرة ، ولكن رجاء تنظيف المرفق من الفيروسات (ان وجدت) ، ثم تستطيع ان ترفقه ، وانا هنا اطلب منك ارفاق نسخة نظيفة من البرنامج حتى نستفيد منه جعفر

أخي محمد هذه اول مشاركة لك ، فلوسمحت تتأكد ان مرفقاتك نظيفة من الفيروسات. جعفر

السلام عليكم اخي كرار انتبه لحقل النص وحقل الرقم والتاريخ جعفر

انا لا استخدم دوال الاكسل ولا اعرفها في طريقة كتبها الاستاذ رمهان ، بحيث تنادي دوال الاكسل من الاكسس ، فيمكنك البحث عن الموضوع في المنتدى اما اذا اردت انا اساعدك انا في الاكسس ، فلوسمحت ترد على سؤالي السابق جعفر

الكود ظاهرا تمام !! ارفق البرنامج اشوفه جعفر

قد تفيدك هذه الروابط: Download/Retrieve Email from Gmail account in VB 6.0 و example for gmail with vba-web جعفر

السلام عليكم رجاء تعطي توضيح للارقام من 25700 ، 25710 ، ... ، 25790 جعفر

افكر كثيرا فيما قلت ولكن كيف التنفيذ هل من مساعدة او اقتراح بشان تلك القاعدة السلام عليكم خليني افكر معاك ، بس بصوت عالي ممكن انك تسمعه احنا محتاجين جدولين ، tbl_Software ، ويكون فيه Software_ID (المعرّف ، ويربط به الجدول الآخر ايضا) ، اسم البرنامج ، الايميل ، كلمة السر ، الجدول الثاني هو tbl_Software_Feedback ، ونربطه بحقل Software_ID في الجدول الاخر ، In_Out (نوع الرسالة خارجة او آتيه) ، الرسالة ، التاريخ ، وهنا ، الكود يأخذ بياناته من الجدول جعفر

تفضل سيدي الفاضل Private Sub Form_Open(Cancel As Integer) 'عند فتح النموذج ، اجعل النموذج الفرعي مخفي 'لأننا لا نريد المستخدم ان يرى غير البيانات المطلوبة Me.sfrm_updatefrm.Visible = False End Sub Private Sub poscom_AfterUpdate() 'الآن وقد تم اختيار الشخص ، نجعل النموذج الفرعي مرئي Me.sfrm_updatefrm.Visible = True 'هناك حقلين موجودين في الجدول لكل شخص 'حقل يبدأ بكلمة "حالة" و حقل يبدأ بكلمة "بريد" فقط 'فإذا اضفنا كلمة "حالة " قبل اسم الشخص ، ثم اضفنا اسم الشخص عليها 'ستكون نفس اسم الحقل في الجدول ، ونفس الشئ بالنسبة للحقل الثاني، بريد H = "حالة " & [Forms]![updatefrm]![poscom] B = "بريد " & [Forms]![updatefrm]![poscom] 'نعطي هذه الاسماء لمسميات الحقول Me.sfrm_updatefrm!lbl_H.Caption = H Me.sfrm_updatefrm!lbl_B.Caption = B 'والآن نعطي هذه الاسماء كمصدر للحقول Me.sfrm_updatefrm!str_H.ControlSource = H Me.sfrm_updatefrm!str_B.ControlSource = B 'الآن نعمل استعلام ، ليكون مصدر للنموذج الفرعي 'اولا نأخذ الحقول الثابتة mySQL = "SELECT Category, [Sub-Category], Action, [Due Date], " 'نضيف الحقلين المتغيرين للشخص، والتي تم عملهما في اعلاه mySQL = mySQL & "[" & H & "], " mySQL = mySQL & "[" & B & "]" 'ونكمل الاستعلام بإضافة مصدر معلوماته ، وهو الجدول mySQL = mySQL & " FROM Maintb" 'Debug.Print mySQL 'الآن وقد تم عمل استعلام مصدر بيانات النموذج الفرعي 'نخبر البرنامج ان يستعمله Me.sfrm_updatefrm.Form.RecordSource = mySQL 'ولو انه لا داعي للسطر التالي ، ولكنه لإعادة قراءة البيانات من الجدول Me.sfrm_updatefrm.Requery End Sub جعفر

تفضل . الكود الذي يقوم بالعمل هو: Private Sub Form_Open(Cancel As Integer) Me.sfrm_updatefrm.Visible = False End Sub Private Sub poscom_AfterUpdate() Me.sfrm_updatefrm.Visible = True H = "حالة " & [Forms]![updatefrm]![poscom] B = "بريد " & [Forms]![updatefrm]![poscom] Me.sfrm_updatefrm!lbl_H.Caption = H Me.sfrm_updatefrm!lbl_B.Caption = B Me.sfrm_updatefrm!str_H.ControlSource = H Me.sfrm_updatefrm!str_B.ControlSource = B mySQL = "SELECT Category, [Sub-Category], Action, [Due Date], " mySQL = mySQL & "[" & H & "], " mySQL = mySQL & "[" & B & "]" mySQL = mySQL & " FROM Maintb" 'Debug.Print mySQL Me.sfrm_updatefrm.Form.RecordSource = mySQL Me.sfrm_updatefrm.Requery End Sub جعفر 368.Database1.mdb.zip

اما انا فعلى قد حالي ما أقرأ بين السطور ، وما افهم بدون مثال جعفر

شكرا على محاولاتك ، وصبرك جعفر