jjafferr

وعليكم السلام 🙂 تفضل : R: IIf([2020]=0,"Nothing",[2020]) . . والنتيجة : . جعفر

وعليكم السلام 🙂 جرب نفس النموذج الان ، والتفاصيل لما ارجع ان شاء الله 🙂 جعفر bb - Copy.zip

وعليكم السلام 🙂 ارجو ان يكون هذا قصدك : . والكود عند تحميل النموذج : Private Sub Form_Load() Dim DBDAO As DAO.Database Dim mySQL As String mySQL = "Select * From aa" Set DBDAO = CurrentDb Set Me.Recordset = DBDAO.OpenRecordset(mySQL, dbOpenDynaset) End Sub . والنتيجة : . جعفر bb - Copy.zip

اريد اعرف اسم ملف الايقونه ، ويمكن انك في اعدادات المجلد ، ما جعلت اسم صيغة الملف تظهر ، رجاء خليها تظهر هكذا : . وبعدين صور لي اسم الملف لما تظهر صيغته

ليش غيرت الكود ؟ انت محتاج تغير فقط السطرين !! شو اسم ملف الايقونه الجديدة (اعمل صورة من الشاشة لوسمحت) ، وشو الاسم اللي تريده يظهر على سطح المكتب ؟

🙂

وعليكم السلام 🙂 ما كنت ادري اني عملت هذا المثال 😁 بحثت ونزلت ايقونة هذا الدبدوب . ووضعتها في نفس مجلد البرنامج (انا كسلان ، ما اردت ان اغير مسار الايقونه في الكود 🙂 ) : . وعليه ، غيّرت السطرين في الكود ، علشان: اشير الى اسم الايقونه الجديدة ، والاسم اللي اريده يظهر على سطح المكتب . وهذا كود الوحدة النمطية بالكامل : Function Make_Desktop_Shortcut() 'With CreateObject("WScript.Shell") ' With .CreateShortcut(.SpecialFolders("Desktop") & "\Export_to_Excel.lnk") ' .TargetPath = "C:\Stuff\Test.mdb" ' .WindowStyle = 1 ' .Hotkey = "" ' .IconLocation = "C:\Test\Test.ico, 0" ' .Description = "Test Icon Substitution" ' .WorkingDirectory = "C:\Stuff\" ' .Save ' End With 'End With DB_Name = Application.CurrentProject.Name DB_Path = Application.CurrentProject.Path 'icon_Name = "Arc5.ico" icon_Name = "Gingerbread-Bear.ico" icon_Path = Application.CurrentProject.Path icon_Name_Path = icon_Path & "\" & icon_Name With CreateObject("WScript.Shell") 'With .CreateShortcut(.SpecialFolders("Desktop") & "\Export_to_Excel.lnk") With .CreateShortcut(.SpecialFolders("Desktop") & "\دبدوب.lnk") .TargetPath = DB_Path & "\" & DB_Name .WindowStyle = 1 .Hotkey = "" .IconLocation = icon_Name_Path .Description = "Done by jj" .WorkingDirectory = DB_Path & "\" .Save End With End With End Function . وعلى سطح المكتب تشوف تجاربي : جعفر

السلام عليكم 🙂 انا استعمل الساعة الرملية لأخبر المستخدم بأن البرنامج مشغول ، هكذا : 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% 🙂 ما المقصود خصوصا بكلمة وصلات الاستعلام يعني وبكل بساطة ، استخدام الاستعلام العادي ، بعد ربط الجداول بعلاقات 🙂 جعفر

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

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

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