ahmad_mustafa

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

السلام عليكم المطلوب عن الضغط على محدد السجلات كما هو موضح بالصورة يتم تلوي ن السطر كامل بوحدة نمطية او غيرها ولك الشكر

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

اشكرك استاذي ابو جودي كله تمام

التحقق من اي بي الشبكة.rarلدي فيديو اوضح فيه مشكلتي لكن لم استطع ادراجه ؟؟؟ كلمة السر123 كحيث قمت قمت بوضع القاعدة التي بها الجداول في درايفر مشاركة والواجهة على سطح المكتب ولازالت المشكلة رسالة خطا التحقق من اي بي الشبكة.rar

نوع الشبكة LAN

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

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

اسف على الـتأخير و بصراحة جربت الاجابتين ولازلت اواجه نفس المشكلة ظهور رسالة الخطأ اثناء العمل وهذه الرسالة كما تعلم يمكن للمستخدم يضفط على زر debug و بفتح صفحة الاكواد ويراها ربما انا اخطات في وضع الاكواد اتمنى مساعدتي بالملف المرفق ووضعها في مكانها . اثناء انقطاع الشبكة_2.rar

بارك الله فيكم جمبعا

سامحني لقد حاولت ومانجح معي يرجى مساعدتي لو تكرمت بوضعك للكود في الملف المرفق ,, وهل ستظهر vسالة عند قطع الاتصال ام ستغلق القاعدة اثناء انقطاع الشبكة.rar

اشكرك اخي هل المكان الملون بالاصفر اضع اسم الجدول وهل عند فقد الاتصال ستظهر رسالة؟؟ Private Function TableLinkOkay(strTableName As String) As Boolean 'Function accepts a table name and tests first to determine if linked 'table, then tests link by performing refresh link. 'Error causes TableLinkOkay = False, else TableLinkOkay = True Dim CurDB As dao.Database Dim tdf As TableDef Dim strFieldName As String On Error GoTo TableLinkOkayError Set CurDB = DBEngine.Workspaces(0).Databases(0) Set tdf = CurDB.TableDefs(strTableName) TableLinkOkay = True If tdf.Connect <> "" Then '#BGC updated to be more thorough in checking the link by opening a recordset 'ACS 10/31/2013 Added brackets to support spaces in table and field names strFieldName = CurDB.OpenRecordset("SELECT TOP 1 [" & tdf.Fields(0).Name & "] FROM [" & tdf.Name & "];", dbOpenSnapshot, dbReadOnly).Fields(0).Name 'Do not test if nonlinked table End If TableLinkOkay = True TableLinkOkayExit: Exit Function TableLinkOkayError: TableLinkOkay = False GoTo TableLinkOkayExit End Function

السلام عليكم اثناء العمل على قاعدة تم تقسيمها هل يوجد كود في وحدة نمطية يبحث اذا كانت القاعدة لازالت مربوطةبالجداول او فقد الاتصال بها ليظهر لنا رسالة واغلاق القاعدة من دون اللجوء الى وضع كود DoCmd.Close On Error GoTo Err: DoCmd.OpenForm "تذاكر_ادخال" Err: If Err.Number = 3043 Or Err.Number = 3024 Or Err.Number = 3044 Or Err.Number = 3078 Then MsgBox "فشل الاتصال بالسيرفر يرجى ابلاغ المسؤول", vbExclamation, "حالة الاتصال بالشبكة" Exit Sub End If عند الاغلاق اوالفتح في الفورم مع العلم انه لدي 60فورم اثناء انقطاع الشبكة.rar

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

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

بارك الله فيك الكود اشتغل تمام

السلام عليكم في المرفق نموذج برنامج به زر يعمل على تصدير pdf لملف في مسار 1 ويوجد به زر اخر لعمل نسخة باك اب والمطلوب ان ينسخ الباك اب الى المسار 2 وذلك كي لاتكون نسخة الباك اب على نفس الهارد مع العلم عند فتح النموذج ينشأ تلقائي الفولدرات للمسار 1 والمسار2 ....وجزاكم الله كل خير 2URL.rar

شيء رائع اشكركم اشكركم

السلام عليكم بالقاعدة المرفقة فورم استعلام عند فتحه سوف ينشأ تلقائي فولدرين الاول "صور_تذاكر" والاخر "ملفات تم تصديرها" وما اريده مساعدتي بكود عند الضغط على زر التصدير ان يصدر الملف الى الفولدر "ملفات تم تصديرها" وليس الى المستندات . مع العلم ان المسار محدد مسبقا من فورم "frm_msar_folder" تصدير حسب المسار.rar

تمام اشكرك

السلام عليكم لقد انشات الجدول والفورم للمسار وغيرت الكود لكن مانجحت معي ربما انا اخطات في الكود يرجى من المرفق اصلاح المشكلة ولك الشكر الارشيف.rar

لقد جربت ما اقترحته ونجحت الطريقة.... لكن هل يمكن تغيير المسار من فورم معين ومنه يتغير في المديول

اشكرك للاهتمام

السلام عليكم لدي قاعدة بيانات لاستخدامها كأرشيف لملفات بي دي اف وهذه القاعدة تنشيء فولدر تلقائيا بعد فتح الفورم "تذاكر_ادخال" لكن عندما قمت بتقسيم القاعدة لمشاركتها من السيرفر واجهت مشكلة ان كل مستخدم حين يفتح الفورم سوف ينشئ على سطح مكتبه الفولدر تلقائي والمفروض ان الفولدر فقط يتم انشاءه على السيرفر فقط ارجو من الخبراء مساعدتي في اجاد حل لهذه المشكلة ولكم الشكر الارشيف.rar

اشكرك اخ محمد ،،، فعلا هذا طلبي لكن الملاحظة ان السجل يبقى ثابت لا يحدث نفسه الا بالضغط على زر f5