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

أهلا بك أ. @محمد احمد لطفى في فريق الخبراء.. أرجو أن يتهيأ لك الوقت لترينا بعضاً من فرائدك البرمجية!

وعليكم السلام، وأهلا بك @محمد التميمي أود لفت انتباهك إلى أمرين يتعلقان بطلبك !. لا يمكن استخدام الحلول التي تقدم بها الزملاء مع صندوق التحرير والسرد !. لا يمكن استخدام الحلول التي تقدم بها الزملاء مع مكون البحث عن القيم الفريدة (...,FindFirst) ، لأن هذا الأسلوب يعيد أول قيمة مطابقة، وقد لا تكون هي المطلوبة! ولذا فإن الأمثلة التي وضعها الزملاء مفيدة وعملية ومبنية على تصور صحيح لمسألة تجريد الحروف...

وعليكم السلام... افتح مشاركة جديدة

في هذه الحالة نريد أن نعرف من أين يأتي الخلل؟ عند حفظ الصورة المخزنة في السجل الأول من المثال، والتي لم نتمكن عرضها في المثال وفتح الملف في محرر النصوص نجد أن المف يحمل نسق مختلفا عن باقي ملفات الصور... (النسق يعني الترويسة أو التوقيع الخاص بالملف) انضروا إلى الجزء المظلل في العينة التالية يعتبر الجزء المظلل حشوا زائدا في ملف الصورة، بينما المتوقع أن يبدأ الملف بالنسق المبين في العينة التالية يمكن معالجة الأمر بإزالة الحشو الزائد يدويا وسوف تظهر الصورة بالشكل الصحيح.. يبقى السؤال: من أين أتى هذا الحشو؟ هل هو من برنامج اللاقط؟ أم قاعدة بيانات SQL؟ أرجو منك أن تتحقق من الأمر.. أنصحك أن تستخدم ShareX

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

وعليكم السلام أستاذ @عبد الله قدور الأستاذ @ابو البشر ذهب بعيداً..! بسبب التوصيف غير الواضح في الاقتباس ("لقد قمت بتخزين صورة في كائن ole")، وما ينبغي أن تكون علي العبارة ("لقد قمت بتخزين صورة في حقل ole") لعرض الصورة المخزنة في حقل OLE يتطلب الأمر عنصر تحكم Image، وباستخدام الخصيصة PictureData يمكن عرض الصورة Me.ImgViewer.PictureData([Your OLE Fied]) المثال المرفق يقوم بتخزين الصورة في حقل OLE ومن ثم عرضها باستخدام عنصر التحكم Image PictureViewer.accdb

أهلا @Foksh في ظني أن هذا ملف وورد غُيرتْ لاحقة الملف إلى accdb! هذا كل ما في الأمر! جميع تطبيقات أوفس التي تعتمد على ملفات XML في بنائها هي من هذا القبيل! ميزة 7z أن كل ملف يمكن إجراء فك الضغط عليه! جرب إنشاء ملف (وورد، أكسل، بوربوينت،..) وقم بفك الضغط عنه باستخدام 7z سوف تجد نفس النتيجة!! الهنود، يستخدمون هذا الاسلوب لكسر كلمة المرور لهذه الملفات!! جرب مع أكسل! هذا لا ينطبق على أكسس لأنه لا يعتمد على XML في بنائه!!

أهلا بالجميع.. الحقيقة أن الزملاء قاموا بعمل جبار في تطويع أكسس للإنجاز الفكرة.. بارك الله في الجهود.. تحقيق طريقة HTML مع أكسس أرى أن فيها صعوبة! ولم أجرب فعل ذلك.. لكن استخدام محتوى HTML في أكسس، فذلك ممكن... Pattern_Keypad_ADB.zip

وعليكم اسلام @عبد الله قدور الغلط في القطعة التالية من الشفرة ' تمرير قيم المعلمات .Parameters.Append .CreateParameter("@Param1", adInteger, adParamInput, , 123) .Parameters.Append .CreateParameter("@Param2", adVarChar, adParamInput, 50, "SampleValue") .Parameters.Append .CreateParameter("@Param3", adDate, adParamInput, , Date) عند إنشاء المحدد لا يجب أن يقترن بالمعامل (@). هذا الإقتران يكون عند إنشاء الإجراء فقط.. قم بإزالة المعامل فقط ' تمرير قيم المعلمات .Parameters.Append .CreateParameter("Param1", adInteger, adParamInput, , 123) .Parameters.Append .CreateParameter("Param2", adVarChar, adParamInput, 50, "SampleValue") .Parameters.Append .CreateParameter("Param3", adDate, adParamInput, , Date) إذا أردت اعطاء المحددات قيمة جديدة لا تقم بإنشاءها مرة أخري.. فقط مرر القيم الجديدة بالطرية التالية Param1.Value=Id Param2.Value=Name Param3.Value=Date ComObj.Parametrs.Refresh

كنت تعرف؟! هذا يعني أنك في ذلك التاريخ كنت راشداً!! (؟2+23=>؟؟) نحن بحاجة إلى @شايب لحل هذي المعادلة...

على الرحب والسعة! هناك أمر آخر يمكن استخدامه لهذا الغرض غاب عن بالي لقلة من يهتم له! ألا وهو SwitchBoard (لوحة التبديل)! وهو يعمل في كلا البيئتين (التطويرية accdb) أو (الإنتاجية accde)! بعد إنشاء لوحة التبديل عن طريق المعالج، يمكنك بعد ذلك التحكم في لوحة التبديل عن طريق الجدول دون الحاجة إلى الحاجة إلى استخدام المعالج!!!

أهلا بالجميع.. أولا.. دعوني أتوجه بالشكر للاستاذ @AbuuAhmed لبعد نظره البرمجي.. فليست القضية أن تقدم حلاً! أو تسبق إليه! بل يجب أن يتعدى ذلك إلى كونه صالحا للتطبيق كمنتج! ثانيا.. سبق لى وفي مشاركات عدة تقديم هذا المطلب ضمن الحل.. لكن لم يكن ذلك هو المطلوب من السؤال.. ثالثا.. هناك طريقتان سبق وأن استخدمتهما ضمن الحلول قمت بالمساهمة فيها وهما.. ** استخدام أدوات ActiveX .. لكن ليست هي الأسهل! ولا الأجمل! وتحتاج إلى Class Module لتمرير الأحداث ** استخدام أدات WebBrowser وهي الأسهل! والأجمل! في نظري! هذه الأمثلة لتطبيق الفكرة (استخدم Office64Bit) Database.zip

أهلا بكم.. لكن كيف تقوم الأداة بتخزين البيانات في حقل مصدر التحكم؟ وأيضا ماذا لو كان النموذج غير مرتبط بمصدر بيانات؟ هذه الأسئلة لا يمكن تجاهل الإجابة عنها!! عندما واجهت أبا جودي مشكلة عدم تطابق البيانات، قام بفحص البيانات العائدة من صندوق التحرير والسرد بالتابع TypeName، ليتفاجأ أن البيانات العائدة من نوع (متعدد، متنوع)! فلماذا لم يقبل صندوق الرسائل عرض البيانات كنص؟! السبب في ذلك أن البيانات العائدة وإن كانت من النوع (متنوع)، إلا أنها على هيئة مصفوفة بيانات! ومصفوفة البيانات أفرادها من النوع (متنوع). وكان الأولى فحصها البيانات العائدة من صندوق التحرير والسرد بالتايع VarType. يعيد هذا التابع رقما يشير إلى نوع البيانات كما هو مبين في الرابط التالي: VarType function بعد معرفة أن البيانات العائدة من صندوق التحرير والسرد هي مصفوفة بيانات؛ كيف يمكن قراتها جميعا دون الحاجة إلى عمل دوارة For... Next؟ يمكن استخدام التابع Join لهذا الغرض.. Private Sub cmdRequired_Click() Debug.Print VarType(cboEmpSection.Value) 'تعيدالرقم 8204، انظرالاقتباس أعلاه MsgBox Join(cboEmpSection.Value, ", ") ' يمكن استخدام محدد الفصل Debug.Print Join(cboEmpSection.Value) ' يمكن تجاهل محدد الفصل End Sub

إذا كان هذا الشكل البيضاوي الذي تريده استخدم الشفرة التالية Private Sub Detail_Print(Cancel As Integer, PrintCount As Integer) Me.ScaleMode = 6 '// Millimeters Me.Circle (50, 5), 18, vbMagenta, , , 0.26 '// 0.1 To 1.0 End Sub db1.accdb

أشكر لك هذا الإطراء وأتمنى أن تحوز مشاركاتي على رضاكم..

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

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

هذه الخصيصة ضرورية لمن يهمه التقيد بالإعلان عن المتغيرات والتصريح عن نوعها.. وقد تسأل.. هل لتحديد نوع البيانات أهمية في معالجة البيانات؟ فالجواب: نعم، هناك فرق في زمن المعالج، بين المتغير العام والمتغير النصي عند معالجة النصوص.. عند عدم تنشيط الخصيصة، لا يزال بالإمكان التصريح عن نوع البيانات دون الحاجة إلى الإعلان عنها كما في المثال التالي Sub TestStringVariable '-- $للتصريح عن متغير نصي استخدم A$="One,Two,Three" Debug.Print A End Sub أما بخصوص الخطأ.. لقد قمتُ بنسخ الشفرة ولصقها، ولم أنتبه أني لم أعلن عن المتغيرات التي فيها..

هناك طريقة أخرى؛ وهي أن نجعل الصفوف المطابقة للبحث تظهر ملونة في الأعلى، وغير المطابقة تظهر غير ملونة في الأسفل.. أرجو أن تكون هذه الفكرة مرضية لك.. SearchIn HTML Table.accdb

أهلا بك.. لا يمكن أن أخمن السبب.. هذا يرجع إلى اليئة التي تعمل فيها.. أبطل حدث ()OnLoad إذا أردت.. هل عدنا إلى نقطة البداية!..

أهلا بكم.. أنتم ترون زملائي أني أُبرمج ضمن بيئة VBA ولم أستخدم JavaScript لأن الأمر لا يستدعي ذلك! ولأبقي العمل في متناول الجميع... حل الإشكالات.. أعتقد أن كيفية حل الإشكالات لا تحتاج إلى شرح! وإذا أردتم ذلك فأرجو إعلامي.. SearchIn HTML Table.accdb

لا يكفي التصفيق @دروب مبرمج دسّم يديك! وساعدني في حل الإشكالات.. دعني أرى مواهبك أنت والزملاء..

Dim TR As HTMLTableRow If Not WD.activeElement.tagName = "body" And _ Not WD.activeElement.tagName = "div" Then For Each TR In WD.getElementsByTagName("tr") TR.Style.background = "" Next With WD.activeElement.parentElement .Style.background = "lightgreen" End With End If هذي ياعزيزي لتجاهل التركيز عند جسم الصفحة (Body Tag) وعند الحاوية (Div Tag) لأنها يمكن أن تكون العنصر النشط (ActiveElement) وقبول التركيز على خلايا الجدول (TD Tag) وعندها نقوم بتظليل الصف الذي يحوي هذه الخلايا.. لماذا هذه الحيلة؟! لأن الجداول والصفوف لا تقبل التركيز!!

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

قبل أن أجيب على مطالبك: يجب أن أخبرك أن مستعرض الويب وإن كان عنصر تحكم من عناصر النموذج، إلا أن له طرائق وأساليب وسمات مختلفة تماما عن بقية عناصر التحكم التابعة للنموذج، وعناصر التحكم فيه مختلفة تماما عن النموذج... إجابة المطالب المطلب الأول: في إجراء الحل المقترح حيلة بسيطة! يمكن فهمها عند إدخال الإجراء في نمط التتبع.. المطلب الثاني : هناك إجراءان: استخدام الأسهم أو الصفحات (PgUp,PgDn).. استخدام النقر بزر الفارة الأيمن.. (أوصي به) الإشكالات: هناك إشكالية فيما إذا كانت البيانات أكثر من مجال العرض: عند البحث أو التنقل لا ترتفع الصفوف إلى مجال العرض.. وأيضا عناوين جدول البيانات تختفي في الأعلى عند رفع الصفوف السفلى إلى مجال العرض.. أترك هذه الإشكالات للبحث والمشاركة مع الزملاء.. SearchIn HTML Table.accdb