أبو إبراهيم الغامدي

نعم.. يمكن إن شاء الله.. حتى أنهي ذلك أطلب من أ. @أبو عبدالله الحلوانى أن يهتم بموضوع الخط..

عندما يشاركني أحد في مداخلاتي أطرب لذلك.. شكراً لك أبا عبدالله..

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

تجد ذلك في نموذج HTML تحت السجل CSS جميع الوسوم المتعلقة بالتزيين مدرجة تحت هذا السجل.. لكن يجب عليك الرجوع إلى W3 School لمعرفة المزيد عن ذلك.. يجب أن يكون مستوى المعرفة لديك بشفرة VBA فوق المتوسط لان بمرمجة صفحات HTML يعتمد كليا على الشفرة البرمجية.. نعم HTML مغري لكن يحتاج إلى قليل من التعب! يمكن عمل مثل هذه النوافذ.. لكن أرفق لي قاعدة بيانات فيها جدول بهذه المعلومات حتى أقوم بتزيينها بهذا الشكل.. إن أردت..

أما عن مشاركتي.. استخدمت أدوات ActiveX لأنها قابلة للإستنساخ (التوريث).. عند الضغط على زر الفارة الأيسر يقوم الحدث باستنساخ إداة العنوان ووضعها في موقع النقر تتضمن رقماً يمثل رقماً افتراصيا للأرض المعروضة للبيع.. بعد ذلك يقوم الحدث بتسجيل المعطيات في جدول البيانات (رقم الأرض الافتراضي، موقع أداة العنوان،..) الأدوات المستنسخة صورية لاتحفظ داخل النموذج.. ويتم محوها عند إغلاق النموذج! لكن يعاد استنساخ هذه الأدوات عند إعادة فتح النموذج بناءً على المعطيات التي سبق حفظها في الجدول.. Map Pointer.zip

وعليكم السلام ورحمة الله وبركاته.. مشاركة جميلة أ. محمد.. طبعاً الفكرة قائمة على هذا المبدأ : التقاط موقع المشيرة كنقطة في الخريطة.. استخدام GetCursorPos يتعامل مع شاشة الحاسب، وبالتالي النقاط التي حددتها هي للشاشة ليس الصورة! عليك البقاء في إطارة الصورة، واستخدم حدث MouseDoun وخذ مؤشر X، ومؤشر Y كقطة على الخريطة.. لمراقبة تحرك الفارة استخدم حدث MouseMove وخذ مؤشر X، ومؤشر Y كقطة وضعه كقيمة في مربع النص..

أهلا بك.. افتح مشاركة جديدة إذا أردت الإجابة..

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

أقصد البحث في نصوص عربية.. كيف أكون بترون لهكذا أشياء...

هل تريد فتح نموذج HTML من داخل بطاقة الشقة! ولماذا من هنا بالتحديد؟! تنزلا لرغبتك افعل الآتي.. قم بتغيير بيانات الرابط للزر ببيانات مناسبة أو استخدم التالي <a href='HTML' class='button'> ناقل </a></div> قم بتغيير شفرة الإجراء BeforeNavigate2 ليصبح كالتالي Private Sub WebBrowser_BeforeNavigate2(ByVal pDisp As Object, URL As Variant, Flags As Variant, TargetFrameName As Variant, PostData As Variant, Headers As Variant, Cancel As Boolean) If URL Like "about:id*" Then 'Debug.Print URL DoCmd.OpenForm "FM_2", , , "cstr(ID)=" & CStr(Mid(URL, 9)), , acDialog End If If URL Like "*html*" Then DoCmd.OpenForm "HTML", , , , , acDialog End If Cancel = True End Sub عزيزي ناقل.. إذا كانت الأسئلة لا علاقة لها بهذا الموضوع مباشرة.. فأرجو منك تكرماً فتح مشاركة جديدة.. ولا بأس أن تشير إلى هذا المشاركة، أو إلى الأمثلة التي وردت فيها..

أهلابك.. نعم يمكن.. انسخ السطر المتعلق بالزر والذي أشرت إليه أعلا وسوف يأخذ نفس الخصائص Dashboard2003.mdb

شكراً لك أ. أبو مهاب.. هل لديك باترونات بالعربي!.. 🤔

أهلا بك عزيزي أحمد.. في الواقع لم أفعل .. أما عن الاشكالات.. فمن أهمها.. استشعار أحداث وسوم صفحة المستعرص من داخل أكسس! وهذا بحمد الله تم الانتهاء منه.. جعل الصفحة تتفاعل مع تنسيقات الجيل الجديد.. وهذا بحمد الله تم الانتهاء منه.. أما العقبات.. فمن أقواها.. الكسل.. الوقت.. انظر إلى الفرق بين النسخة السابقة من المثال وبين النسخة التالية Dashboard2003.mdb

أهلا بك عزيزي.. لا بأس إذا كان الأمر يتعلق بذات الموضوع.. زر الأمر "المزيد" عبارة عن رابط.. والروابط في HTML تحدث انتقال إلى شيء ما.. في حدث "قبل الانتقال" المتعلق بالروابط الموجودة على الصفحة: نقوم بإعاقة الرابط من الانتقال، وبعدها نأخذ بيانات الغرفة -والتي سبق أن مررناها للرابط- ونضعها في وظيفة فتح النموذج.. هذا كل ما في الأمر.. <a href='" & "ID" & RS(0) & "' class='button'> المزيد </a> خصيصة الرابط "href" مررنا إليها معرف الشقة، وعند النقر عليها يمرر المستعرض هذه القيمة إلى محدد نصي اسمه "URL" في حدث ما قبل الانتقال "BeforeNavigate2".. بعد ذلك نعيد استخراج معرف الشقة ونمرره إلى وظيفة فتح النموذج Private Sub WebBrowser_BeforeNavigate2(ByVal pDisp As Object, URL As Variant, Flags As Variant, TargetFrameName As Variant, PostData As Variant, Headers As Variant, Cancel As Boolean) If URL Like "about:id*" Then 'Debug.Print URL DoCmd.OpenForm "FM_2", , , "cstr(ID)=" & CStr(Mid(URL, 9)), , acDialog Cancel = True End If End Sub

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

اتبعت الخطوات التي أشرت إليها لكن.. هل لنوات الأفس دخل بالموضوع؟

أهلا أ. جمال.. واجهتني مشاكل في التسجيل

أهلا بك.. أنت بحاجة إلى التحقق من كون الملف موجود قبل إجراء عملية النسخ بهذه الطريقة... Sub CopyFile() Dim rs As DAO.Recordset Dim fso, sSourceFile, sDestinationFile Set fso = CreateObject("Scripting.FileSystemObject") Set rs = CurrentDb.OpenRecordset("SELECT crn FROM BASIC_DATE") If rs.RecordCount = 0 Then Exit Sub End If rs.MoveFirst Do Until rs.EOF sSourceFile = Application.CurrentProject.Path & "\CONTACT\" & rs!crn & ".pdf" sDestinationFile = Application.CurrentProject.Path & "\CONTACT\old\" '-- تحقق من أن الملف موجود قبل إجراء عملية النسخ If fso.FileExists(sSourceFile) Then fso.CopyFile sSourceFile, sDestinationFile, True fso.DeleteFile sSourceFile End If rs.MoveNext Loop End Sub

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

أهلا بكم جميعا.. عندي طريقة يمكن أن تعجبكم! افتح ملف الورد وقم بحفظه على هيئة ملف Html بالإمتداد (html,htm) ومن ثم قم باستراده أو ربطه بأكسس! إذا استخدمت أسلوب الربط، فإن بإمانك العمل بين الورد والأكسس! لكن هذا الأسلوب يتميز بأنه بطيء. ولتجنب هذا الأمر يمكن تجربة المرفق. ImportFromWordTable.zip

لماذا تضع علامات التنصيص😬 على العموم هذه الطريقة مطروقة من قبل.. ولي مشاركة بهذا الخصوص أهلا أبا جود.. سوف أعود إلى المرفق وأقوم بالطبيق عليه ورفعه.. انتظرني بعض الوقت..

أهلا بك.. أعتذر عن هذا الخطأ بسبب العجلة Const strDefTagStart = "<strong><font color=black>" Const strTagStart = "<strong><font color=red>" Const strTagEnd = "</font></strong>" Public Function StrHighLight(ByVal strFieldName As String, ByVal FindAsType) As String StrHighLight = IIf(Len(strFieldName), Replace(strFieldName, FindAsType , strTagStart & FindAsType & strTagEnd ),strFieldName) End Function

أهلا بك.. أحسنت.. ضع الشفرة التالية في وحدة نمطية عامة Const strDefTagStart = "<strong><font color=black>" Const strTagStart = "<strong><font color=red>" Const strTagEnd = "</font></strong>" Public Function StrHighLight(ByVal strFieldName As String, ByVal FindAsType) As String StrHighLight = IIf(Len(strFieldName), Replace(strFieldName, FindAsType , strTagStart & FindAsType & strTagEnd )) End Function

المتغيرات التالية strTagStart ، strTagEnd

أهلا بك.. الوضع الطبيعي للشفرة بهذا الشكل.. Public Function StrHighLight(ByVal strFieldName As String, ByVal FindAsType) As String StrHighLight = IIf(Len(strFieldName), Replace(strFieldName, FindAsType , strTagStart & FindAsType & strTagEnd )) End Function لكن لديك متغيرات ليست مدرجة ضمن الوظيفة! وليست ضمن محددات الوظيفة! هل هي متغيرات عامة؟ من أين تأخذ القيم؟