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

أهلا بك أ. @محمد احمد لطفى في فريق الخبراء..

أرجو أن يتهيأ لك الوقت لترينا بعضاً من فرائدك البرمجية! 

في 28‏/1‏/2024 at 08:37, محمد التميمي said:

السلام عليكم

احترامي وتقديري لاساتذي (kkhalifa1960) الكريم البحث لا يعمل !

اريد تعديل على كود البحث فقط التعديل على النموذج يتعارض مع قاعدة البيانات لدي 

مع فائق الشكر والاحترام...

وعليكم السلام، وأهلا بك @محمد التميمي

أود لفت انتباهك إلى أمرين يتعلقان بطلبك

!. لا يمكن استخدام الحلول التي تقدم بها الزملاء مع صندوق التحرير والسرد

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

ولذا فإن الأمثلة التي وضعها الزملاء مفيدة وعملية ومبنية على تصور صحيح لمسألة تجريد الحروف...

في 9‏/12‏/2023 at 18:51, gavan said:

السلام عليكم ، يمكن يكون الموضوع قديم شوية ،حيث قدم الاخ سلمان مشكلة الخطوط في جهاز العميل عند النقل ،ولكي لا اطيل عليكم قام الاخوة ولهم جزيل الشكر بتقديم حلول له ، ك اعادة تنصيب الخطوط او اعادة تنصيب الاوفيس او وحدة نمطية ،،،الخ ، ولكن لم نصل الى حل ، 

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

وعليكم السلام...

افتح مشاركة جديدة

2 ساعات مضت, عبد الله قدور said:

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

في هذه الحالة نريد أن نعرف من أين يأتي الخلل؟

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

  يعتبر الجزء المظلل حشوا زائدا في ملف الصورة، بينما المتوقع أن يبدأ الملف بالنسق المبين في العينة التالية

يمكن معالجة الأمر بإزالة الحشو الزائد يدويا وسوف تظهر الصورة بالشكل الصحيح.. 

يبقى السؤال: من أين أتى هذا الحشو؟ هل هو من برنامج اللاقط؟ أم قاعدة بيانات SQL؟

أرجو منك أن تتحقق من الأمر..

10 ساعات مضت, عبد الله قدور said:

برنامج تصوير لقطة الشاشة المستخدم هو : screen presso

أنصحك أن تستخدم  ShareX

في 2‏/12‏/2023 at 13:28, عبد الله قدور said:

عمود الكائن ole عندي في نفس الجدول ، اما عندك فهو في جدول مختلف

أهلا بك @عبد الله قدور

ليس الأمر كذلك! كل مافي الأمر أن عرض الصورة غير مرتبط بمصدر بيانات النموذج..

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

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

بالنسبة لمثالك قمت بالتعديل عليه حتى تتمكن من الإضافة التعديل والحفظ

Database8.accdb

في 30‏/11‏/2023 at 15:12, عبد الله قدور said:

قد قمت بتخزين صورة في كائن ole واريد ان اعرض هذه الصورة في النموذج

وعليكم السلام  أستاذ @عبد الله قدور

الأستاذ @ابو البشر ذهب بعيداً..! بسبب التوصيف غير الواضح في الاقتباس  ("لقد قمت بتخزين صورة في كائن ole")، وما ينبغي أن تكون علي العبارة ("لقد قمت بتخزين صورة في حقل ole")

لعرض الصورة المخزنة في حقل OLE  يتطلب الأمر عنصر تحكم Image، وباستخدام الخصيصة PictureData يمكن عرض الصورة

Me.ImgViewer.PictureData([Your OLE Fied])

المثال المرفق يقوم بتخزين الصورة في حقل OLE ومن ثم عرضها باستخدام عنصر التحكم Image

PictureViewer.accdb

في 2‏/11‏/2023 at 14:39, Foksh said:

هذه صورة مرفقة للملف المضغوط والملف الذي بداخله ( accdb )

أهلا @Foksh 

في ظني أن هذا ملف وورد غُيرتْ لاحقة الملف إلى accdb! هذا كل ما في الأمر!

جميع تطبيقات أوفس التي تعتمد على ملفات XML في بنائها هي من هذا القبيل!

ميزة 7z أن كل ملف يمكن إجراء فك الضغط عليه!

جرب إنشاء ملف (وورد، أكسل، بوربوينت،..) وقم بفك الضغط عنه باستخدام 7z

سوف تجد نفس النتيجة!!

الهنود، يستخدمون هذا الاسلوب لكسر كلمة المرور لهذه الملفات!! جرب مع أكسل!

هذا لا ينطبق على أكسس لأنه لا يعتمد على XML في بنائه!! 

أهلا بالجميع..

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

في 26‏/10‏/2023 at 17:32, عبدالعليم اسماعيل said:

ممكن استخدام نفس طريقه html مع الاكسس ام لا

تحقيق طريقة 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

48 دقائق مضت, ابو جودي said:

الذى كنت اعرفه انها توقفت عند الاصدار 2003

كنت تعرف؟! هذا يعني أنك في ذلك التاريخ كنت راشداً!! (؟2+23=>؟؟)

نحن بحاجة إلى @شايب لحل هذي المعادلة... 

في 17‏/10‏/2023 at 01:11, Foksh said:

عمل جميل ، وفكرة أيضا جميلة أستاذي الكريم 😊

على الرحب والسعة!

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

بعد إنشاء لوحة التبديل عن طريق المعالج، يمكنك بعد ذلك التحكم في لوحة التبديل عن طريق الجدول دون الحاجة إلى الحاجة إلى استخدام المعالج!!!

في 12‏/10‏/2023 at 13:08, Foksh said:

أنه هل من الممكن جعل المشروع أو النموذج تحديداً يقوم بإنشاء زر بناءً على عدد السجلات في جدول مثلاُ بحيث يكون مسمى كل زر هو اسم السجل في الجدول ؟

أهلا بالجميع..

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

ثانيا.. سبق لى وفي مشاركات عدة تقديم هذا المطلب ضمن الحل.. لكن لم يكن ذلك هو المطلوب من السؤال..

ثالثا.. هناك طريقتان سبق وأن استخدمتهما ضمن الحلول قمت بالمساهمة فيها وهما..

** استخدام أدوات ActiveX .. لكن ليست هي الأسهل! ولا الأجمل! وتحتاج إلى  Class Module لتمرير الأحداث

** استخدام  أدات WebBrowser   وهي الأسهل! والأجمل! في نظري!

هذه الأمثلة لتطبيق الفكرة (استخدم Office64Bit)

Database.zip

أهلا بكم..

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

عندما واجهت أبا جودي مشكلة عدم تطابق البيانات، قام بفحص البيانات العائدة من صندوق التحرير والسرد بالتابع TypeName، ليتفاجأ أن البيانات العائدة من نوع (متعدد، متنوع)!

فلماذا لم يقبل صندوق الرسائل عرض البيانات كنص؟!

السبب في ذلك أن البيانات العائدة وإن كانت من النوع (متنوع)، إلا أنها على هيئة مصفوفة بيانات! ومصفوفة البيانات أفرادها من النوع (متنوع).

وكان الأولى فحصها البيانات العائدة من صندوق التحرير والسرد بالتايع VarType. يعيد هذا التابع رقما يشير إلى نوع البيانات كما هو مبين في الرابط التالي: VarType function

اقتباس

 

Dim MyCheck
Dim IntVar, StrVar, DateVar, AppVar, ArrayVar
' Initialize variables.
IntVar = 459: StrVar = "Hello World": DateVar = #2/12/1969#
Set AppVar = Excel.Application
ArrayVar = Array("1st Element", "2nd Element")
' Run VarType function on different types.
MyCheck = VarType(IntVar)   ' Returns 2.
MyCheck = VarType(DateVar)  ' Returns 7.
MyCheck = VarType(StrVar)   ' Returns 8.
MyCheck = VarType(AppVar)   ' Returns 8 (vbString)
                            ' even though AppVar is an object.
MyCheck = VarType(ArrayVar) ' Returns 8204 which is
                            ' `8192 + 12`, the computation of
                            ' `vbArray + vbVariant`.

 

بعد معرفة أن البيانات العائدة من صندوق التحرير والسرد هي مصفوفة بيانات؛ كيف يمكن قراتها جميعا دون الحاجة إلى عمل دوارة For... Next؟ 

يمكن استخدام التابع Join  لهذا الغرض..

Private Sub cmdRequired_Click()
   Debug.Print VarType(cboEmpSection.Value) 'تعيدالرقم 8204، انظرالاقتباس أعلاه
   MsgBox Join(cboEmpSection.Value, ", ") ' يمكن استخدام محدد الفصل
   Debug.Print Join(cboEmpSection.Value) ' يمكن تجاهل محدد الفصل

End Sub

8 ساعات مضت, rashed7 said:

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

إذا كان هذا الشكل البيضاوي الذي تريده

استخدم الشفرة التالية

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

22 دقائق مضت, النجاشي said:

دوما وانت تبذل جاهدا ترضي تلاميذك وتحقق لهم ما يتمنون فهذا من طيب اصلك ا فألف تحيه اليك يالغالي

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

  أهلا بكم..

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

وحسبي من مشاركتي أني كشفت عن المكان الذي يخزن فيه أكسس المصادر المضمنة..

في 11‏/2‏/2023 at 23:43, Moosak said:

وأعتقد أن الأكسس عندما تقوم باستيراد صورة ستجدها موجودة هنا من ضمن مكتبة داخلية يحتفظ فيها الأكسس بالصور والأيقونات والخلفيات والعناصر المستخدمة في التصميم .. (لاحظ مربعي النص الذان استخدمناهما سابقا )

وعليكم السلام ورحمة اله وبركاته..

أهلا بك..

في 1‏/7‏/2023 at 20:06, rashed7 said:

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

لدي حيلة يمكن أن تستخدمها لهذا الغرض من خطوتين..

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

يجب أن تحدد الألوان المطلوبة عند التصميم لأنه لا يمكن تغيرها في أكسس

بعد ذلك تذهب إلى أكسس وتعمل الخطوات التالية..

أرجو أن تكون هذه المشاركة مفيدة لك..

9 ساعات مضت, النجاشي said:

فهل هي ضروري تشغليها تو ممكن توضح لي عملهOption Explicit

هذه الخصيصة ضرورية لمن يهمه التقيد بالإعلان عن المتغيرات والتصريح عن نوعها..

وقد تسأل.. هل لتحديد نوع البيانات أهمية في معالجة البيانات؟ فالجواب: نعم، هناك فرق في زمن المعالج، بين المتغير العام والمتغير النصي عند معالجة النصوص..

عند عدم تنشيط الخصيصة، لا يزال بالإمكان التصريح عن نوع البيانات دون الحاجة إلى الإعلان عنها كما في المثال التالي

Sub TestStringVariable
	'-- $للتصريح عن متغير نصي استخدم 
	A$="One,Two,Three"
	Debug.Print A
End Sub

أما بخصوص الخطأ..

لقد قمتُ بنسخ الشفرة ولصقها، ولم أنتبه أني لم أعلن عن المتغيرات التي فيها.. 

في 26‏/6‏/2023 at 22:38, النجاشي said:

اعذرني يالغالي والسموحه منك لكن انا قلت قد ربما يحل مشكله التاخير في البحث والتعليق

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

أرجو أن تكون هذه الفكرة مرضية لك..

SearchIn HTML Table.accdb

أهلا بك..

46 دقائق مضت, النجاشي said:

عندما يكون في عدد كبير من السجلات مثلا جربت 500 سجل وجدت عند فتح النموذج بطي في الاقلاع وعند البحث يعلق

لا يمكن أن أخمن السبب.. هذا يرجع إلى اليئة التي تعمل فيها.. 

أبطل حدث ()OnLoad إذا أردت..

49 دقائق مضت, النجاشي said:

هل ممكن نخفي السجلات الذي ليس لها لون عند البحث مثلا لانه كانه الحظ اهتزاز نوعا ماء

هل عدنا إلى نقطة البداية!.. 

في 24‏/6‏/2023 at 07:59, أبو إبراهيم الغامدي said:

الإشكالات: 

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

وأيضا عناوين جدول البيانات تختفي في الأعلى عند رفع الصفوف السفلى إلى مجال العرض..

أهلا بكم..

أنتم ترون زملائي أني أُبرمج ضمن بيئة VBA  ولم أستخدم JavaScript لأن الأمر لا يستدعي ذلك! ولأبقي العمل في متناول الجميع...

حل الإشكالات..

أعتقد أن كيفية حل الإشكالات لا تحتاج إلى شرح! وإذا أردتم ذلك فأرجو إعلامي..

SearchIn HTML Table.accdb

منذ ساعه, دروب مبرمج said:

دائما اقف في مشاريعك بإنبهار و اقوم بالتصفيق لك في مخيلتي و اسلوبها المميز في التركيبة الكودية التي تجعل المبرمج المبتدء يفهمها 

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

 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) وعندها نقوم بتظليل الصف الذي يحوي هذه الخلايا..

لماذا هذه الحيلة؟! لأن الجداول والصفوف لا تقبل التركيز!!

قام الاستاذ القدير @ابوخليل بترشيح العضو @دروب مبرمج للترقية إلى خبير 

مبارك عليك أيها الزميل الترقية.. أنت تستحقها بجدارة 

10 ساعات مضت, النجاشي said:

يكون البحث بالمربع الخصص للبحث ويكون بحدث عند التغير الكود وليس عن طريق زر امر ببكل الحقول اذا امكن اي الاسم والرقم

والتحرك باسهم الكيبورد اعلا  و اسفل يظلل السجل الحالي

قبل أن أجيب على مطالبك:

يجب أن أخبرك أن مستعرض الويب وإن كان عنصر تحكم من عناصر النموذج، إلا أن له طرائق وأساليب وسمات مختلفة تماما عن بقية عناصر التحكم التابعة للنموذج،  وعناصر التحكم فيه مختلفة تماما عن النموذج... 

إجابة المطالب

المطلب الأول: في إجراء الحل المقترح حيلة بسيطة! يمكن فهمها عند إدخال الإجراء في نمط التتبع..

المطلب الثاني : هناك إجراءان:

استخدام الأسهم أو الصفحات (PgUp,PgDn)..

استخدام النقر بزر الفارة الأيمن.. (أوصي به)

الإشكالات: 

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

وأيضا عناوين جدول البيانات تختفي في الأعلى عند رفع الصفوف السفلى إلى مجال العرض..

أترك هذه الإشكالات للبحث والمشاركة مع الزملاء..

 SearchIn HTML Table.accdb