طلب مساعدة لفتح نموذج ببيانات محددة

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

أخي الكريم ..

الحل بسيط بشرط أننا أثناء إرسال القيم من النموذج Proj إلي النموذج ReceiptA نغير مصدر العنصر Text392 اللي موجود في النموذج ReceiptA

جرب الكود في حدث عن الضغط مرتين علي العنصر txtContractPaid وأن شاء الله يضبط

DoCmd.OpenForm "ReceiptA"
    
    Forms!ReceiptA!Text395 = "قبض"
    Forms!ReceiptA!ProjectID = Forms!proj!ProID
    Forms!ReceiptA!Text392.ControlSource = ""
    x = DLookup("[PersonName]", "[Person]", "PersonID = " & Me.[Contractore])
    Forms!ReceiptA!Text392 = x
    
DoCmd.Close (acForm), "Proj"

لا تنسي الافادة

بارك الله فيك أخي الكريم هشام و جزاك خيراً ساقوم بتجربة ما ذكرته و أعود إليك بالنتيجة

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

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

Kamali_82 كتب:

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

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

اخي الفاضل

اضف بعد هذا السطر 

DoCmd.OpenForm "ReceiptA"

Dim x As String

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

بالتوفيق

بارك الله فيكِ أختي الفاضلة زهرة و جزاكِ خيراً و جعل جهدكِ في ميزان حسناتكِ أنتِ و الأخ الكريم هشام و لا أنسي أخي العزيز حسام الشامي و فضله علي أيضاً

 الامر الذي لم يتم فهو عند اغلاق النموذج ReceiptA و العودة للنموذج  Proj فانه في النموذج الفرعي FrmVoucherSub  يحفظ المعلومات كلها الا الاسم و بذلك لا يتم اضافة المبلغ لرصيده

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

MyDBKamalA2.rar

بإنتظار الرد بارك الله فيكم

السلام عليكم

قم بإنشاء حقل "PersonID" في نموذج "ReceiptA" علي أن تجعل هذا الحقل مخفي "إذا كنت لا ترغب في إظهاره"

ثم قم باضافة السطر التالي إلي الاسطر السابقة:

Forms!ReceiptA!PersonID = Me.Contractore

علي أن يصبح الكود كاملا بهذا الشكل

DoCmd.OpenForm "ReceiptA"

    Dim x As String
        
        Forms!ReceiptA!Text395 = "قبض"
        Forms!ReceiptA!ProjectID = Forms!proj!ProID
        Forms!ReceiptA!PersonID = Me.Contractore
        Forms!ReceiptA!Text392.ControlSource = ""
        x = DLookup("[PersonName]", "[Person]", "PersonID = " & Me.[Contractore])
        Forms!ReceiptA!Text392 = x
    
DoCmd.Close (acForm), "Proj"

حاولت اضيف ليك المبلغ في النموذج "ReceiptA" لقيتك عامل الحقل "CostL" مغلق....

تقدر انت تضيفها بالشكل اللي يناسبك من خلال النموذج الرئيسي "Proj" أو تمشي بنفس الطريقة اذا كنت تريد إرسال القيمة من النموذج "Proj" إلي النموذج "ReceiptA"

جرب وأنا متابع

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

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

بالنسبة للمبلغ فهو يوضع كرقم الحقل Cost و الذي يلي التاريخ في ترتيب التاب اندكس و الحقل CostL المفروض أن يظهر فيه التفقيط الذي واجهت به مشكلة مع أني استخدمته في قاعدة أخرى و نجح معي و لا ادري ما السبب

سأقوم إن شاء الله بفتح موضوع آخر للتفقيط

مرة أخرى بارك الله فيك و جزاك خيراً و جعل جهدك في ميزان حسناتك و كل الأخوة و الأخوات هنا في هذا المنتدى المبارك

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

مع استعمال القاعدة برزت مجموعة من الاشكالات

الاول عند النقر المزدوج على ContractPaid يتم فتح النموذج  ReceiptA دون اغلاق النموذج Proj فان ما يتم كتابته في ستد القبض لا يظهر في الدفعة في النموذج  Proj الابالخروج من النموذج و من ثم العودة لفتحه او في النموذج الفرعى لا تظهر الا بعد الانتقال لسجل آخر و العودة للسجل المطلوب

اما الاشكال الثاني فهو عند النقر المزدوج على ProkerPaid يغلق النموذج Proj و يظهر النموذج PaymentA و يمكن وضع المبلغ فيه و حين يغلق النموذج PaymentA يفتح النموذج Proj و لكن المشكلة انه لا يفتح على نفس المشروع ProID اوالصفحة التي كنت فيها

و القاعدة المرفقة هي المعدلة

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

MyDB1.rar

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

طوال الليل و حتى فجر اليوم و انا ابحث و احاول دون جدوى

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

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

هل من حل لواحد من هذين الاشكالين المذكورين اعلاه ؟؟

.

شوف يا أخي

بالنسبة للمشكلة الأولى

أنا عندي كود اسطوري

خرافة

لا مثيل له

نادرا ما تجده داخل أو خارج قواعد البيانات أو حولها

خد الكود ده وادعو لي

طبعا بعد المقدمة دي هتسألني فين الكود

ده سؤال وجيه

لكن نرجع لسبب المشكلة

انت عاوز تحديث سريع للبيانات

أحيانا ينفع الكود الغلبان ده بمفرده

DoCmd.requery

لكن مع حالتك الصعبة هذه فإليك هذا الكود

ولكن حذار قبل أن تصاب بحالة إغماء

قبل أمر الاغلاق في نموذج RecieptA

DoCmd.RunCommand acCmdSaveRecord
Forms!proj!FrmVoucherSub.Requery
 DoCmd.Close

حياك الله أخي الكريم amir2008amir و بارك فيك

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

Private Sub Contractore_AfterUpdate()
    Me!FrmVoucherSub.Form!CmbPersonID.Requery
End Sub

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

Forms!proj.Requery

مرة أخرى بارك الله فيك أخي الكريم و جزاك خيرا   +1