أبو عبدالله الحلوانى

في 10‏/6‏/2022 at 21:36, RaDwAn00 said:

نعم اخي الكريم وما زال حجمها قريب لل 98MB

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

الصور تكبر حجم قاعدة البيانات حتي ولو لم يوجد بها سجلات كما تفضلت 

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

لتوضيح هذا الكلام النظري انظر الي الصور التالية:

طبعا التغير لكل العناصر التي تحتوي علي صور لديك

تمنياتي بالتوفيق

في 10‏/6‏/2022 at 17:17, محمد احمد لطفى said:

أستاذ أبو عبدالله الحلوانى وجد خطأ فى حساب تاريخ الميلاد وتم ضبط الاخطاء

12 ساعات مضت, محمد احمد لطفى said:

ممكن يتمسح الخطأ فى الخلايا ماعدا الخلية الاخيرة الى فيها تجميع الأخطاء

في 28‏/5‏/2022 at 00:54, أبو عبدالله الحلوانى said:

وعدلت بعزل نوع الخطأ بعمود مستقل حسب ما فهمت من كلام الاستاذ محمد صاحب الموضوع

قمت بالفعل بجعل الاخطاء تظهر بعمود مستقل وجعلت للخطأ كود مستقل وهو 5 

وما ظننت ان هذا الأمر مازال مطروحا حتي الآن - 

قمت ببعض التعديلات الطفيفة علي الكود بمرفقي السابق واظن ان هذا هو مطلبك

نصيحة صغيرة - والتناصح حق بين المسلمين - وارجو ان لا يزعجك هذا - 

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

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

بتحليل الكود ومحاولة تقسيمه وفهم جزئياته سيفتح عليك الكثير من المعرفة والاستنتاجات وفهم منطقية عمل الكود الكثير والكثير بإذن الله 

وأخيرا - اعتذر علي الاطالة وارجو ان لا يزعجك كلامي

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

جلب البيانات من الرقم القمي ابو جودي.rar

في 25‏/5‏/2022 at 16:57, د.كاف يار said:

ماشاء الله لا قوة الا بالله

عمل اكثر من احترافي و تنسيق اكثر من رائع

و اختيار جميل جدا للألوان

جزاك الله خيرا

مشاركة معي استاذنا @د.كاف يار جزاه الله خيرا

استخدم هذا الكود فقط بدون مكتبات

TablName= MyAccessTbleName  'ضع بدل هذا المتغير اسم الجدول الموجود بالأكسس
ExlFilPath= MyExelFileFullName  'ضع بدل هذا المتغير مسار ملف الاكسل بالكامل مثل: D:\Exel1.xlsx
"A1:F2000"  ' هذا المدي الموجود به البيانات بشيت الاكسل غيره حسب ما هو موجود عندك
Docmd.TransferSpreadsheet(acImport,acSpreadsheetTypeExcel12,TablName,ExlFilPath,true,"A1:F2000")

هذا والله أعلم

في 25‏/5‏/2022 at 20:39, Hema_Elhelow said:

اختار من الكومبوبوكس الاول المنطقة مثلا الاولى

واختار من الكومبوبوكس الثانى مثلا فئة الايتام

الاسماء الموجودة فى قاعدة البيانات فى المنطقه الاولى فئة الايتام يتم اضافتهم لجدول التوزيع لعمل تقرير بالاسماء دى وطباعنها 

علي حسب فهمي لهذه الجزئية ارجو ان يكون هذا هو المطلوب

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

كذلك لي ملاحظة علي حجم قاعدة البيانات حيث انك ضمنت الصور الموجودة علي الازرار لهذا تضخم حجم قاعدة البيانات 

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

تمنياتي بالتوفيق

لجنة الزكاة.rar

4 ساعات مضت, محمد احمد لطفى said:

ممكن الخطا يبقى فى عمود لوحده ماعداً المحافظة

حقيقة آثار فضولي ان اري مرفق اخي وأستاذي @ابو جودي بعد ان اطلعت علي الكود بمشاركته الأولي 

ومن باب الفضول ايضا قمت بوضع رقمي القومي لأنظر هل سيصل الكود الي الصعيد ام لا 

ولا ادري لماذا اتجهت عيني مباشرة الي العمر ولن ما ادهشني ان عمري قد اصبح 12 عاما فقط  

حقيقة قد شككت في حساباتي انا ولم اشك بكود استاذنا ابو جودي   -

واخذت ادعو له بظهر الغيب ان نبهني ان العمر لم يمضي وشمرت عن ساعد الجد لادرك ماظننت انه قد فات في عمر الشباب - ولات حين ادراك 😔 - 

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

وهذا المرفق بعد كل هذه الثرثرة 

قاعدة بيانات موظفين - (3).accdb

ملاحظة قمت بحذف بياناتي الشخصية حتي لا يطلع احد علي العمر الحقيقي 

17 دقائق مضت, Ahmed_J said:

لااستطيع رفع حتى جدول فقط 

جرب ان ترفع المرفق علي google drive  مثلا وضع رابط التحميل هنا

لحين ما نرى سويا مفاجأة استاذنا موسي @Moosak جزاه الله خيرا

وجدت لك هذا الموضوع لعله يقارب لما تريد

فلو تكرمت بتوضيح ما تريد بامثلة مصورة وما هو شكل التقرير المطلوب 

والنتيجة النهائية للبيانات المعروضة كيف شكلها - 

حتي يستطيع من اتسع وقته للمساعدة ان يمد لك يد العون

فكما تعلم فهم الشىء فرع عن تصوره 

وجزاكم الله خيرا - لصبركم علي قراءة هذا الرد المليىء بالثرثرة 

6 ساعات مضت, محمد0118588300 said:

سؤالي كالاتي عندي نموذج حسابات البنوك به دائن ومدين فيه

ذرار به ادخل علي التفاصيل فيه صفحتين ايداع ومسحوبات

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

اولا حضرتك لم تنتبه علي رد م/ @Eng.Qassim 

7 ساعات مضت, Eng.Qassim said:

انت عامل افضل اجابة على سؤالك ..يعني انت حليت السؤال

فان لم يكن قد تم ايجاد حل لمشكلتك فازل علمة الاجابة لانها توحي بان مشكلتك قد انتهت

ثانيا - لم اجد النموذج اللي حضرتك ذكرته بالمشاركة الأخيرة ولم اجد بالمرفق سوي الجداول والاستعلامات

6 ساعات مضت, مبرمج سابق said:

طرق بسيطة من زمن الطيبين

جزاك الله خيرا 

معلومات قيمة 

جعلنا الله واياكم ومن قال آمين - ممن ينادون يوم القيمة - طبتم فادخلوها خالدين - 

وأشكر اساتذتي الأكارم الأفاضل علي تشجيعهم وكلماتهم الطيبة

جزاكم الله عنا خيرا وأحسن اليكم

13 ساعات مضت, محمد احمد لطفى said:

عند محاولة تنفيذها على استعلام لم تعمل 

ممكن شرح مفصل للمطلوب لو تسمح فقد قمت بتنزيل المرفق ولم افهم شىء 

منذ ساعه, jjafferr said:

اوفيس 2019  32بت ، وندوز 10 64بت

يبدو ان المشكلة باعدادات اللغة فقد ظهرت عندي هذه الرسالة

حقيقة لم اشعل بالي بحل المشكلة وهي باعتقادي بسيطة ان شاء الله 

ولكن اردت ان انوه عن هذه الرسالة لعل الباحث عن هذا يجد ضالته 

آمين

وجزاكم الله خيرا 

2 ساعات مضت, محمد احمد لطفى said:

طيب هل هنك طريقة نضع بها بين كل صفحتين صفحة فاضية 

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

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

وددت أن أساهم بالمنتدي - مع قلت ذات اليد - اقصد العلم -   -

ببعض الأفكار البسيطة والخفيفة

لعل أحدا يفيد منها بشىء فتصيبني منه دعوة بظهر الغيب - فيرد عليه ملك "آمين ولك بمثل"

ستكون ان شاء الله وقدر متفرقة علي قدر سعة الوقت والله المستعان.

فكرة اليوم: 

كما هو بالعنوان تمرير بيانات من التقرير الي النموذج - او من نموج الي نوذج آخر 

احيانا تدعو الحاجة الي حساب بعض الأرقام بالتقرير او بالاستعلام دون النموذج - ونحتاج الي هذه الأرقام المحسوبة لنستخدمها بنموذج آخر لاستعمالها بعمليات حسابية أخري أو حتي عرضها فقط من هنا كانت الفكرة:

أولا- ننشئ هذا الاجراء العام - والذي ستتلخص مهمته في ثلاث أمور 

1- التحقق من كون الفورم المرر اليه البيانات علي قيد الحياه  -يعني مفتوح ام لا-

2- استقبال البيانات من التقرير أو النموذج 

3- تمريرها الي النموذج الأخر.

وهذا هو:

Public Sub GetInfoRep(Frm As String, T1rp As Variant, T2rp As Variant, _
                                        T1Fm As String, T2Fm As String)
'Frm            Form name
'T1rp           Text1 on report 
'T2rp           Text2 on report 
'T1Fm          Text1 on Form 
'T2Fm          Text2 on Form 
'================================

'Test if form is open before pass data to it
    If CurrentProject.AllForms(Frm).IsLoaded = True Then
        Forms(Frm).Controls(T1Fm) = T1rp
        Forms(Frm).Controls(T2Fm) = T2rp
    End If
End Sub

ثم نستدعيه عند اغلاق التقرير او النموذج هكذا

GetInfoRep "Form1", Me.TxDays, Me.TxSalary, "Text2", "text4"

والنتيجة:

تشاهدونها بالمرفق 

ودمتم  

passDataToForm.rar

في 16‏/5‏/2022 at 21:43, jjafferr said:

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

وانا كذلك ارحب بك - وافتقد فعلا مشاركاتك بيننا

جزاكم الله عنا خيرا 

39 دقائق مضت, Moosak said:

السؤال هو :

كيف أجعل حقول الأرقام

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

اجعل نوع الحقل نص بالجدول 

ثم املأه بأي شىء ارقام او نسبة مائوية لن يضرك من ذالك شىء 

وان كان الأمر متعلق بعمليات حسابية فدوال تحويل الأنواع مثل (Cint - Cbyte- Cduble) ستحل لك الاشكال ان شاء الله 

ربما أخطأت في كتابة بعض اسماء الدوال لأني بعيد عن الأكسس الآن تأكد من مسميات هذه الداول مرة أخري 

وجزاكم الله عنا خيرا

59 دقائق مضت, حسام نصير said:

شاشة رقمية

هلا تكرمت بمزيد من التفاصيل عن هذه الشاشة

كالاسم/

المديل/

طريقة اتصالها بالحاسوب/ طريق مباشر كـ usb أم عن طريق غير مباشر كربط من خلال الشبكة 

حتي تسهل علي من يحاول المساعدة المساعدة

مشاركة مع اساتذة الأكارم

جرب هذا المرفق ووافنا بالنتائج

SearchInSubandMain mod..accdb

13 دقائق مضت, احمد الفلاحجي said:

انا بقى مش هعرف ادور عليها فعلمنى اياها وخد فيا ثواب

هبعتلك الرابط دا علي الخاص علشان محدش يسمع 

https://academy.hsoub.com/programming/general/حل-المشكلات-وأهميتها-في-احتراف-البرمجة-r760/#:~:text=يعد أسلوب البطة,مقولة ألبرت أينشتاين%3A

23 ساعات مضت, abouelhassan said:

تسلم ايدك وعينك

بل الشكر لله وحده - ان يسر واعان وهدي - وما كنا لنهتدي لولا ان هدانا الله - سبحانه

ثم الشكر لاساتذتنا الذين ما بخلو علينا بعلم ولا نصح

وجزاكم الله خيرا علي تلك الكلمات الطيبات وكذلك استاذنا @Eng.Qassim

9 دقائق مضت, حسام نصير said:

يتم النطق باللغة الإنجليزية

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

10 دقائق مضت, حسام نصير said:

وكذلك العرض على شاشة رقمية فى نفس ذات الوقت

اما عن التعامل مع الشاشة الرقمية فلم اجربه من قبل - ولكن اعقد ان التعامل معها مقارب للتعامل مع الميزان الالكتروني وقارئ جهاز البصمة و فتح درج الكاشير - يحتاج للتحكم بمنفذ الاتصال بالحاسب مع شاشة العرض لتمرير واستقبال الداتا 

ربما افادك في هذه الجزئية من هم اعلم مني بهذا المجال 

12 دقائق مضت, Amr Ashraf said:

فيه اساتذة كتير هنا عندهم من الخبرة و المهارة ما يكفى

طبعا ولا شك - ولكن لو كل واحد ترك علما لكون هنالك من هو اولي منه ببسطه للناس -

ما تجرأ مبتدأ مثلي علي وضع جواب لسؤال.

ثم 

27 دقائق مضت, أبو عبدالله الحلوانى said:

اهو منها مذاكرة ومنها افادة

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

فاعتبر اخوانك المبتدأين أمثالي بطة جنابك 

لولا محبتكم بالله لما انبسطت معكم بالكلام

وجزاكم الله خيرا