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

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

أهلا بك صالح.. أشكرك على متابعتك لحسابي، وأتمنى أن تجد في مشاركاتي على قلتها! شيئاً جديدا

أهلا بك محمد.. لكون أكسس لا يدعم الاستنساخ أثناء التشغيل فلابد من الإعتماد على مكونات ActiveX التي يوفرها أكسس... أحد هذه المكونات هو المكون Microsoft.Form.Frame يوفر هذا المكون سطح بيني(طبقة) قابل للاستنساخ؛ بين النموذج والمكونات الأخرى التابعة ل Microsoft.Form هذا مثال بسيط لطريقة إدراج الصور أثناء التشغيل حسب المفهوم السابق Photo.zip

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

أهلا بك أولا.. أعتذر إليك وللزملاء عن وجود أخطاء إملائية في الشفرة السابقة.. تانيا.. بعد التصحيح.. أدرجت أسماء الأشهر بالعربي ضمن الوظيفة، وجعلت الشفرة تأخذ الاسم العربي المقابل لرقم الشهر الميلادي؛ وذلك لتفادي ظهور اسم الشهر باللاتيني للواجهات أكسس غير العربية.. وهذي هي الوظيفة بعد التعديل.. () '-- من الأفضل اقتباس الشفرة من قاعدة البيانات للهروب من مشاكل الترميز Public Function ConvertToGregDate(HijriDate As Date, F As Integer) Calendar = vbCalGreg Select Case F Case 0 ConvertToGregDate = Format(HijriDate, "yyyy/mm/dd") Case 2 '-- Show Arabic Month Names of Gregorian Calendar ConvertToGregDate = Choose(Format(HijriDate, "m"), _ "يناير", "فبراير", "مارس", "أبريل", "مايو", "يونيه", "يوليه", _ "أغسطس", "سبتمبر", "أكتوبر", "نوفمبر", "ديسمبر") End Select End Function إليك قاعدة البيانات بعد التطبيق.. db1.mdb

Public Function ConvertToGergDate(HijriDate As Date,F As Integer) Calendar=vbGerg Select Case F Case 0 ConvertToGergDate=Format(HijriDate,"yyyy/mm/dd") Case 2 ConvertToGergDate=Format(HijriDate,"mmmm") End Select End Function استخدم هذه الوظيفة في رأس الاستعلام ومرر عليها حقل التاريخ الهجري في المحدد الأول والقيمة صفر في المحدد الثاني لإظهار التاريخ الميلادي بالكامل... وبنفس الطريقة مع وضع الرقم واحد في المحدد الثاني لإظهار اسم الشهر بالكامل... للأهمية.. أسماء الأشهر لا تظهر بالعربي إلا في أكسس بالواجهة العربية.. وعليك كمطور قواعد بيانات أن تحطاط لهذا الأمر

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

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

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

أهلا محمد.. أجريت بعض التعديلات من أجل هذا الطلب.. نقل البيانات يتم عند نقر الزر F فقط .. كهرباء.mdb

أهلا محمد.. إليك المرفق بعد التعديل: كهرباء.mdb تأكد عند النقل إلى برنامجك أن تكون المكتبات المشار إليها في الصورة مؤشر عليها بعد النقل لأن هذا لا يتم تلقائيا..

أهلا بك.. راجع المشاركة التالية من فضلك

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

السلام عليك محمد وضعت حلا للنقر المتكرر وأصلحت العيب.. لكن لم أجربه.. إن شاء الله يكون العمل مباركا. كهرباء.mdb عند وضع المكون Web Browser ActiveX في النموذج يقوم أكسس بتهيئة مكتبات DLL الخاصة بالمكون؛ وذلك من أجل تسهيل العمل على المبرمج. عند نقل المكون لا تنتقل هذه المكونات تلقائيا.

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

أهلا بكم.. إليكم هذه التجربة البسيطة لتوظيف صفحات HTML في عرض البيانات بشكل جذاب ومميز .. للعلم.. كان العمل على قدر السؤال فقط. Dashboard.zip

أهلا محمد.. آسف على عدم الاهتمام إليك ما طلبت كهربا (1).mdb

أهلا بك محمد لطفي.. هل تريد عمل شئ آخر غير إظهار الصفحة؟ كهربا (1).mdb

أهلا سلمان.. هناك حل باستخدام صفحة html، وكنت أود أن أضع لك تجربتي لكني لم أتمكن من فتح قاعدة البيانات المرفقة على الأوفس 2007 للأسف...

دائما شفرات وبهارت الاستاذ شيفان لذيذة ومحبوبة للجميع..

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

أهلا بك محمد في حدث Form_Load وضعت سطرين لشفرة الإتصال بالموقع: السطر الأول للصفحة المزيفة (المعطلة) التي نسختها أنا من الموقع من أجل إجراء التجارب عليها! السطر الثاني لصفحة الموقع ألأصلية (الحية) والتي تتصل بموقع الشركة الحقيقي. هذا السطر لونة أخضر وهذا يعني أنه معطل. قم بتفعيله وعطل السطر الأول. هناك أمور آخرى.. لم أستطع التعرف على حقل البيانات الذي توجد به بيانات المحافضة ولذلك قمت بوضع الرقم (1) كقيمة صورية لحقل المحافة في الموقع. بيانات حقلي المحافظة والهندسة في الموقع عددية وليست حرفية وبالتالي ينبغي أن تكون البيانات المرسلة إليهما عددية أيضا وبنفس القيم.. ولمعرفة هذه القيم تحتاج إلى عرض الصفحة في وضع (View Page Source) ومن ثم نسخ بيانات المحافظة والهندسة. البيانات في حقل الهندسة مرتبطة بحدث (OnChange) الذي يقع على حقل المحافظة؛ لذا يجب إطلاق الحدث بعد إدراج البيانات مباشرة؛ وذلك لملئ الهندسة بالبيانات. قاعدة البيانات بعد إجراء بعض التعديلات: Test 900100.mdb

أهلا بك محمد جرب هذا الحل.. Web Page Data Automated.zip

حسناً.. قمت بعمل نموذجين الأول لإنشاء الجدول.. مع إنشاء حقلين للبيانات الحقل الأول: بيانات رقمية صحيحة طويلة تعداد تلقائي الحقل الثاني: بيانات نصية بطول 20 حرف. الثاني لإضافة أو تعديل عنوان الحقل لجدول تم نأسيسه. مربعات التحرير والسرد لتسهيل الإجراء :: إليك المرفق:اشاء.accdb أهلا بك أستاذ عبدالله.. بما أنه يمكن إنشاء الجداول مع صيغة ACCDE فيمكن إنشاء وتعديل الجدول عن طريق الشفرة. يمكن ذلك عن طريق الاتصال بقاعدة البيانات المرتبطة عن طريق الشفرة بالصيغة التالية Option Compare Database Option Explicit Dim DB As DAO.Database Dim TDF As DAO.TableDef Set DB = OpenDatabase(REMOTE_DATABASE) Set TDF = DB.CreateTableDef(TABLE_NAME) '... AND SO ON........... تقبل الله منا ومنكم.. آمين

أهلا بك أبا ياسين... استخدم الشفرة التالية لمعالجة المشكلة Option Compare Database Option Explicit Function ADD_FIELD_CAPTION(TABLE_NAME, FIELD_NAME, FIELD_CAPTION) Dim DB As DAO.Database Dim TDF As DAO.TableDef Dim FLD As DAO.Field Dim PRP As DAO.Property '-- Set DB = CurrentDb Set TDF = DB.TableDefs(TABLE_NAME) Set FLD = TDF.Fields(FIELD_NAME) Set PRP = FLD.CreateProperty("CAPTION", dbText, FIELD_CAPTION) FLD.Properties.Append PRP Debug.Print FLD.Properties("CAPTION") End Function أظن مثلك لا يحتاج إل شرح المحتوي أقترح عليك إنشاء الجدول عن طريق المنهج Database.CreateTableDef Method (DAO) لكي يتوحد الإجراء وتسلم من الأخطاء غير المتوقعة.