حامل المسك

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

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

نعم ظهرت المشكلة مرتين مرة على هذا الكود ومرة على الكود الأخير 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 تخلف الترتيب كاملا.. رعاكم الله،،

السلام عليكم ورحمة الله،، وأسعد الله أوقاتكم بالخيرات والمسرات،، أساتذتنا الفضلاء لدي بيانات في عمود اكسل كثيرة، وهي على النحو التالي: العمود a N1 FN1 Item1 N2 FN2 Item2 N3 FN3 Item3 N4 FN4 Item4 فنلاحظ أن كل ثلاث أسطر تتعلق بأمر واحد مع ملاحظة اتحاد أول الحروف، المطلوب جعل البيانات أفقية وهذه يمكن عن طريق النسخ واللصق ولكن أحتاج أن آخذها واحدة واحدة وهو مرفق فكيف أجعلها جميعا على النحو التالي N1 FN1 Item1 N2 FN2 Item2 حفظكم الله ورعاكم،، مرفق المثال البيانات عرضية.xlsx

سلمت يا غالي،، أسعدك الله وبارك فيك، ،ويلزم من ذلك التفاف النص لأنه لم يضبط معي إلا بذلك، لتوجيهكم إذا كنت أخطأت،، مع جزيل الشكر وعظيم الامتنان،،

السلام عليكم ورحمة الله وبركاته،، ونسأل الله لكم العون والتوفيق،، أساتذتنا الكرام،، كما تعلمون عندما نريد أن نجمع نص خليتين في خلية واحدة يكون كهذا =a1&" "& a2 وتكون في سطر واحد،، لكني أريد أن يكون a1 في سطر و a2 في سطر آخر في نفس الخلية،، فكيف السبيل إلى ذلك سلمكم الله،،

والله إنك مبدع،، والإبداع يتعلم منك،، شكر الله لك وبارك لك فيما رزقك ووفقك،، جاري التجربة،،

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

أسعدك الله وأعتذر ،،نعم مثل ما تفضلت به لكني أخطأت في اللفظ،،