jjafferr

اخي محمد ، الاوفيس لا علاقة له بالموضوع ، هي فقط اعدادات الوندوز ، الصورة رقم 4 من الرابط اعلاه ، واختيار دولة عربية في اختيارات Unicode ، والتأكد من عدم اختيار المربع Beta. ثم يجب اعادة تشغيل الكمبيوتر 🙂 جعفر

وعليكم السلام 🙂 تفضل : Private Sub yars_AfterUpdate() '1 Dim ys as Date ys = DateAdd("yyyy", Me.WARRNTY, Me.BDATE) + DateAdd("yyyy", 0, Me.BDATE) - BDATE Me.EDATE = DateAdd("D", -1, ys) 'Or '2 Dim ys As Date ys = Me.BDATE - 1 Me.EDATE = DateAdd("yyyy", Me.WARRNTY, ys) + DateAdd("yyyy", 0, ys) - ys End Sub جعفر

وعليكم السلام 🙂 اي رسالة من رسائل الاكسس تحتوي على كلمة خادم و OLE ، فمعناها ان اعدادات الوندوز (وليس الاكسس) يحتاج تغييرها لتدعم اللغة العربية ، هكذا: . جعفر

هذه الرسالة بسبب اعدادات الوندوز ، لغة Unicode ، عادة تكون اللغة العربية ، بس معاك ممكن تكون اللغة الفرنسية !! جرب هذه اللغة ، ثم تلك : . جعفر

تفضل 🙂 اضف المعيار الجديد الى استعلامك : . اعمل زر تحديث على النموذج الرئيسي ، وضع هذا الكود فيه: Dim rst As DAO.Recordset DoCmd.Hourglass True Set rst = Me.invdetails_Subform.Form.Recordset rst.MoveFirst Do Until rst.EOF DoCmd.SetWarnings False DoCmd.OpenQuery "updateStoretransaction" DoCmd.SetWarnings True rst.MoveNext Loop DoCmd.Hourglass False rst.MoveFirst . جعفر 1393.Update_From_SubForm.accdb.zip

وعليكم السلام 🙂 استعلامك صحيح ، وعندك حاليا شرط رقم الفاتورة ، واذا اردت ان تضيف الشروط / المعايير ، فتقدر تحت كل حقل ان تكتبه 🙂 اما اذا اردت تشغيل الاستعلام من النموذج ، فضع الكود التالي على اي حدث يناسبك: if me.dirty then me.dirty = false docmd.setwarnings false docmd.openquery "updateStoretransaction" docmd.setwarnings true ملاحظة: من الخطورة ان تضع On error Resume Next في كل حدث في الكود ، فاذا حدث خطأ معين ، فلن تعرف اين الخطأ وما هو الخطأ ، لذا يجب عليك اصطياد الخطأ ، ثم عمل كود لمراعاة هذا الخطأ فقط !! جعفر

وعليكم السلام 🙂 طريقتي: الدالة: Public Function getMSG(ID As Integer, ind As Integer) As String ' Dim A As String ' Dim x() As String ' ' A = DLookup("[txtMessageTitle] & '|' & [txtMessageText]", "[tblMessages]", "[txtAutoIntMessageID] =" & ID) ' x = Split(A, "|") ' getMSG = x(ind) ' 'OR combine in one line getMSG = Split(DLookup("[txtMessageTitle] & '|' & [txtMessageText]", "[tblMessages]", "[txtAutoIntMessageID] =" & ID), "|")(ind) End Function . الاستعلام . والنتيجة: . جعفر 1392.Split.mdb.zip

السلام عليكم 🙂 حل رسالة الخطأ : جعفر

أخي حسين 🙂 لك مجموعة من المواضيع تتكلم فيها عن الحجم الكبير لقاعدة البيانات ، أما آن الاوان ان تحل المشكلة من اصلها !! اخونا @Shivan Rekany عنده موضوع لهذا: جعفر

وعليكم السلام 🙂 تم مناقشة هذا الموضوع هنا : طلب- برنامج لإصلاح ملفات الاكسيس accdb , mdb - قسم الأكسيس Access - أوفيسنا (officena.net) و سؤال عن مشكلة Error 3343: Unrecognized Database Format - قسم الأكسيس Access - أوفيسنا (officena.net)

وعليكم السلام 🙂 هذه المعلومة غير دقيقة!! 1. الاكسس لا يُنشأ جداول مؤقته عند استخدام الاستعلام ، 2. نعم ممكن تنشأ جدول من استعلام ، ولكنه مجرد جدول يعتمد كيف تريد تتعامل معاه ، 3. هناك شيء آخر اسمه جداول مؤقته ، والتي تعبئها ببيانات معينة ، سواء عن طريق استعلام او غيره ، وهذه الجداول إما تكون في البرنامج ، او خارجه ، وعملها هو حذف بياناته ثم ادخال بيانات جديده: أ. فإذا كانت داخل برنامجك ، فيجب عليك استعمال الضغط والاصلاح ، لأن الاكسس لما يحذف بيانات جدول ، فهو واقعا لا يحذفها من البرنامج إلا لما تعمل ضغط واصلاح ، ب. واذا كانت خارج برنامجك ، فبكل بساطة تحذف البرنامج الخارجي وينتهي الامر ، وبدون الحاجة الى ضغط واصلاح لبرنامجك 🙂 جعفر

او 'Dim Foldername As String 'Foldername = "\\server\Instructions\" 'Shell "C:\WINDOWS\explorer.exe """ & Foldername & "", vbNormalFocus 'or Shell "C:\WINDOWS\explorer.exe c:\", vbNormalFocus 'Open Windows Explorer, C partition جعفر

بسم الله عليك اخوي حسين 🙂 في الواقع هذا افضل حل 🙂 اعمل حقل آخر ، غير حقل عرض العمود ، اسمه اسماء الاعمدة مثلا ، واكتب اسماء الاعمدة لكل جدول ( في البداية يكون الحل برمجي بعمل فاصلة بين الاعمدة ، بنفس طريقة عرض الاعمدة) ، وتنفيذها في النموذج يكون بنفس الطريقة كذلك 🙂 إعطاء المستخدم هذه الصلاحية ، تسهل عمل المبرمج ، فيكون على كيفه يرتب الاعمدة ، وبالعرض الذي يريد 🙂 جعفر

اذا تحب ترفق لنا برنامجك ، ممكن احنا نشوفه 🙂 جعفر

وعليكم السلام 🙂 اخي الفاضل Minaemil ، للاستفادة القصوى من المنتدى ، رجاء مراجعة قوانين المنتدى : اضغط هنـــــــــامن فضلك لقراءة القواعد كاملة قواعد المشاركة فى الموقع 3-ضرورة كتابة عنوان واضح للموضوع يدل على محتواه ويعطي وصفاً مختصرا للسؤال. عنوان المشاركة 4. يجب أن يكون عنوان المشاركة يدل على محتواها 5. أن لا يحتوي على عبارات مثيرة مثل " النجدة "، "الحقونا محتوى المشاركة 8. يجب ذكر كافة المعلومات التي من الممكن أن تُسأل عنها، مع الشرح الوافي للمشكلة لأن الشخص الذي تكتب له ليس ملما بالمشكلة مثلك. ويحبذ وضع مثال للنتيجة التي تريدها (سواء كملف مرفق باستخدام البرنامج المطلوب كالاكسيل او الأكسيس مثلا، او صورة توضيحية، أو تفصيل المطلوب بشرح وافي)، ويجب ان تكون بيانات المثال نابعة من نفس بيانات المرفق كي بمكن الربط و الفهم بسهولة. 9. .12. . 13. - يمنع وضع السؤال داخل المرفق، يجب شرح السؤال بالتفصيل لتعم الفائدة، ولا مانع من اضافة صورة توضيحية ------------------------------------------- رجاء اخبرني عن اسم مشاركة مناسب ، حتى اقوم بتغيير الاسم الحالي 🙂 جعفر

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

رجاء تتبع تعليماتي في مشاركتي السابقة ، وستحصل على نفس النتيجة مثل اللي في المرفق هذا🙂 ww.pdf

تفضل التقرير ، وبع التقرير ww فقط🙂 احذف التقرير ww الذي في برنامجك ، ثم استورد الموجود في المرفق. سترى ان الصور الخلفية هي التي جعلت المرفق حوالي 7 ميجا ، لذا اتبع النصيحة التي اخبرتك عنها في مشاركاتي اعلاه 🙂 جعفر 1391_G568.mdb.zip

همممم طيب ، على حاسبتك ، افتح النموذج record_program_vacances ثم افتح النموذج الذي به المشكلة ، هل ستحصل على المشكلة ؟ يا ريت اذا ممكن ترفق لنا هذه الجزئية من برنامجك ، لأني لم اصادف او اقرأ بها مثل حالتك 🙂 جعفر

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

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

انت تستعمل كم كبير من المكتبات ، فهل انت بالفعل محتاج لها جميعا ؟ في جهازي ، ظهر لي 20 خطأ ، اي ان هنا 20 مكتبة غير موجودة على جهازي : . يعني هذا البرنامج لن يعمل على جهازي ، فإذا كنت انا زبون ، فتصور حالتي !! وحتى اذا قلت ان البرنامج سيعمل على جهازك فقط ، ففكر ماذا سيحصل لك لما تعمل فورمات لجهازك ، وتنحذف منك هذه المكتبات ، ولن يعمل البرنامج بعد الفورمات مباشرة !! فيجب عليك حذف المكتبات التي لا يحتاجها البرنامج 🙂 جعفر

1. الصور المضمنة في البرنامج هي التي تزيد من حجم البرنامج ، والحمدلله لم ارى اي منها في جداولك ، ولكن التقرير ww يحتوي على مجموعة صور مضمنة ، فيجب عليك ان تضع الصور في مجلد خارج البرنامج ، ثم تربطه اثناء عمل التقرير ، هكذا (لاحظ ان الصور في الكود هي لقسم التفصيل Detail ، فيجب عليك استعمال القسم الصحيح من التقرير لوضع حدث الكود فيه) : Private Sub Detail_Format(Cancel As Integer, FormatCount As Integer) On Error GoTo err_Detail_Format Dim BE_or_FE As String 'BE_or_FE = Application.CurrentProject.Path BE_or_FE = "D:\Project123\images" Me.Pic_BismAllah.Picture = BE_Path & "\" & "Images\BismAllah.jpg" Me.Pic_Section.Picture = BE_Path & "\" & "Images\Admin_Section.jpg" Exit_Detail_Format: Exit Sub err_Detail_Format: If Err.Number = 2220 Then 'ignor, picture not found Me.Pic_BismAllah.Visible = False Me.Pic_Section.Visible = False Resume Next Else MsgBox Err.Number & vbCrLf & Err.Description End If Resume Exit_Detail_Format End Sub . 2. كما يمكنك عمل ضغط واصلاح ، حيث ان الاكسس يحتفظ بجميع البيانات التي حذفتها في البرنامج ، ولا يتخلص منها إلا بعمل "ضغط واصلاح" ، 3. يمكنك استعمال البرنامج المرفق في الرابط التالي ، فبالاضافة الى الرقم 2 اعلاه ، فهو يقوم بحذف بقايا الكود التي حذفتها والتي لا تزال في الاكسس : . 4. بعد عمل النقاط اعلاه ، فتح برنامج اكسس جديد ، ثم استيراد كائنات البرنامج السابق اليه 🙂 جعفر

سيدي الفاضل 🙂 هذا هو التقرير ww في وضع التصميم: 1. المثلث الاخضر ظاهر ، 2. انت مختار التقرير يطبع على ورقة A4 ، وعرض الورقة 11.69 بوصة (سيكون الرقم مختلف اذا كنت تستعمل السنتيمتر) ، . هامش الطابعة للجانبين (وهو المقدار الذي تحتاجها بكرات الطابعة لسحب الورقة) هو: 0.166 + 0.168 = 0.334 لمعرفة اقل هامش تحتاجة طابعتك ، يمكنك ان تضع اصفار في هذه الخانات ، ثم تنقر ok ، ثم تفتح النافذة مرة اخرى فترى الارقام ، ويُنصح ان تترك الهوامش على اكبر هامش وهو 0.250 ، وذلك حتى يتناسب مع طابعات الزبائن/المستخدمين بأشكالها ، الطابعات الافتراضية ، سواء لطباعة/تصدير pdf او صورة ، فيمكنك ان تضع اصفار في هذه الخانات ، . عرض التقرير هو: 11.6146 بوصة ، اذن عرض التقرير : 11.6146 + هوامش الطابعة 0.334 = 11.9486 عليه ، فإن عرض صفحة التقرير 11.9486 اكبر/اعرض من ورقة الطباعة 11.69 ، لذلك تحصل على صفحة بيضاء فارغة : . فالحل: . ولما ننظر للتقرير بوضع التخطيط ، نرى انه خارج حدود الاطار: . وهذا ما اخبرنا اخي الاستاذ خالد: . جعفر

وعليكم السلام 🙂 النموذج لما يتم فتحه ، تكون السجلات نظيفة me.Dirty=false ، ولما يتم التعديل على اي منها ، فيكون السجل me.Dirty=true ، فإذا اردت ان تطبع التقرير مثلا ، ولكن تريد إظهار بيانات السجل الذي انت عليه ، وقد تكون فد عملت تعديلات على السجل ، لذا فانت تريد التأكد من حفظ السجل قبل الطباعة ، فيمكنك عمل التالي قبل سطر طباعة التقرير: 1. docmd.runcommand accmdsaverecord يحفظ السجل بغض النظر ان السجل نظيف او لا 2. me.refresh يعمل انتعاش للنموذج ، والذي بدوره يجعل مؤشر البيانات ينتقل الى اول سجل وبما ان السجل يفقد التركيز ، فيتم حفظه تلقائيا ويعيد طلب البيانات من الجداول ، بغض النظر ان السجل نظيف او لا 3. me.requery تقريبا نفس طريقة عمل #2 اعلاه 4. if me.Dirty then me.Dirty=false اذا كان السجل غير نظيف ، فيقوم بحفظ السجل . رجاء تخيل ان قاعدة البيانات الخلفية موجودة على سيرفر ، لذلك يُوجب عدم مزاحمة السيرقر إلا في اضيق الحالات ، الطريقة: 1. تحفظ البيانات ، بغض النظر اذا كان الوضع يتطلب ذلك او لا ، ففيه عمل اضافي ، 2 و 3. تحفظ البيانات ، بغض النظر اذا كان الوضع يتطلب ذلك او لا ، ويطلب البيانات مرة اخرى من الجداول ، ففيه عمل اضافي بزيادة ، 4. تحفظ البيانات وقت الحاجة فقط ، فتكون هذه الطريقة هي الامثل 🙂 جعفر