ابو البشر

تفضل .... استخلاص تاريخ الميلاد.rar

ارجو الا نكون قد خالفنا قوانين المنتدى ..... وذلك بطرح اكثر من موضوع ..... ؟؟؟ ماهو اسم النموذج الحالي ؟؟؟؟

ممكن مثال مصغر لما تريد فعله

استبدل الكود بهذا .... DoCmd.SetWarnings False DoCmd.RunSQL "INSERT INTO المبيعات ( [كود الصنف], [اسم الصنف], المورد, [سعر البيع], اللون, المقاس, التاريخ, [نظام الدفع] ) SELECT فرعى.[كود الصنف], فرعى.[اسم الصنف], فرعى.المورد, فرعى.[سعر البيع], فرعى.اللون, فرعى.المقاس, Date() AS D, ""نقدي"" AS s FROM فرعى;" DoCmd.RunSQL "DELETE فرعى.ID, فرعى.[كود الصنف], فرعى.[اسم الصنف], فرعى.المورد, فرعى.[سعر البيع], فرعى.اللون, فرعى.المقاس FROM فرعى;" DoCmd.SetWarnings True Me.Requery

تفضل .... المحل نسخة تجريبية.accdb

اخي الكريم ضع المثال الذي عدلته حتى نعرف تحديدا ماذا تريد .. بارك الله فيك

ضع هذا الكود تحت الزر ..... Me.ID.SetFocus DoCmd.SetWarnings False DoCmd.RunSQL "INSERT INTO فرعى ( ID, [كود الصنف], [اسم الصنف], المورد, [سعر البيع], اللون, المقاس ) SELECT الأصناف.ID, الأصناف.[كود الصنف], الأصناف.[اسم الصنف], الأصناف.المورد, الأصناف.[سعر البيع], الأصناف.اللون, الأصناف.المقاس FROM الأصناف WHERE (((الأصناف.ID)=[forms]![frmsrch]![ID]));" DoCmd.RunSQL "DELETE الأصناف.ID, الأصناف.[كود الصنف], الأصناف.[اسم الصنف], الأصناف.المورد, الأصناف.[سعر البيع], الأصناف.اللون, الأصناف.المقاس FROM الأصناف WHERE (((الأصناف.ID)=[forms]![frmsrch]![ID]));" DoCmd.SetWarnings True Me.Requery

استخدم الحماية ... بحيث لا يعمل البرنامج سوى الاجهزة التى تريدها فقط

غير اعدادات اللغة في ويندوز وجرب ....

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

جربت هذا البرنامج

استخدم استعلام الحاق

شكرا لك اخي @kanory

غير من اعدادات الويندوز التاريخ والوقت ... بحيث يكون بداية الاسبوع من الاحد وليس السبت

استعمل برامج الضغط مثل وين رار

مبارك اخي خلف ......... اعانك الله

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

اخي فايز هل جربت هذا المرفق

ممكن مثال مبسط للتعديل عليه

ماشاء الله عليك ابو ابراهيم اتابع بصمت ......

بالعكس واجب علينا عن توفر الاجابة أن نجيب .... حياك الله

تفضل ... On Error Resume Next DoCmd.SetWarnings False a = DLookup("الفرع", "T_1") DoCmd.OutputTo acOutputQuery, "Q_001", acFormatXLS, CurrentProject.Path & "\" & "كشف حساب" & "-" & a & "-" & Format(Date, "dd-mm-yyyy") & ".xls", True DoCmd.SetWarnings ture TEST.mdb

اخي الكريم عدل كود الموجود في Browse ليظهر لك الملف .. لان في عبارة فلتر به ... ضع الكود هنا للتعديل