حسين العربى

السلام عليكم ورحمة الله وبركاته اخواني اعضاء ومشرفي المنتدي الكرام اريد التعديل علي هذا الكود لكي يستعرض لي كل الملفات وليس المجلدات فقط يوجد مرفق للتوضيح 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

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

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

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

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

السلام عليكم ورحمة الله وبركاته اخواني اعضاء ومشرفي المنتدي الكرام عندي سؤال ان شاء الله يكون بسيط سؤالي هو / اريد كود خلف زر امر لفتح تقرير اذا تحقق الشرط الشرط هو عندي مربع نص نوع البيانات (نعم / لا ) اسم مربع النص CK_1 في نموذج فرعي اريد اذا كان مربع النص القيمه فيه (نعم) يفتح لي التقرير (REBORT_101) واذا كانت القيمه فيه ( لا ) يفتح لي تقرير ( REBORT_102 ) مرفق مثال للتطبيق عليه ولكم الف شكر 333.rar

ممكن ترفع البرنامج بصيغة 2007 او 2003

بفضل الله توصلت الي الحل ولكي تعم الفائده المشكله ليست في الاكسس انما المشكله سببها اني لما ببصمم التقرير علي جهازر انا بستعمل Microsoft Print to PDF هي اداه بتضاف الي الاوفيس لتصدير التقرير الي PDF بتعطيني طابعه افتراضية فطبعا بتكون اعداتها غير اعدادات اي طابعة فهي كانت السبب في ذالك والحمد الله تم حل المشكله واشكر استاذي ومعلمي الفاضل ابو خيل لانو تبهني لنقطه وصلتني الي الحل

استاذي الفاضل ابو خليل انا حددة من اعدادت الطابعة درج 1 ولاكن لم تظبط بتروح علي درج 2 وللعلم هذا لايحدث غير في الطباعة من تقرير اكسس لاكن لو طبعة تست تيجي عادي عل درج 1 ولو طبعت من pdf تيجي عادي درج 1 اما تقرير اكسس الامر بيروح علي درج 2 مع العلم اني محدد درج 1 وغالق درج 2 انا عندي طابعة حديثه ما فيهاش المشكله دي رغم اني فيها درجين بطبع عليها عادي من اكسس وبتطبع علي درج 1 ولاكن الطابعات الاخر تواجهني المشكله هذه نوع الطابعه hp laser jet n2035

الف شكر استاذي الفاضل

up

بعد اذن استاذي الفاضل محمدنجار اليك هذا المرفق وجدته في المنتدي test.rar

up

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

اخي الفاضل الملف ليس معطوب حدث الونرار عند هيفتح معاك وهذه نسخة حديثه من الونرار wrar501.rar

بعد اذن اساتذتي الافاضل اسم في قائمة.rar

بعد اذن اخي الفاضل kaser906 تفضل المرفق به المطلوب test_101.rar

بعد اذن اساتذتي شوف المرفق ده فيه طريقه مبسطه جدا طبعا ساعدني فيها استاذي الفاضل ابو خليل انشاء الله تظبط معك test1.rar

مشاء الله عليك استاذي الفاضل ربنا يحفظك كده تمام ظبطت

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