أ / محمد صالح

بارك الله في جهودكم جميعا ولتغيير تنسيق الارتباط التشعبي لهذا الملف اتبع الآتي: اضغط على أنماط الخلية cell styles الموجودة ضمن تبويب الصفحة الرئيسية home ضمن مجموعة الأنماط styles كلك يمين على ارتباط تشعبي hyperlink ثم اختيار تعديل modify ستظهر نافذة اضغط على زر تنسيق format تظهر لك نافذة تنسيق الخلية المعروفة ثم تبويب خط font اختر التنسيقات التي ترغب بها ثم اضغط موافق ok ولا تنسوني من صالح دعائكم

كل شيء ممكن وينجح مع الإصرار ولكن أكره الكلام النظري فائدته قليلة جدا وحسب فهمي للمطلوب يمكن تصميم النموذج كما تشاء مع مراعاة أن جميع أسماء الحقول في قاعدة البيانات كلها غير ممكنة نظريا وعند اختيار الأعمدة يتم تجميع نص الاستعلام بلغة sql وبناء تقرير جديد بناء على الاستعلام بهذه الدالة المعرفة Function CreateDynamicReport(strSQL As String) Dim db As DAO.database ' database object Dim rs As DAO.Recordset ' recordset object Dim fld As DAO.Field ' recordset field Dim txtNew As Access.TextBox ' textbox control Dim lblNew As Access.Label ' label control Dim rpt As Report ' hold report object Dim lngTop As Long ' holds top value of control position Dim lngLeft As Long ' holds left value of controls position Dim title As String 'holds title of report 'set the title title = "Title for the Report" ' initialise position variables lngLeft = 0 lngTop = 0 'Create the report Set rpt = CreateReport ' set properties of the Report With rpt .Width = 8500 .RecordSource = strSQL .Caption = title End With ' Open SQL query as a recordset Set db = CurrentDb Set rs = db.OpenRecordset(strSQL) ' Create Label Title Set lblNew = CreateReportControl(rpt.Name, acLabel, _ acPageHeader, , "Title", 0, 0) lblNew.FontBold = True lblNew.FontSize = 12 lblNew.SizeToFit ' Create corresponding label and text box controls for each field. For Each fld In rs.Fields ' Create new text box control and size to fit data. Set txtNew = CreateReportControl(rpt.Name, acTextBox, _ acDetail, , fld.Name, lngLeft + 1500, lngTop) txtNew.SizeToFit ' Create new label control and size to fit data. Set lblNew = CreateReportControl(rpt.Name, acLabel, acDetail, _ txtNew.Name, fld.Name, lngLeft, lngTop, 1400, txtNew.Height) lblNew.SizeToFit ' Increment top value for next control lngTop = lngTop + txtNew.Height + 25 Next ' Create datestamp in Footer Set lblNew = CreateReportControl(rpt.Name, acLabel, _ acPageFooter, , Now(), 0, 0) ' Create page numbering on footer Set txtNew = CreateReportControl(rpt.Name, acTextBox, _ acPageFooter, , "='Page ' & [Page] & ' of ' & [Pages]", rpt.Width - 1000, 0) txtNew.SizeToFit ' Open new report. DoCmd.OpenReport rpt.Name, acViewPreview 'reset all objects rs.Close Set rs = Nothing Set rpt = Nothing Set db = Nothing End Function بالتوفيق

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

أضف مسافة قبل وبعد الشرطة المائلة

بارك الله في جهودكم جميعا ولإثراء الموضوع يمكن جعل تنسيق حقل النسبة percent أي نسبة مئوية واستعمال هذه المعادلات البسيطة للحصول على جميع الحقول Nesba = [Buy] / [Sale] Buy = [Sale] / (1 + [Nesba]) Sale = [Buy] * (1 + [Nesba]) وفقنا الله جميعا لكل ما يحب ويرضى ولا تنسوني من صالح دعائكم

جرب هذا الكود RunCommand acCmdImport ولا تنساني من دعائك

بارك الله فيكم جميعا وفي جهودكم وبناء عليه: يمكن كتابة الكود بالفاصلة (,) أو الفاصلة المنقوطة (;) حسب إعدادات الجهاز وإذا لم تفلح الفاصلة ستفلح معك الفاصلة المنقوطة وفقنا الله جميعا لكل خير

الاستفادة الوحيدة من الرابط والتأكد من عدم إمكانية عمل جدول محتويات قائم على الإشارات المرجعية جدول المحتويات يتم عمله باستعمال الأنماط h1, h2, h3 وهكذا

يفضل إرفاق الملف للتعديل عليه ملف البيانات وملف التصميم

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

جميل جدا الوصول للهدف بأكثر من طريقة وهذه هي المرونة التي تتميز بها التكنولوجيا شكرا أستاذ @شحادة بشير

جميعا @athal

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

وهذا رابط في موقع ميكروسوفت يؤكد ذلك https://answers.microsoft.com/en-us/office/forum/office_2010-word/how-to-include-multiple-bookmarked-sections-in-a/9647e7b2-23fa-425b-98ab-813721c56fb7

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

في بارك الله فيك أستاذ مصطفى وإضافة إلى ذلك يجب تكرار الضغط على زر استبدال الكل replace all أكثر من مرة حتى تكون النتائج صفر لأنه من المحتمل أن يوجد كلمات بينها ٣ مسافات أو ٤ أو أكثر بالتوفيق للجميع لا تنسوني من صالح دعائكم

وفقنا الله جميعا لكل خير @محب المنتدى

الميزة التي انتظرها الكثير من الطلاب والمعلمين والقراء عموما أصبحت الآن بدون برامج إضافية ضمن تحديثات ويندوز 10 الأخيرة windows 10 build 1803 32bit or 64bit تحويل النص المكتوب إلى صوت مسموع Text to sppech والأجمل أنها باللغة العربية ومعنى هذا أنك بدلا من أن تقرا الملف تسمعه ولا ينقصني سوى دعاؤكم بالخير #ostazmas

المطلوب غير واضح بصورة كافية رجاء كتابة المطلوب بالتفصيل وتصميم الأزرار المطلوبة بحيث لا يتبقى لمن يريد المساعدة في الحل غير اقتراح الكود نظرا لانشغال الكثير منا

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

جزاكم الله خيرا فزكاة العلم نشره

ولكي تظهر رسالة خطأ بعد التحقق من طول النص يمكن الذهاب للتبويب الأخير في المربع الحواري الخاص بالتحققمن صحة البيانات data validation كما بالصورة

كل عام وجميع الأحباب في الله بكل خير عيدكم مبارك

فعلا يمكنك استعمال النسخ ctrl+c واللصق ctrl+v بصورة طبيعية أو يمكنك استعمال نموذج مصمم لعمل آلة حاسبة وعند الضغط على إغلاق يتم نسخ النتيجة ولصقها في النموذج الآخر المطلوب