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

كنت أتوقع أن أجد بيانات تغطي عدد المخططات التي أرفقتها على الأقل! لكن..

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

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

كان في تقديري عند تلوين المؤشر أن استخدم ذلك في تلوين المؤشر حسب نطاق سعر البيع! لكن..

لا أعتقد أنك حزرت! من أدوات ActiveX أداة تسمى Fram عبارة عن حاوية للأدوات.. العجيب فيها أن الأدوات المركبة عليها تتمدد معها! ولهذا لو مددتها سوف تتمدد الخريطة وأداة العنوان كذلك! هذى الأداة فيها خاصية Zoom وكنت في النسخة الأولى وضعت أداة الانزلاق Slider لتكبير وتصغير الصورة لوضع أداة العنوان يشكل دقيق ومن ثم أعادتها للوضع الطبيعي.. لكني تخليت عن ذلك!

أهلا بك أ. سلمان.. في الحقيقة ليس هناك شفرة لأكسس متعلقة بهذا الموضوع! إنما هي وسوم CSS الخاصة بتزيين صفحات الويب.. يمكن أن تبحث في W3 School تحت CSS3 عن الوسمين Transition و Transform

لن يطول انتظارك بإذن الله.. في الواقع قد رتبت لهذا من قبل! ولم يمنعني من رفعه دفعة واحدة إلا التشويق! وأن يرى الزملاء الأشياء الجديدة على مهل.. Map Pointer.zip

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

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

هذه النسخة الأخيرة من التعديل أرجو أن تكون فيها فائدة للجميع.. وأعتذر للجميع بإغلاق المشاركة.. 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