jjafferr

أخي كريمو اذا صار عندنا 65 يوم ، فما الحل؟ جعفر

السلام عليكم بالاضافة الى فيديو الاخ سعيد ، انا كنت عامل مثال في هذا الرابط: http://www.officena.net/ib/topic/65726-هدية-المدة-بين-تاريخين-،-و-اضافةخصم-سنوات-واشهر-وايام/ جعفر

اذا كنت في شبكة ، احسن لك ان تستخدم زر البحث جعفر

وعليكم السلام اختي اشتغل على مشاركة الآن ، وبعدها وبعد الغداء ان شاء الله اشوف موضوعك جعفر

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

السلام عليكم أخوي بسام اول مرة اعمل طريقة البحث هذه كان في 26 / 10 / 2004 فالملاحظة اللي تركتها في نهاية الموضوع وباللون الاحمر ليست ارتجالية ، وإنما عن خبرة جعفر

هذا هو الحل الاسهل ، واخونا عبدالله استعمله ، ولكن لأنه وضعه في اعدادات مصدر الحقل بعلامة = ، فقفل الادخال ، واخونا سعيد تفادى هذا الخطأ بوضع التنسيق في الكود انا كنت اعمل على نفس الفكرة ، ولكن بتفكيك مكونات الحقل a11 (طبعا الادخال سيكون كما هو ، وبعد الخروج من الحقل ، وفي نفس مكان سطر اخي سعيد ، كنت سأنادي وحدة نمطيه تقوم بتفكيك بيانات الخانه ، ثم إعادة تركيبها بالطريقة المطلوبه) جعفر هكذا: Private Sub a11_AfterUpdate() On Error Resume Next Dim sc As Integer Dim d As Date Dim S As String sc = Calendar Calendar = 0 d = CDate(a11.Text) Calendar = 1 S = CStr(d) a11hijri = Format(S, "YYYY/MM/DD") Calendar = sc Call Reverse_Date_Format End Sub Function Reverse_Date_Format() Dim x() As String If InStr(Me.a11, "-") > 0 Then a = "-" ElseIf InStr(Me.a11, "/") > 0 Then a = "/" End If x = Split(Me.a11, a) a0 = x(0) a1 = x(1) a2 = x(2) If Len(a0) > Len(a2) Then Me.a11 = a0 & a & a1 & a & a2 Else Me.a11 = a2 & a & a1 & a & a0 End If End Function جعفر

السلام عليكم أخي عبدالله هذا الخطأ عادة يكون بسبب اختلافات إعدادات الوندوز بين جهاز المبرمج وجهاز المستخدم ، هذا الرابط سيفيدك ان شاء الله: http://www.officena.net/ib/topic/64955-مشكلة-عند-فتح-البرنامج-على-ويندوز-8 جعفر

السلام عليكم طبعا بالاضافة الى طرق الشباب ، اليكم طريقة الكسالى 1. غيّر القناع: بدل 0000-00-00;0;_ اجعله 00-00-0000;0;_ 2. قم بإدخال التاريخ بالعكس ، يعني السنة - الشهر - اليوم جعفر

أخي غسان الرابط الذي وضعته انت لتغيير حجم الشاشة ، فيه وحدات نمطية تنادي دوال Api الوندوز والمستخدمة في الاكسس الـ 32بت ، ولأن الاكسس الذي تستعمله هو 64بت ، فيجب عليك احتواء/تعديل هذه الدوال حتى حتى تعمل على الاكسس 64بت ، وفي الرابط الذي اعطيتك ، كتبت فيه: فالرجاء قراءة الرابط ، والروابط التي فيه ، حتى تستطيع حل مشكلتك!! انا لا املك اكسس 64بت ، فللأسف لا استطيع تجربة الكود جعفر

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

ارفقي البرنامج الان لوسمحتي ، وبكرة انظر فيه ان شاء الله جعفر

يا اختي لا تختارين اي حقل ، ولا حتى مربع سرد المحطة

لا تعملي العلاقة

حياك الله بس العلاقة بين جدولين معناه انك تربطين حقل من هذا الجدول ، وحقل من ذاك ، والصورة باين فيها حقل واحد فقط ، فكيف تتم العلاقة!! وللعلم ، بعض الاحيان مافي داعي انه يكون هناك علاقة بين الجداول ، وانا لما اعمل برنامج ، اقوم بالبرمجة وضبط كل شئ ، وبعدين اذا احتاج العمل ، اعمل علاقة بين الجداول ، وفي كثير من الاحيان ما اعمل اي علاقة جعفر

السلام عليكم أختي الفاضلة 1. انتي لم تذكري اي نموذج يجب الدخول فيه وتصليح المطلوب ، ولما انا فتحت البرنامج ورأيت ان النموذج DMovesT مظلل ، فبدأت اشتغل عليه وخصوصا انه كان به الحقول التي تكلمتي عنها!! ، وفي مشاركتك الاخيرة اتضح لي من الصورة ان النموذج DMovesT هو نموذج فرعي ، والنموذج الرئيسي للعمل عليه هو DMovesF لهذا السبب يا أختي نطلب من صاحب السؤال ان يعطينا معلومات كاملة عن برنامجه ، وماذا يريد منا ان نساعده فيه ، واين ، واكبر كمية ممكنه من التفاصيل 2. رسالة الخطأ التي اوضحتيها في مشاركتك الاخيرة: . هي لهذا الحقل: . والقيمة تُأخذ من هنا: . هذه المعادلة تعمل بشكل صحيح عند استعمالك للنموذج DMovesT مباشرة (اي لا يكون نموذج فرعي) ، ولكن وبسبب ان النموذج DMovesT هو نموذج فرعي ، والنموذج الرئيسي هو DMovesF ، فيجب علينا ان نُخبر البرنامج ان الحقل موجود في نموذج فرعي ، وهناك نموذج رئيسي ، هكذا: . ولكن وللأسف لم يعمل الاستعلام!! وهذا جعلني ارجع الى النموذج الفرعي لأرى الاسم الذي اعطيتيه انتي ، فاذا به: . فغيرت مسمى النموذج الفرعي من تابع24 الى DMovesT ، فعمل الاستعلام قبل ان اعطي جوابا لمشاركتك اعلاه ، عندي سؤال لوسمحتي: كيف ادخلتي البيانات في النموذج DMovesT اصلا؟؟ قصدي هل عملتي النموذج ثم ادخلتي البيانات؟؟ وسبب سؤالي هو اني اصلا لم اغير اي شئ في النموذج ، فلماذا لا تستطيعين ادخال البيانات الان!! 3. تتبعت الخطأ ، واتضح لي (رجاء النظر في الصورة اعلاه): الحقل FeederCode هو حقل في الجدول Feeders11kv ، فعليه فتحت الجدول بحثا عن نوع هذا الحقل: . فإذا به حقل ترقيم تلقائي (اي انه هو الذي يعطي ارقام متسلسله ، ولا يسمح لك بإضافة رقم فيه) ، وان فهرسته لا تقبل بوجود ارقام متكررة في هذا الحقل!! فإذا كان الامر كذلك ، فهذا معناه بعدم امكانية إختيار اي من حقول قائمة مربع السرد ، رجاء ملاحظة الصورة التالية ، والتي تظهر لمّا انتهي من اختيار رمز المحطة: . لاحظي السهم ، فالحقل FeederCode لأنه من نوع الترقيم التلقائي ، فإنه عمل لكي رقم تسلسلي جديد وهو 165 ، بينما الارقام في القائمة بعد تصفيتها عن طريق الحقل رمز المحطة غير هذا الرقم ، فالحقل لا يقبل اي رقم غير 165 ، وهذا سبب المشكلة الحل ، في انك تغيري في برنامجك وتجعلي هذا الحقل حقل رقم عادي ويقبل التكرار ، ولكن انتبهي للعلاقات بين الجداول ، فد تحتاجين تغييرها هناك لتتمكني تغيير هذا الحقل جعفر

شكرا جزيلا على هذا التوضيح الجميل ، رحم الله والديك جرب استخدام الحدثين التاليين بدل الحدثين اللي عندك مسبقا ، وشوف اذا يؤدي بالغرض: Private Sub StationCodeM_AfterUpdate() Me.StationName = Me.StationCodeM.Column(1) Me.FeederName = "" Me.FeederCodeM.Requery Me.FeederCodeM.SetFocus Me.FeederCodeM.Dropdown End Sub Private Sub FeederCodeM_BeforeUpdate(Cancel As Integer) Me.FeederName = Me.FeederCodeM.Column(1) Me.FaultCodeM = "" End Sub جعفر

المشكلة في كود الـ Api ، فهو يختلف من 32 بت عنه في 64بت ، ويجب عليك تضبيط الكود ليعمل على النوعين هذا الرابط يشرح لك المشكلة ، وطريقة الحل: http://www.officena.net/ib/topic/64325-مثال-يعمل-على-اكسس-32-بت-و-64-بت/ وفي الرابط الاعلى هناك رابطين خارجيين مهمين ، فيجب تتبعهم للحصول على الفائدة الكاملة جعفر

تفضل الطريقة والمقارنة مع zip: جعفر

وعليكم السلام هذه حاله غير طبيعية في الاكسس!! اذا كانت جميع برامج الاكسس عندك تُغلق عند الضغط على الزر ESC ، فأعتقد بأنه يجب عليك إعادة تنصيب أكسس ، واثناء التنصيب انتبه للزر التخصيص ، ومنه اختار تنصيب الاكسس كاملا ، وذلك عن طريق استعمال الزر الثاني في هذا الرابط: http://www.databasedev.co.uk/image/office2007_1.jpg ثم تختار Run all from my Computer ، وهو الاختيار الثاني المظلل في الصورة في الرابط التالي: http://blogs.technet.com/resized-image.ashx/__size/550x0/__key/CommunityServer-Blogs-Components-WeblogFiles/00-00-00-60-37/1373.AccessRunAllFromMyComputerOCT.jpg أما إقتراح أخي عبدالرحمن ، فهي طريقة لحل مشكلتك حاليا ولكن يجب ان تعرف اننا نستخدم زر ESC في الغاء إدخال السجل/تعديل البيانات في النموذج/الجدول (يعني اذا ادخلت معلومة في سجل جديد او عملت تعديل في معلومات سجل ، وقبل الانتقال الى سجل آخر ، واردت حذف الادخال/التعديل في هذا السجل ، فإضغط على الزر ESC ، فان اكسس سيلغيه ) ، فهذا الزر له اهمية في العمل جعفر

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

رجاء النظر في هذا الرابط: http://www.officena.net/ib/topic/64036-هل-استخدم-اوفيس-32-بت-او-64-بت/ جعفر

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

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

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