ابو البشر

وعليكم السلام ورحمة الله جرب كده ...... OpenClsword (CurrentProject.Path & "\asd.docx") Objwrd.ActiveDocument.Bookmarks("A1").Select Objwrd.Selection.InsertAfter Jhhh Objwrd.ActiveDocument.Bookmarks("A1").Select Objwrd.Selection.InsertAfter Subsader Objwrd.ActiveDocument.Bookmarks("A3").Select Objwrd.Selection.InsertAfter Datesader Objwrd.ActiveDocument.Bookmarks("A4").Select Objwrd.Selection.InsertAfter annexes Objwrd.ActiveDocument.Bookmarks("A3").Select Objwrd.Selection.InsertAfter sndOfficialn Objwrd.SaveAs2 CurrentProject.Path & "\" & Date & ".docx" Objwrd.Close False

وهذا نفس كودك مع تصريف بسيط ...... frm.Section(acHeader).BackColor = GetSetting("FormColor", "ColorOption", "HeaderColor", 12874308) frm.Section(acDetail).BackColor = GetSetting("FormColor", "ColorOption", "DetailColor", 16769023) frm.Section(acFooter).BackColor = GetSetting("FormColor", "ColorOption", "FooterColor", 12874308)

تشكر أخي @ابو جودي ولكن لي سؤال :::: ماذا لو قام العميل بشراء اكثر من برنامج من قبل المبرمج .... الأ تعتقد في هذه الحالة تشابه المفتاح في كل البرامج ..... اذن ::: نحتاج الى رقم اضافة رقم لكل برنامج بالاضافة الى ما تم ذكره حتى نضمن عدم تشابه هذه المفاتيح على جهاز واحد ؟؟؟؟؟ مجرد رأي ...

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

يا اخي صرت احب موضوعاتك لانها تتحدث من مبدأ التفكير خارج الصندوق ولا تخلو من الطرفة ... زادك الله علما وشكرلك ...

موضوعك ... ممكن دخلت عليه بشكل يومي ومع ذلك لم افهم هل تريد زر واحد للمعاينة والطباعة والغاء الامر ... هل هذا طلبك ولماذا الغاء الامر ... ماهي وظيفته ... ؟؟؟

اخي الدكتور @د.كاف يار واضح ان البرنامج يغير من تنسيق الملف ويظهر عند فتحه أن التنسيق غير معروف ..... لكن :: هل ممكن ان يتم تحميل الملف بنفس تنسيقة واسمه في القوقل درايف دون تعديل ....؟؟؟؟ جزاك الله خيرا

انظر لجدول تتبع المعرف غير موجود أقصد اكتب 1 في المعرف ويعمل معك

تقصد نوع الخط لجزء من العبارة وهي الارقام فقط .. صحيح؟؟

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

واياك .... الله يسلمك استاذي الفاضل ... المنتدى منور بوجودكم والاعضاء الكرام

بالافة لما ذكر حبيبنا الاستاذ احمد هناك مناقشات كثيرة في المنتدى حول تحديث البرنامج لدى العميل ... وهذه منها ...

ممكن مثال الفاتورة في مرفق للتعديل عليه ...

في تنسيق تفصيل التقرير استخدم هذا الكود ...... If Me.Pages = Page Then PageFooterSection.Visible = False End If أو ارفق مثال مصغر للتطبيق عليه ....

هل هذا التصور صحيح .....

انظر الصورة .... وطبق ...

تفضل ....... قم بالتركيز بالماوس على السجل ثم اضغط نقل .... نقل سجل.accdb

اهلا بك

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

تفضل .................. jo.accdb

استخدم هذا الكود عند حدث بعد التغيير في الكمبو المتعدد لديك ... Me.TextBox = Me.CompoBox_name.ItemsSelected.Count

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

وعليكم السلام ورحمة الله وبركاته بس معليش ... ايش سبب التصدير والاستيراد ... وليش اكسل مو اكسس .؟؟ اذا عرف السبب بطل العجب ....

مبارك استاذ . عمرو ... اعانك الله ... تستاهل

المرفق يعمل زي اللوز ...... وا اسفي على @مستفيد69 بقية وحيدا وفريدا ... هههه اشكرك استاذي الفاضل @Hamdi Edlbi-khalf على جهدك وتعبك .... كتب الله اجرك ..