jjafferr

شكرا على كلماتك الجميله انت كنت حاط هذه الحقول على بعضها (طبعا تقدر ترجعها مكانها مرة ثانية ، وما في داعي لتغيير اي شيء آخر). وتفضل المرفق جعفر 958.سند قبض.accdb.zip

وعليكم السلام الاكسس برنامج يعمل على نظام الوندوز والماك ، فيمكنك استعماله عن طريق كمبيوتر يحتوي على احد انظمة التشغيل هذه. اما اذا الاكسس لم يكن منصب على الكمبيوتر/الهاتف/الموبايل/التابلت (iPad او Android Tablet) ، سواء لأنك لم تقم بتنصيبه (في بيئة الوندوز او الماك) ، او لأن الاكسس اصلا غير متوفر لهذا النظام (مثل الاندرويد) ، فهنا تستطيع استعمال برامج التخاطب عن بُعد (مثل TeamViewer او Remote Desktop Connection او GoToAssist) ، بحيث تخاطب/تتصل باي كمبيوتر في اي مكان في العالم عن طريق الانترنت ، وهذا الكمبيوتر يكون الاكسس منصب عليه ، فعليه واقعا ، انت تستعمل الاكسس الموجود على ذلك الكمبيوتر وجهازك هو عبارة عن اداة لمشاهدة والتحكم في ذلك الكمبيوتر وبرنامج الاكسس فيه. TeamViewer او Remote Desktop Connection والموجود على كل كمبيوتر . جعفر

وعليكم السلام انت عملت علاقة بين الجداول ، مما يعني ان السجل في الجدول Sand_T يجب ان يحتوي على قيم جميع الحقول المرتبطة في الجداول الاخرى. 1. انت عملت علاقة بين جدولي Sand_T و ExpenseName ، 2. مما يعني ان قيمة الحقل ExpeneseID يجب ان تُدخلها في النموذج "سند صرف" ، بغض النظر عن نوع السند ، 3. وهذه الرسالة تُخبرنا عن سبب عدم الحفظ ، بسبب 1 و 2 اعلاه . جعفر

وعليكم السلام كل اللي تعمله هو: النموذج frm_Main ، اعمل حدث عند فتح النموذج ، واكتب فيه: docmd.maximize ، هذا الامر سيكون ساري المفعول لبقية نماذج البرنامج ، فلا داعي لكتابته في غير هذا النموذج الميزة في هذه الطريقة ، اننا نتلافى النماذج المنبثقة ومشاكلها ، فجميع النماذج تكون في حجم الشاشة. جعفر 957.جديد.mdb.zip

السلام عليكم من المعروف ان الكلمات العربية في الكود ، تلخبط الكود ، فما نعرف اوله من آخره!! الطريقة في الرابط عبارة عن تجزأة الكود الى عدة اسطر ، فيسهل عمله ويسهل فهمه ، وخصوصا اذا كان بأكثر من معيار: جعفر

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

ايش رايك بإجابة صامته . . . جعفر 956.خدمات.accdb.zip

جرب هذا الرابط ، فإنه يقول بانه بإمكانك عمل mdw لبرنامجك ، وقد تستفيد منه: https://www.thegrideon.com/mdb-mdw-in-new-msaccess.html الاكسس الان بصيغة accdb وهو افضل من صيغة mdb ، والذي لا يدعم mdw !! هذا رابط فيه مرفق لشرح عملية الربط http://www.arabmoheet.net/aspnetforum/amf/651c2e3c-c4d8-4c05-bbc9-73c5c48d3356.aspx جعفر

لا توجد طريقة ، سوى الرجوع الى النسخ الاحتياطية Backup سابق ، ولا معنى للـ Backup على نفس الكمبيوتر ، فإذا عطل الهارد دسك ، خسرت كل شيء نعم هناك برامج لإسترجاع البيانات من الهارد دسك المعطوب ، ولكنها تعتمد على حالة الهارد دسك ، وهناك حالات لا يمكن استرجاع شيء منها جعفر

السلام عليكم ابو عبدالله حسب علمي ، لا توجد طريقة لعمل مثل اللي يصير عندك ، وحسب ما قرأت في الانترنت ، لا توجد طريقة لعمل مثل اللي يصير عندك ، إلا اذا لم تكن تملك الصلاحية للقيام به (مثل فتح الجدول او فتحه في التصميم) ، واما الصلاحية فليست من البرنامج ، وانما من ملف امان المجموعة MDW ، ففي هذا الملف نعطي صلاحيات المستخدمين ، لكل كائنات البرنامج ، واذا تم عمل برنامج ، وعمل معه هذه الصلاحيات ، فيجب ان يكون ملف الصلاحيات موجود في نفس الكمبيوتر الذي فيه البرنامج ، ونشير الى هذا الملف في مختصر البرنامج (من على سطح المكتب مثلا) ، واما اذا فتحت البرنامج مباشرة وبدون الاشارة الى هذا الملف ، فلن تكون عندك الصلاحية ، ويصير عندك كما هو الحال الآن ، ولا تستطيع تغيير هذه الصلاحيات ، إلا اذا حصلت على الملف الاصل للصلاحيات!! وهذا ينطبق على برامج الاكسس بصيغة mdb و mde ، ولا ينطبق على صيغة accdb و اخواته. جعفر

اضفت وحدة نمطية تقوم بهذا العمل جعفر

انا عملت تعديل على المرفق الاصلي ، ولا يمكن استعمال x للخروج من البرنامج الان فرجاء انزال المرفق مرة اخرى جعفر

ولكن هذا العنصر ليس للنموذج ، وانما هو للبرنامج

الحمدلله

ومشاركة معي اخي الوزير يمكنك استعمال الكود التالي في التقرير ، في حدث تنسيق جزء التفصيل Private Sub تفصيل_Format(Cancel As Integer, FormatCount As Integer) If Me.Alkmiah_mtob = 0 Then Me.Section(acDetail).Visible = False Else Me.Section(acDetail).Visible = True End If End Sub . ولكي ترى النتائج الصحيحة ، يجب ان يكون التقرير في وضع معاينة الطباعة Print Preview جعفر 955.اخفاء القيمه بالتقرير بشرط.accdb.zip

بغض النظر عن استعمال اي كود ، واشوفك استعملت If Not (left(tdf.NAME, 4)) = "MSys" And tdf.NAME <> "User" Then اي استخدمت الفكرة نفسها اللي اخبرتك عنها ، فهل تم عمل اللازم بإستخدام كودك المعدل ؟

جرب هذه الطريقة لفتح البرنامج: افتح الاكسس (مو قاعدة بياناتك ، وإنما برنامج الاكسس) ، ثم اختار قاعدة بياناتك ، واختار Open Exclusive . ثم جرب قراءة الجدول. جعفر

كيف تفتح البرنامج؟ من على سطح المكتب عند النقر على مختصر البرنامج؟

انا ضعت الآن وما اعرف شو طلبك انت طلبت: والآن تقول سؤال: كيف تستعمل هذا البرنامج ، هل هو بصيغة mdb او mde ، وعند الدخول في البرنامج هل تُدخل اسمك وكلمة السر ، وهل تستعمل ملف المجموعات MDW ؟ جعفر

يجب ان يكون عندك في كل نموذج زر خروج

اخوي ابو ياسين 1. قلت لك لا تستعمل If Left(obj.Name, 4) <> "MSys" or obj.name <> "tbl_one" Then وانما استعمل If Left(obj.Name, 4) <> "MSys" And obj.name <> "tbl_one" Then 2. الكود اللي انا وضعته هو تقريبا نفس الكود اللي انت وضعته ، بإستثناء ، ان الكود حقي يجب ان يكون في البرنامج اللي فيه الجداول (سواء مضمنه او مربوطة) وتريد تحذف سجلاتها ، بينما كودك يعمل شوية شغلات اضافية ، بالاضافة الى حذفه لسجلات من برنامج خارجي. جعفر

تفضل . جعفر 950.1.الجمعية_.accdb.zip

1. لا ، ولا انصح بعمل اللي تريده ، ولكن يمكن عمل حقل فوق هذا الحقل (بالضبط ، وبنفس اللون ، ونجعله مخفي ، وليكن اسمه For_New_Record) ، ونكتب في هذا الحقل الغير مضمن ، كلمة (جديد) ، وفي حدث الحالي في النموذج ، نكتب هذا الكود لإخفاء احدهم وإظهار الآخر ، في الوقت الصحيح: Private Sub Form_Current() If Me.NewRecord Then Me.For_New_Record.Visible = True Me.RowID.Visible = False Else Me.For_New_Record.Visible = False Me.RowID.Visible = True End If End Sub . 2. لا يمكنك ان تضيف اي رقم لهذا الحقل ، فالرقم سيظهر تلقائيا عند حفظ السجل ، لذا اقفل هذا الحقل جعفر 953.2.test.accdb.zip