ابو البشر

تم معالجة المشكلة هل لا زالت المشكلة ... هل جربتها هل تظهر المشكلة في لحظة فتح الملف ام في التصدير

استبدل الكود بهذا ..... Dim MWordDocCopyOf As String Dim LWordDocOriginal As String Dim LWordDocCopyOf As String Dim Warning As String LWordDocOriginal = CurrentProject.Path & "\asd.docx" LWordDocCopyOf = CurrentProject.Path & "\" & "الملفات" & "\" & Format(Now(), "dd_mm_yyyy_hh_mm_AM/PM") & ".docx" FileCopy LWordDocOriginal, LWordDocCopyOf MWordDocCopyOf = LWordDocCopyOf Dim LWordDoc As Object Set LWordDoc = CreateObject("Word.Application") LWordDoc.Documents.Open MWordDocCopyOf LWordDoc.Visible = True LWordDoc.ActiveDocument.Bookmarks("A1").Select LWordDoc.Selection.InsertAfter Nz(b1.Value, "") LWordDoc.ActiveDocument.Bookmarks("A2").Select LWordDoc.Selection.InsertAfter Nz(b2.Value, "") LWordDoc.ActiveDocument.Bookmarks("A3").Select LWordDoc.Selection.InsertAfter Nz(b3.Value, "") LWordDoc.ActiveDocument.Bookmarks("A4").Select LWordDoc.Selection.InsertAfter Nz(b4.Value, "") LWordDoc.ActiveDocument.Bookmarks("A5").Select LWordDoc.Selection.InsertAfter Nz(b5.Value, "") LWordDoc.Application.Documents(Format(Now(), "dd_mm_yyyy_hh_mm_AM/PM") & ".docx").Save LWordDoc.Quit Set LWordDoc = Nothing Warning = MsgBox("تم تصدير البيانات للملف ....... هل تريد فتح الملف المصدر", vbYesNo + vbQuestion, "تحذير") If Warning = vbYes Then Application.FollowHyperlink CurrentProject.Path & "\" & "الملفات" & "\" & Format(Now(), "dd_mm_yyyy_hh_mm_AM/PM") & ".docx" Else DoCmd.CancelEvent End If كل هذا ممكن .... بس خلينا نخلص من اخونا @حامل المسك وابشر استاذ @عمر ضاحى

جميل ... لكن الشرطة / قد لا يقبلها ظمن اسم الملف الجديد ... جرب واعلمنا هل قبلها ام لا بالتوفيق ...

استخدم هذا الكود ..... Dim LWordDocOriginal As String Dim LWordDocCopyOf As String Dim Warning As String LWordDocOriginal = CurrentProject.Path & "\asd.docx" LWordDocCopyOf = CurrentProject.Path & "\" & "الملفات" & "\" & Format(Date, "dd-mm-yyyy") & ".docx" FileCopy LWordDocOriginal, LWordDocCopyOf Dim LWordDoc As Object Set LWordDoc = CreateObject("Word.Application") LWordDoc.Documents.Open CurrentProject.Path & "\" & "الملفات" & "\" & Format(Date, "dd-mm-yyyy") & ".docx" LWordDoc.Visible = True LWordDoc.ActiveDocument.Bookmarks("A1").Select LWordDoc.Selection.InsertAfter b1 LWordDoc.ActiveDocument.Bookmarks("A2").Select LWordDoc.Selection.InsertAfter b2 LWordDoc.ActiveDocument.Bookmarks("A3").Select LWordDoc.Selection.InsertAfter b3 LWordDoc.ActiveDocument.Bookmarks("A4").Select LWordDoc.Selection.InsertAfter b4 LWordDoc.ActiveDocument.Bookmarks("A5").Select LWordDoc.Selection.InsertAfter b5 LWordDoc.Application.Documents(Format(Date, "dd-mm-yyyy") & ".docx").Save LWordDoc.Quit Set LWordDoc = Nothing Warning = MsgBox("تم تصدير البيانات للملف ....... هل تريد فتح الملف المصدر", vbYesNo + vbQuestion, "تحذير") If Warning = vbYes Then Application.FollowHyperlink CurrentProject.Path & "\" & "الملفات" & "\" & Format(Date, "dd-mm-yyyy") & ".docx" Else DoCmd.CancelEvent End If

جرب .... New Microsoft Office Access Application.mdb

طيب ممكن مثال مصغر مع ملف الوورد ... للتعديل عليه ...

وعليكم السلام ورحمة الله جرب كده ...... 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

اهلا بك

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