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

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

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

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

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

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

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

السلام عليكم ورحمة الله وبركاته وددت أن أساهم بالمنتدي - مع قلت ذات اليد - اقصد العلم - - ببعض الأفكار البسيطة والخفيفة لعل أحدا يفيد منها بشىء فتصيبني منه دعوة بظهر الغيب - فيرد عليه ملك "آمين ولك بمثل" ستكون ان شاء الله وقدر متفرقة علي قدر سعة الوقت والله المستعان. فكرة اليوم: كما هو بالعنوان تمرير بيانات من التقرير الي النموذج - او من نموج الي نوذج آخر احيانا تدعو الحاجة الي حساب بعض الأرقام بالتقرير او بالاستعلام دون النموذج - ونحتاج الي هذه الأرقام المحسوبة لنستخدمها بنموذج آخر لاستعمالها بعمليات حسابية أخري أو حتي عرضها فقط من هنا كانت الفكرة: أولا- ننشئ هذا الاجراء العام - والذي ستتلخص مهمته في ثلاث أمور 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

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

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

وعليكم السلام ورحمة الله وبركاته اجعل نوع الحقل نص بالجدول ثم املأه بأي شىء ارقام او نسبة مائوية لن يضرك من ذالك شىء وان كان الأمر متعلق بعمليات حسابية فدوال تحويل الأنواع مثل (Cint - Cbyte- Cduble) ستحل لك الاشكال ان شاء الله ربما أخطأت في كتابة بعض اسماء الدوال لأني بعيد عن الأكسس الآن تأكد من مسميات هذه الداول مرة أخري وجزاكم الله عنا خيرا

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

مشاركة مع اساتذة الأكارم جرب هذا المرفق ووافنا بالنتائج SearchInSubandMain mod..accdb

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

بل الشكر لله وحده - ان يسر واعان وهدي - وما كنا لنهتدي لولا ان هدانا الله - سبحانه ثم الشكر لاساتذتنا الذين ما بخلو علينا بعلم ولا نصح وجزاكم الله خيرا علي تلك الكلمات الطيبات وكذلك استاذنا @Eng.Qassim

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

طبعا ولا شك - ولكن لو كل واحد ترك علما لكون هنالك من هو اولي منه ببسطه للناس - ما تجرأ مبتدأ مثلي علي وضع جواب لسؤال. ثم وهنالك طريقة لحل المشكلات البرمجية المستعصية - يعرفها من طرق باب البرمجة - تسمي طريقة البطة ( مش هشرح وهسيبك تدور عليها) فاعتبر اخوانك المبتدأين أمثالي بطة جنابك لولا محبتكم بالله لما انبسطت معكم بالكلام وجزاكم الله خيرا

هذا الماء - عقبال الغموس (بلغة اهل البندر الطعام يعني) وجزاكم الله خيرا

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

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

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

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

الأمر اهون من هذا ان شاء الله استخدم دالة الأكسس المخصصة لذلك لتحصل علي النتيجة التي تريد DateDiff "ww", d1, d2 '"dd" الفرق بين التاريخين بالأيام '"ww" الفرق بين التاريخين بالاسابيع '"m" الفرق بين التاريخين بالشهور '"yy" الفرق بين التاريخينن بالسنوات

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

جرب هذا المرفق ارجو ان يوافق مرادك ملاحظات: 1- عند نقل الدالة الي برنامجك لا تقم بنسخها اكثر من مرة الدالة واحدة يمكن استخدامها ومنادتها من اي مكان تريد فورم، استعلام ... 2- تم انشاء تقريرين حسب طلبك يتم التجميع والعرض بهم علي حسب نوع الحساب 3- تم تعديل الدالة لتقوم بعملية الجمع للثلاثة تقارير معا فقط ستقوم بتغير بارمتر نوع التجميع (0 يعني تجميع علي حسب العميل - 1 يعني تجميع حسب نوع الحساب - 2 يعني تجميع حسب نوع الحساب لكل عميل) 4- تم انشاء استعلامين جدد يتم الفلترة بهم حسب الفرز المطلوب حسب طريقتك المتبعة مع الفورم 1 تمنياتي بالتوفيق T3Q - Copy.rar

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