jjafferr

السلام عليكم 🙂 انا استعمل الساعة الرملية لأخبر المستخدم بأن البرنامج مشغول ، هكذا : docmd.hourglass true بقية الكود الخاص بك docmd.hourglass false جعفر

الظاهر ان الموضوع اصبح ملتقا للأصحاب 🙂 اخي الفاضل ، يجب عمله هو عمل التقرير الذي تريده بإسم كل شخص ، ثم لإرسال الايميل ، يجب عمل ملف pdf من التقرير اعلاه ، للشخص المطلوب ، ثم استعمال احد البرامج من الروابط التالية لإرسال الايميل بالمرفق اعلاه (عمل بحث في المنتدى سيعطيك الكثير من هذه الروابط المفيدة) : https://www.officena.net/ib/topic/77563-ارسال-رسالة-من-اكسس-إلى-ياهوو/?tab=comments#comment-498174 https://www.officena.net/ib/topic/77591-ارسال-مرفقات-الى-ايميل-من-الاكسس/?do=findComment&comment=498412 جعفر

حيا الله اخوي عبيد 🙂 الظاهر تلخبط عندك الجعافر 🙂 جعفر

وشكرا ابا جودي ، والحمدلله انتهى الموضوع 🙂 جعفر نعم ، انا تصرفت بمشاركتك 🙂

وعليكم السلام 🙂 اذا كانت عندك علاقة بين الجداول ، وتكون مختار الاختيار الثالث اللي عليه السهم : . فلما تحذف سجلات الجدول 1 ، سيتم حذف سجلات جميع الجداول التي لها علاقة بهذا الجدول 🙂 جعفر

ردي على حسب المعلومة التي ارفقتها 🙂 بدل ان تعمل حقل BOX لكل سجل ، قد يمكنك استعمال النموذج التالي: . وكود بعد التحديث بعد النقر على قائمة ListBox : Private Sub lst_ID_AfterUpdate() Me.ID.SetFocus DoCmd.FindRecord Me.lst_ID, , , , , acCurrent, True End Sub جعفر 1301.PPPP.accdb.zip

حيا الله الشباب 🙂

شكرا اخي نبراس 🙂 لو استعملت الاداة الخاصة بالكود ووضعت الكود داخل المربع المنبثق الخاص به ، حتى يظهر الكود بالطريقة الصحيحة 🙂 ، ويسهل قراءته : end: Switch(IsNull([تاريخ انتهاء التقرير]);"لم يسلم";[تاريخ انتهاء التقرير]<=Date();"منتهي";[تاريخ انتهاء التقرير]>=Date();"غير منتهي") جعفر

اخي محمد 🙂 لوسمحت اعمل مثال بالنتائج بالاكسل ، علشان ممكن نترجمه الى الاكسس 🙂 جعفر

حياالله الهاوي 🙂 هو نفس الحل في مشاركتي اعلاه (تجنب رقم الخطأ ، الى ان يتم الحفظ) : ولكن بطريقة مختلفه 🙂 جعفر

اخي الفاضل ahsnko عنوانك مخالف : اصحاب الخبره : ( ترحيل بيانات حقل غير منضم الى جدول خاص به ) قسم الأكسيس Access Access هذا المنتدى مخصص لمشاركات الأكسيس قواعد المشاركة فى الموقع اضغط هنـــــــــامن فضلك لقراءة القواعد كاملة و بصفة خاصة نؤكدعلى ما يلي 1- يمنع منعا باتا نشر أية مواد تخالف حقوق الملكية الفكرية و يرجى الابلاغ عن المشاركات المخالفة من خلال زر تقرير اسفل المشاركة 2-يجب استخدام خاصيةالبحث قبل طرح السؤال توفيرا للوقت و الجهد. 3-ضرورة كتابة عنوان واضح للموضوع يدل على محتواه ويعطي وصفاً مختصرا للسؤال. 4-ممنوع منعا باتاً كتابة عناوين سينمائية مثل عاجل ، نداء الي فلان ، الي الخبراء ، طلب مساعدة ، أريد حلا..... 5-يمكن استعجال الرد باستخدام تعبير -للرفع- و غير مسموح بالالحاح او اللوم فجميع الاعضاء يشاركون تطوعا طبقا لسعة وقتهم. ومخالفة ذلك تعرض الموضوع للحذف رجاء مراعاة هذه القوانين في المستقبل 🙂 جعفر

اخجلتونا يا جماعة 🙂 خلاص ، وبهذه المناسبة ، العشاء على حسابي الليلة ، والجميع مدعو 🙂 جعفر

استاذ اباجودي 🙂 انت سألت وحصلت اجابات على جميع اسالتك ، وبأمثلة 🙂 الى هنا وانتهى الموضوع 🙂 فأتى الدور ان أسأل انا واستفيد من كلمة قالها اخوي ابو ابراهيم سابقا ، ولم التفت لها حينها ، فسألته ، و رده كان على سؤالي 🙂 فقمت انت بالاستفسار عن هذه الجزئية الجديدة من رد اخوي ابو ابراهيم ، والجواب كان انه يستعمل الاستعلام العادي (والذي قد تكون فيه علاقة بين الجداول) كمصدر بيانات للنموذج ، اي انه لا يستعمل الجداول كمصدر بيانات للنموذج ، وهي نفس الطريقة التي استعملها انا 🙂 يعني سؤالي نوعا ما ، خارج عن موضوعك 😁 جعفر

اخي القاضي ، شكرا جزيلا على جميل كلماتك ، ونسأل الله القبول 🙂 جعفر

هذا عينا الذي اقوم به 100% 🙂 ما المقصود خصوصا بكلمة وصلات الاستعلام يعني وبكل بساطة ، استخدام الاستعلام العادي ، بعد ربط الجداول بعلاقات 🙂 جعفر

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

هل قرأت مشاركتي هناك ؟ هي بالصبط ما تريد 🙂 جعفر

معذرة اخوي ابو ابراهيم : نعم بهذه الطريقة يمكن اخفاء الاستعلام ، كما تم اخفاء الجداول ، ولكن ، هل سيكون تنفيذ الاستعلام اسرع في جعله في قاعدة البيانات الخلفية ، مما لو وضعناه في قاعدة بيانات الواجهه ؟ جعفر

وعليكم السلام : التقرير لا يحترم ولا يستعمل الفرز من الاستعلام/الجدول ، لذلك يجب عليك عمله في التقرير ، لذلك يمكنك عمله في التقرير هكذا : . جعفر

في الرابط التالي ، تم مناقشة طلبك ، وبعدة طرق ، ومنها مشاركة مني 🙂 اذا احببت ، ابدأ من مشاركة اخوي ابو ابراهيم الغامدي الى مشاركتي ، ولكن قراءة الموضوع كاملا له منفعة اخرى : جعفر

قام اباجودي بوضع المثال هنا

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

حياك الله 🙂 جعفر

هناك طريقتين: 1. اذا كانت الاسطر في الصورة متساوية ، ويمكن عمل المربع حول السطر ، وهذا المربع ينزل بعدد معين لكل سطر ، فيمكن تحريكه برمجيا / مثلا : نضبط المربع على السطر الاول ، ثم ننزله بالاسهم (Arrow keys down) الى ان يحتوي السطر الثاني (مثلا ضغطنا على السهم الاسفل 6 مرات) ، فيجب ان نضغط 6 مرات اخرى حتى نحتوي السطر الثالث ، وهكذا (ولكن وللأسف الاسطر في الصورة غير متساوية ، فلا يمكن استعمال هذه الطريقة ، 2. ان نعمل جدول خاص ، نكتب فيه رقم السطر (المثال على السطر 15) ، ونكتب قيمة TOP المربع ، نضع التقرير في وضع التصميم ، ثم نحركة بواسطة الاسهم ، ولما يحتوي المربع السطر ، نكتب رقم السطر وقيمة TOP ، وهنا يمكننا استخدام هذه الطريقة : . وهذه نتيجة الضغظ على "رقم التسجيل" 4 (للعلم ، جربت اللون الاصفر ولا يبرز ، فاستعملت اللون الاحمر) : . ولأن الصورة في قسم Page Header ، فيجب ان نعمل حدث "عند التنسيق" به : . و الكود في التقرير يأخذ قيمة TOP رقم التسجيل من الجدول ، ثم نضرب الرقم (رقمي بالبوصة * 1440 ، بينما لو كان رقمك بالسنتيمتر فيكون * 567 ) : Private Sub PageHeaderSection_Format(Cancel As Integer, FormatCount As Integer) Dim rpt_Top As Double Dim rpt_Name As String Dim myWhere As String rpt_Top = DLookup("[rTop]", "tbl_rpt_Rows", "rRow=" & rpt_Row) Me.Box5.Top = rpt_Top * 1440 End Sub . ونكون قد ارسلنا "رقم السجل" من النموذج الفرعي الى المتغير rpt_Row رقم سطر التسجيل : Private Sub أمر180_Click() 'Call MENUFORMS1991 Dim rpt_Name As String Dim myWhere As String rpt_Row = Me.[رقم التسجيل] rpt_Name = "تقرير1" myWhere = "" DoCmd.OpenReport rpt_Name, acViewPreview, , myWhere End Sub . جعفر 1298.سجل.accdb.zip

وعليكم السلام 🙂 ولو اني مالي علاقة بالتصميم ، ولكن سؤالي : 1. النموذج الرئيسي ، 2. ثم النموذج الفرعي1 Main2 ، 3. ثم النموذج الفرعي2 forma3 هل هناك سبب لعمل هذه النماذج الفرعية ؟ . اي معلومات تريد تلوينها ؟ اعطينا مثال. جعفر