jjafferr

نعم ، ولكن اذا كان برنامجك كبير ، واثناء العمل ، انقطعت الكهرباء او اخترب الهارددسك او شيء من هذا القبيل !! جعفر

رحم الله والديك اخوي ابوخليل 🙂 جعفر

حتى يتم تطبيق كود الاحداث الكود ينادي الدالة MovCenter ويرسل لها معلومتين لهما علاقة بإرتفاع النافذة وعرضها لا ادري ، لم اتطلع على الكود ، وحتى لو اتطلعت عليها ، فقد تكون الدالة تنادي دالة ثانية ، وهكذا 🙂

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

وعليكم السلام 🙂 افهم من كلامك ، انه عندك فيديو فيه حركه معينه ، وتسأل اذا الاكسس يمكنه متابعة هذه الحركة وحفظ معلوماتها (محور السين ومحور الصاد) ، وعليه يعمل رسم بياني من هذه البيانات !! يعني يعمل motion tracking لأجزاء معينه من الفيديو ، ويحولها الى motion file !! حسب علمي انه لا يمكن عمل هذا في الاكسس (او اي برنامج أخر غير متخصص في الفيديو) !! وببحث سريع ، حصلت لك على هذا الرابط : GitHub - HW140701/VideoTo3dPoseAndBvh: Convert video to the bvh motion file جعفر

اخوي ابوخليل ، ظاهرا انك ما لاحظت وجود هذا الحقل المخفي ، واللي يأخذ قيم مربعات سرد "نوع العدد" ، سواء اللي فوق او اللي تحت : . . واستعلامات البرنامج تأخذ قيمها من حقول هذا النموذج ، فمجرد عمل نموذج واجهة آخر لن يجعل البرنامج يعمل ، واذا اردناه ان يعمل ، فيجب عند اختيار اي من الحقول في النموذج الجديد ، ان نرسل القيمة الى الحقل في النموذج القديم (اجعله مفتوح ومخفي) ، ومن ثم نشغل النماذج او التقارير 🙂 لماذا اجعل برامجي تعمل هكذا ؟ حتى لا اعمل عشرات الاستعلامات ، وكل استعلام يعمل لنموذج معين فقط ، بينما بالطريقة هذه ، فمهما عملت من نماذج ، ارسل قيمها لنموذج الواجهة ، ونفس الاستعلام يعمل لجميع النماذج/التقارير ، لأن معيارها هو نموذج الواجهة المفتوح دائما 🙂 جعفر

معلش بشمهندس ، خلينا نرجع لهذه النقطة ، فجميع من عمل عليها ، تم حل مشكلته ، فرجاء التأكد من عملها بطريقة صحيحة (او اعملها مرة ثانية ، ولا تنسى ان تفتح CMD بصلاحية المسؤول) ، ثم اعد تشغيل الكمبيوتر/السيرفر 🙂 الظاهر لا ، فالتحديث يشمل جميع اصدارات الويندوز !! جعفر

ظهرت هذه المشكلة مع تحديث الوندوز 10 رقم 1803 ، بينما تحديث الوندوز 10 الى التحديث 1709 لم يكن به مشكلة ، فحاول: - إما ارجاع الكمبيوتر الى الوراء بحذف التحديث الى ان تصل الى 1709 وتتوقف ، او - تعمل فورمات للكمبيوتر (او تجربه على كمبيوتر آخر فاضي) وتنصب عليه الوندوز 10 الى التحديث 1709 (لا تنسى ، بوجه عام ، انت بحاجة الى عمل هذا للكمبيوتر/السيرفر الذي عليه برنامج الجداول). - واوقف تحديثات الوندوز. وقبل ان تقوم بهذا العمل ، خلينا مع فكرة اخوي ابوخليل البسيطة ، وقم بعمل مجلد جديد في السيرفر ، وضع البرنامج هناك ، فهناك من يقول بأنه بهذه التجربة تخلص من المشكلة 🙂 جعفر

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

ولا توجد كلمات عربيه في الكود هنا كذلك 🙂 النموذج: . والنتيجة: . جعفر 1337.Arabic تفقيط.mdb.zip

طبعا ، فلا يمكنك ان تحصل على نتيجة لـ (غ)val ، ومن هنا كنت تحصل على الخطأ ، لذا يجب تصيد هذه الحروف قبل الوصول للامر val 🙂 جعفر

بسبب . يجب ان يكون الكود يراعيها ، هكذا : If IsNumeric(a) = False Then m_ar = a ElseIf Val(a) < 20 And IsNumeric(a) Then m_ar = "عربي" Else m_ar = "" End If جعفر

وعليكم السلام 🙂 ولو اننا بحاجة الى معرفة طريقة ارسال البيانات الى هذه الدالة ، ولكن جرب : Function m_ar(a As integer) As String If a < 20 Then m_ar = "عربي" Else m_ar = "" End If End Function جعفر

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

جربه في الاستعلام مصدر بيانات النموذج 🙂 جعفر

لم ارد عليك ، لأني بدأت أقرأ زيادة من ذلك لوقت (وطلعت من البيت حبتين ، وتغديث ، واخذت غفوة ، وواصلت القراءة 🙂 ) ، اعطيك رابطين من المواقع الاجنبية: الاول مجمع جميع الاقتراحات : Access - Bug - Database is in an Unrecognized Format | DEVelopers HUT (devhut.net) والثاني الاخذ والعطاء فيه لايزال مستمر من حوالي سنتين حول هذه النقطة وما حولها : Access Database is getting corrupt again and again - Microsoft Community الله يعينك ، ورجاء تخبرنا وين توصل 🙂 جعفر

اما الكود فيمكنك اختصاره كالتالي: If DCount("*", "qry_tbl2", "HNO =" & Me.tn) = 0 Then MsgBox "الرقم غير موجود" Else Me.Recordset.FindFirst "hno=" & Me.tn End If Me.tn.SetFocus Me.tn = "" ومع اني لا اعرف كيف وصل المؤشر هناك ، ولكن ، بما ان في هذا النموذج هو للبحث فقط ، فيمكن قفل هذا الحقل من التعديل ، هكذا : . جعفر

على حدث عند "النقر" للزر ، تستطيع منادادة الكود السابق : call tn_AfterUpdate بعد ان تكتب ما تشاء في مربع النص ، وبعد تحديث بياناته بالخروج منه ، سواء عن طريق الزر Enter او Tab ، وللعلم ، فالطريقة الصحيحة للانتقال بين كائنات النموذج هي عن طريق زر Tab ، وتستطيع عمل تسلسل الانتقال من كائن الى اخر من اعدادات الكائن ، علما بأن اول رقم هو صفر : . ما اعرف شو قصدك في هاي النقطة ، فنحن لا من قريب ولا بعيد جئنا بقرب مربع نص الكتابة 😁 لما نجرب العمل ، فلا نتعامل مع كائنات اخرى ، إلا في حال يتطلب منا هذا الامر ، لذا لم اتطرأ له اصلا !! ولكن وبما انك تعرف اكثر عن برنامجك ، فياريت تخبرنا ما تعمله بالخطوات ، او بالصور ، لنحصل على ما حصلت عليه من نتيجة 🙂 جعفر

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

السلام عليكم 🙂 الافضل ان يكون الاستعلام مصدر بيانات النماذج والتقارير ، ولا تأخذ الجداول كمصدر بيانات مباشر ، فهذا اللي عملته هنا : . ولا تعمل الكود على حدث "الخروج" من الحقل ، بينما الطريقة الصحيحة ان تضع الكود على حدث "بعد التحديث" : Private Sub tn_AfterUpdate() If DCount("*", "qry_tbl2", "HNO =" & Me.tn) = 0 Then MsgBox "الرقم غير موجود" Me.tn = "" Else Me.Recordset.FindFirst "hno=" & Me.tn End If End Sub . وجربت الكود الآخر ، فكان أبطأ من الذي ارفقته لك 🙂 جعفر 1335.انتقال.accdb.zip

وعليكم السلام 🙂 حتى لا يحدث لك هذا مرة ثانية: 1. تأكد بأن برنامج الاكسس فيه آخر التحديثات ، 2. هذا قد يكون بسبب بعض تحديثات مايكروسوفت للوندوز ، من موقع مايكروسوفت: Access reports that databases are in an 'inconsistent state' - Access (microsoft.com) - يكفي عمل هذا العمل على السيرفر (او الكمبيوتر الذي عليه نسخة الجداول) ، ولا يضر ان تعمله على كمبيوتر الواجهة وكمبيوتر الجداول : - افتح برنامج CMD كمسؤول ، Windows Start and then type Command. Right-click on Command Prompt and choose Run as administrator - ثم اكتب هذه الاسطر الثلاث (انسخ اول سطر من هنا ، والصقه هناك ، واضغط على زر Enter لتنفيذ الامر ، ثم الصق الثاني ونفذ الامر ، ثم الثالث ونفذ الامر) : REG ADD HKEY_LOCAL_MACHINE\SYSTEM\CurrentControlSet\Services\lanmanserver\parameters /v DisableLeasing /t REG_DWORD /d 1 /f NET STOP SERVER NET START SERVER . والآن ، اعمل ضغط واصلاح لقاعدة البيانات ، وجربها في المحيط الجديد 🙂 جعفر

انا قلت لا تكتب غير الانجليزية في الكود ، ويمكنك ، ان تستعمل جميع اللغات في البرنامج ، كما في المثال في الرابط الذي ارفقته لك في مشاركتي السابقة 🙂 جعفر

هممم يحتاج لها وقفة تأمل ، ولكن لما اخلص اللي في يدي ، واللي في يدي كثير 😁 شكرا على إثارة وإثراء الموضوع 🙂 جعفر

لا يُنصح بالكتابة في الكود VBE إلا باللغة الانجليزية ، وخصوصا وبرنامجك ظاهرا عليه انه متعدد اللغات ، وهذا الرابط سيفيدك : اعمل برنامجك بعدة لغات وببساطة - قسم الأكسيس Access - أوفيسنا (officena.net) جعفر

السلام عليكم 🙂 اخوي صالح ، معلومة تهمنا في الاكسس ، من هنا : Microsoft 365 Roadmap | Microsoft 365 . جعفر