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

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

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

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

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

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

لم تجبني عن هذه الجزئية سأقوم بطرح السؤال بشكل آخر سامحني فقد ذكرت لك سابقا ان فهمي تقيل حبتين لو فرضنا ان لدينا عميل 1 له رصيد سابق اجل 50 وعميل 2 له رصيد سابق اجل ايضا 50 هل تريد التقرير يعرض هكذا العميل نوع الحساب الرصيد السابق 1 اجل 50 2 اجل 50 ام تريد التقرير يعرض هكذا نوع الحساب الرصيد السابق آجل 100

الامر سيحتاج تعديل ايضا في الفنكشن تغير في معيار التجميع علي اساس النوع بدلا من كود العميل في هذا السطر 'here Change Customer_ID with Account Dpt = Nz(DSum("Debit", "Financial_Records", "Customer_ID=" & Cno & " And [Registration_Date] Between " & DateFormat(Strtyer) & " AND " & DateFormat(Crntdat)), 0) 'And here also change customer_ID With Account Crdt = Nz(DSum("Creditor", "Financial_Records", "Customer_ID=" & Cno & " And [Registration_Date] Between " & DateFormat(Strtyer) & " AND " & DateFormat(Crntdat)), 0) ولكن استفسار قبل هذا التعديل هل تريد التجميع حسب نوع الحساب فقط لكل العملاء ام نوع الحساب لكل عميل!

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