حامل المسك

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

ما شاء الله تبارك الله إبداااااع ثم إبداااااع.. يعمل بشكل رائع جدا..

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

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

يا سلام علكيم .. يا رائع.. كتب الله أجرك ورضي عنك وأرضاك ووفقك لكل خير وبارك لك في أهلك ومالك وولدك.. تماااام ولك صادق الدعوات وأجر ما يقدم من عمل خيري بهذا البرنامج الذي يمتد أثره بإذن الله زمنا طويلا..

أسعدك الله طبقت الكود فجاءت هذه الرسالة

ممتاز جدا ورائع الله يعطيك العافية.. ومعذرة كلفت عليك بقي آخر شيء.. وهو أن الملف إذا كان مفتوح وعملت تصدير مرة أخرى في نفس الدقيقة تأتي هذه الرسالة فنحتاج أن تأتي رسالة بأن الملف مفتوح هل تريد إغلاقة وفتحه مرة أخرى .. مثلا..

لعل المشكلة تكمن في تعريف اسم الملف حيث اعتمدنا فيه الدقائق والدقائق سريعة التغير بخلاف الساعة.. فهل بالإمكان تعريف اسم الملف في الأول بحيث يكون هو الثابت لما بعده.. لأن ما بعده يأخذ اسما جديدا وربما تكون الدقيقة قد تغيرت..

نعم ظهرت المشكلة مرتين مرة على هذا الكود ومرة على الكود الأخير If Warning = vbYes Then Application.FollowHyperlink CurrentProject.Path & "\" & "الملفات" & "\" & Format(Now(), "dd_mm_yyyy_hh_mm_AM/PM") & ".docx" Else DoCmd.CancelEvent وقد لاحظت هذه المشكلة لأن الوقت كان الساعة 9.17 وأثناء العملية انتقل الوقت إلى الساعة 9.18 فحدث هذا لإشكال وكذلك عندما جاءت الرسالة وضغت نعم وفتح الملف ولم أغلقه وطلبت التصدير مرة أخرى جاءت هذه الرسالة وإذا تكرمت نريد أن تأتي رسالة تفيد بأن الملف مفتوح ويجب إغلاقه

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

الشرطة ليست في اسم الملف إنما لكتابة Am أو pm وقد عمل بشكل جميل لكن ظهرت مشكلتين بسيطتين بإذن الله.. الأولى: عندما يكون الوقت على سبيل المثال في نهاية الدقيقة مثلا 23 وينتقل إلى الدقيقة 24 فإن اسم الملف يتغير هذا عن هذا ويعطي رسالة خطأ فهل بإمكان التعديل بحيث يكون الثابت لاسم الملف هو الاسم الذي في البداية والثانية في حال وجود فراغ في b1 أو b2 بمعنى لم يعبأ يظهر خطأ في الكود فهل ممكن أن تأتي رسالة تفيد بأن هناك حقلا فارغا مع جزيل الشكر وعظيم الامتنان،،

في حال تعديل الكود على هذا الأمر هل يتضرر شيء معين.. بتعديل (( (Now(), "dd_mm_yyyy_hh_mm_AM/PM") )) 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 Dim LWordDoc As Object Set LWordDoc = CreateObject("Word.Application") LWordDoc.Documents.Open CurrentProject.Path & "\" & "الملفات" & "\" & Format(Now(), "dd_mm_yyyy_hh_mm_AM/PM") & ".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(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

ما شاء الله تبارك الله ... أبدعت ثم أبدعت ثم أبدعت.. سلمت أناملك ورفع الله قدرك وفرج همك وغمك ورضي عنك وأرضاك وكل من قرأ وشارك واستفاد وأفاد..

سلمت أيها الكريم.. مرفق الملف.. إذا تكرمت المطلوب نقل البيانات إلى ملف الوورد ثم حفظه باسم (بتاريخ اليوم) وتظهر رسالة تفيد بإتمام الحفظ وهل تريد فتح الملف أم لا.. تحفظ جميع النسخة (حفظ باسم) في مجلد الملفات تصدير البيانات للوورد.rar

ربنا يكرمك أباب البشر،، فتح ملف الوورد ووضع البيانات لكن لم يحفظه حفظ باسم بل ترك الملف مفتوحا.. وكأن الكود أدناه غير موجود.. Objwrd.SaveAs2 CurrentProject.Path & "\" & Date & ".docx" Objwrd.Close False

سلمت يداك.. جاري التجربة

ماشاء الله تميز وروعة .. وشكرا لكل مبدع ورائع.. وسلمت أناملكم،، حاولت التجربة فجاءت هذه الرسالة بالخطأ

السلام عليكم .. الأساتذة الكرام،، سلمكم الله ورعاكم ووفقكم،، لدي هذا الكود وهو يقوم بتصدير الحقول إلى الوورد 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 أود التعديل عليه بحيث يفتح ملف الوورد asd على النحو الآتي: 1) بأخذ نسخة منه (حفظ باسم) ويغلقه 2) يسمى الملف الجديد بتاريخ اليوم 3) يفتحه ويتم ملء البيانات وفق الكود السابق 4) يعرضه للمستخدم مع العلم أنه ربما يكون هناك مجموعة ملفات وورد مفتوحة فأود ألا يؤثر عليها ولا يغلقها لأن وجدت كود سابق يغلق كافة الملفات.. مع جزيل الشكر وعظيم الامتنان،،

السلام عليكم ،، ومساؤكم سعيد.. أساتذتنا الكرام لدي ملفات الوورد إذا كان الملف على خيار للقراءة فقط من خلال خصائص الملف، يصبح الملف في حال فتح يأتي في عرض وضع القراءة ثم أحوله لوضع تخطيط الطباعة.. فكيف أجعل الملف يفتح على وضع تخطيط الطباعة إذا كان للقراءة فقط..

سلمت.. وجاري التجربة..

أسعدك الله وسلمك وبارك فيك بالفعل الخط جميل لكن يحمل معاناة.. وهذا الأقرب إذا استمر الحال .. عدلت لكن لم تظهر إمكانية تغيير جزء من الحقل يحتاج تطبيق وتجربة.. شكر الله لك أستاذنا جعفر وبارك لك فيما رزقك وأسعدك في الدنيا والآخرة.. جاري التجارب.. ولعل الله ييسر حلا..

نعم أسعدك الله ورضي عنك وأرضاك..

السلام عليكم ورحمة الله،، وفقكم الله أساتذتنا الكرام.. لدي تقرير به عدة سجلات وبعضها به أرقام سواء متصلة مع نص أم منفردة وأرغب أن الأرقام التي تظهر في هذه السجلات تظهر بنوع خط معين حيث إن خط السجل أو الخلية مثلا Al-Mohanad Extra Bold وعندما تظهر الأرقام بهذا الخط تصبح كبيرة بشكل غير لائق.. فأرغب أن يكون السجل بهذا الخط والأرقام بخط آخر.. وفقكم الله ورعاكم،،

هذه تخضع لذوق الكاتب،، وأنا أستخدم للعنوان وتذييل الاسم والتوقيع MCS Jeddah S_U normal. وللسلام DecoType Naskh Variants وللختام DecoType Naskh Swashes وللبيان Khalid Art bold نحو

سلمت يمناك ولا عدمنا،، ألف ألف شكر وتقدير،، وفقكم الله ظهرت مشكلة أن هناك بعض الأسطر المتداخلة في قائمة العمود مما جعلت الأمر يختل عن نسخ كل ثلاث خانات وتحويلها للأفقي فهل بالإمكان تقييد أن الخلية إذا بدأت ب N يأخذ ثلاث خانات ويضعها بشكل أفقي وهكذا بحيث لا يحسب السطر الرابع N1 FN1 Item1 N2 FN2 Item2 N3 FN3 Item3 N4 FN4 Item4 itemx N5 FN5 Item5 N6 FN6 Item6 N7 FN7 Item7 N8 FN8 Item8 N9 FN9 Item9 N10 FN10 Item10 فنلاحظ خانة itemx تخلف الترتيب كاملا.. رعاكم الله،،