حسين العربى

up اخواني الموضوع ده شاغلني جدا هل من حل لهذه المشكلة والله خلاني هجنن لدرجة اني فرمت الجهاز وثاني يوم رجعت المشكلة مع العلم اني مش محوله الي صيغة (.accde) بس في الاول كنت محوله لهذه الصيغة ونفس المشكلة

استاذي الفاضل الف شكر علي اهتمامك ولكن انا عامل باسورد علي الاكواد في vba

up

up

السلام عليكم ورحمة الله وبركانه اخواني اعضاء ومشرفي المنتدي الكرام يوجد شئ غريب لما اجد له اي حل او اي تفسير في برنامج لدي وهذه المشكلة حصلت معي منذ شهرين عند احد العملاء ولم تحدث من مره اخر ولاكن منذ يومين حدثة مع نفس العميل ووضعت له نسخة اخر وبعد يومين حدثة مره اخري ولم اجد لها اي تفسير فقلت اشاركم فيها لكي نجد حل لهذه المشكلة البرنامج انا محوله الي صيغة accde ووضعة كود في النموذج الرئيسي لاخفاء واجهة اكسس وعندما رايت البرنامج وجدته مفتوح ولا يوجد به اي كود فاعطية له نسخة اخر محوله الي accde وبعد يومين نفس القصه وتكرر هذ الموضوع عدة مرات طبعا انا قلت يمكن المشكلة في التحويل وطبعا ده مش منطقي فقلت اجرب اديل نسخة عاديه بس الغي الشفت واخفي واجهة اكسس فحصلت نفس المشكلة بس الاكود موجوده ولاكن عرض النموذج في الاعدات خالي وخانات الغاء الشفت مفعلة كما في الصورة مع العلم انا البرنامج يعمل عند 15 عميل بدوون اي مشكلة فهل يوجد حل لتفادي هذه المشكلة وما سبب هذه المشكلة وشكرا

اخي الفاضل ( السلام عليكم ورحمة الله وبركاته ) ممكن ارفاق نسخة من البرنامج للجزء الذي فيه الخطأ

الف الف شكر استاذي الفاضل جعفر هذا هو المطلوب والشكر طبعا لاستاذي الفاضل alaa aboul-ela الف الف شكر استاذي الفاضل علاء ولك مني جزيل الشكر علي زوقك وسعة صدرك وجزاك الله خيرا

استاذي الفاضل alaa aboul-ela الف شكر علي اهتمامك طبعا هذا هذا هو المطلوب بس لو تكرمت لا اريد حسابات داخل الجدول لاني استخدم اوفيس 2007 وحقل محسوب لايوجد داخل 2007 ان امكن ولك مني جزيل الشكر

استاذي الفاضل جعفر اولا الف شكر علي مرورك الطيب واهتمامك اريد ان اضع رقم الفاتورة في مربع النص رقم الفاتورة يعطيني اجمالي الفاتورة في مربع اجمالي الفاتورة اليك هذ المرفق به الجدو ول وبه ارقام الفواتير 922.PROGRMS_STORY.rar

السلام عليكم ورحمة الله وبركانه اخواني اعضاء ومشرفي المنتدي الكرام كل عام وانتم بخير ( وتقبل الله طاعتكم ) اريد البحث برقم الفاتورة يعطني اجمال الفاتورة في مربع نص اجمالي الفاتورة عن طريق دالة DLookup المرفق يوضح المطلوب PROGRMS_STORY.rar

اخي الفاضل انظر الصوره

الف الف شكر استاذي الفاضل kanory هذا هو المطلوب

السلام عليكم ورحمة الله وبركاته اخواني اعضاء ومشرفي المنتدي الكرام اريد كود اذا كان البرنامج مفتوح لايفتح مره اخري عند فتح المستخدم له يعطي له رساله ان البرنامج مفتوح بالفعل 1

وعليكم السلام اخي الفاضل سؤالك غير واضح ممكن التوضيح اكتر او ارفاق نسخة من البرنامج للتعديل عليه اومثال

السلام عليكم ورحمة الله وبركاته اخي الفاضل اليك هذا الموضع انشاء الله تلاقي طلبك فيه

الف الف شكر استاذي الفاضل عبدالله كاظم بالفعل هذا هو المطلوب جزاك الله خيرا وزادك الله من علمه

السلام عليكم ورحمة الله وبركاته اخواني اعضاء ومشرفي المنتدي الكرام اريد التعديل علي هذا الكود لكي يستعرض لي كل الملفات وليس المجلدات فقط يوجد مرفق للتوضيح With Application.FileDialog(4) .AllowMultiSelect = False .Title = "Dialogue Caption/Title" If .Show = -1 Then Me.name_folder = .SelectedItems.Item(1) Dim sFilePath$ sFilePath = Me.name_folder Me.pate = Split(sFilePath, "\")(UBound(Split(sFilePath, "\"))) End If End With doctor_101.rar

هو تقريبا موضوع حد تاني😄

الف شكر استاذي الفاضل AlwaZeeR كلامك صحيح الظهار اني وضعت اسم الجدول بالخطأ ولم انتبه اليه واختلط علي الامر سبب اختلاط الامر علي انه بيشغل علي ويندوز 7 اما ويندوز 10 لايعمل علي العموم الف شكر لك استاذي الفاضل وجزاك الله خير والشكر ايضا لاستاذي الفاضل ابا جودي علي المشاركه وجزاكم الله خيرا

اسف اخي الفاضل جرب هذه النسخة واترك الاولي لاني به خطأ test3.rar

الف شكر علي مرورك الطيب ابا جودي وهذه نسخة من البرنامج test2.rar

السلام عليكم ورحمة الله وبركاته اخواني اعضاء ومشرفي المنتدي الكرام عندي برنامج صممته علي ويندوز 7 وعند تشغيله علي ويندوز 10 ظهر لي خطأ في شاشة استعلام فواتير وعند الضغط علي زر بحث متقدم في شاشة استعلام فواتير / تفح لي شاشة استعلام فاتورة وعند الضغط علي رقم الفاتورة نستدعي البيانات الي شاشة استعلام فواتير يظهر لي رقم الفاتوره في مربع نص بحث بهذا الشكل كما هو في الصورة مع العلم انا ابرنامج يعمل جيدا علي ويندوز 7 ولا توجد به هذه المشكلة مع العلم اني استخدم هذا الكود في استدعاء رقم الفاتورة الي شاشة استعلام فواتير ارجو ان يكون سؤالي واضح ولكم جزيل الشكر Forms!forms_serh_fatora2!SERH = DLookup("[fator_no]", "TABOL_COSTMOR", "[fator_no]=" & Me.fator_no) DoCmd.Close acForm, "forms_serh_fatora1", acSaveNo DoCmd.Requery

استاذي الفاضل الف شكر لك هذا هو المطلوب

الف شكر استاذي الفاضل انا جربت الكود ولاكن لايعمل يعطيني خطأ استاذي الفاضل انا ريد كود حذف الجدل فقط