Eng.Qassim

وعليكم السلام ورحمة الله وبركاته ليس هناك علاقة بين البوربوينت ونموذج اكسس رجاء اشرح مالذي تريده في مثال اكسس .. فما الذي تريد ان تستدعيه وماهو الخيار ؟

يا سلام عليك ...ايه الحلاوة دي لكن لماذا لم يقل .... فأنظر لأفعالهُ اللائي سَرَرْنَ ألوفُ ففيها تنبيه وتشديد ... رغم اني صفر باللغة العربية

1- مصدر بيانات الاستعلام (استعلام باجمالي فواتير الجملة بالدولار ) هو الجدول Sales_Invoice_main ولاحظ ان نوع البيانات ل Sales_Invoice_No = Number بينما الاستعلام customer account sub dollar Query الذي مصدر بياناته الجدول customer account sub dollar والذي نوع البيانات لرقم الفاتورة = short text يجب هنا توحيد نوع البيانات .. 2- اذا اردت الحاق نتائج الاستعلام (استعلام باجمالي فواتير الجملة بالدولار ) فيجب الحاقها الى الجدول customer account sub dollar وليس الى الاستعلام الناتج عنه فأذا فتحت استعلام الحاق تفتح لك نافذة (الحاق الى جدول ) وليس الى استعلام ... بالتوفيق يارب

السلامك عليكم.. ممكن سؤال؟...ماهي الفائدة من جدول customer_account_main الي يتم الحاق اسماء العملاء اليه طالما ان جدول العملاء موجود ومرتبط بنفس الجداول على كل حال..اذا اردت الحاق اسماء العملاء الغير موجودين بالجدول customer_account_main استخدم الكود التالي Private Sub Command33_Click() Dim strSQL As String DoCmd.SetWarnings False strSQL = "INSERT INTO customer_account_main ( Customer_Name ) " & vbCrLf & _ "SELECT Customer.Customer_Name " & vbCrLf & _ "FROM Customer LEFT JOIN customer_account_main ON Customer.Customer_Name = customer_account_main.customer_Name " & vbCrLf & _ "WHERE (((customer_account_main.customer_Name) Is Null));" DoCmd.RunSQL strSQL DoCmd.SetWarnings True End Sub

وعليكم السلام لو كنت مرفق مثال كان يسهل علينا بالوقت انظر للمرفق مقاس.accdb

لاحظ النموذج المرفق واشتغل عليه ربما لايشبه ماتفضلت به ...لكنه يعطي فكرة g1.accdb

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

وعليكم السلام .. بعد اذن استاذي ابو موسى كأنك تصدر الجدول كما هو !! اذن فما فائدة الاستعلام لنفرض لديك معرض سيارات .. ولديك جدول السيارات وجدول الزبائن وتريد معرفة السيارات التي لم تشترى من قبل اي من الزبائن.. فيمكن استخدام الاستعلام SELECT * FROM cars WHERE CarID NOT IN( SELECT CarID FROM customers); وبعدها يتم التصدير لاكسل كما تحب المهم .. ان نفهم ما الذي نريد استخراجه من الاستعلام تحياتي لك

الحمد لله ..بالتوفيق

وعليكم السلام بصراحة لم افهم الغاية من الطلب لانه عادة مايكون هناك ربط بين الرئيسي والفرعي حتى تكون سجلات الفرعي تابعة لمفتاح فريد لكن حسب طلبك ..انظر للمرفق REPORT.accdb

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

استاذي القدير @jjafferr ربما الجداول لاتبدأ ب tbl_ اليس من الاولى ان نستخدم بدلها If Left(tbdf.Name, 4) <> "MSys" Then تحياتي لكم

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

اجد صعوبة في تصور المطلوب دون وجود ملف العمل

انظر للمرفق الذي عملته حسب معطياتك قم بالتعديل حسب افكارك ..ثم اطرح اسألتك subject.accdb

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

نعم يمكنك ذلك

هو وين اكو من امثاله ؟ ماخذنا حاصل فاصل 😂 ربي يحفظكم ويحفظ جميع الاساتذة يوميا نتعلم منهم شيء جديد

هل هذا طلبك ؟ A1.accdb

عملت الخطورة التي ذكرتها استاذ @jjafferr..وبقى اطار النموذج علما لدي برنامج انزلته من النت النموذج ليس فيه اطار واستوردت نموذج من احد برامجي فظهر فيه اطار

لدي وندوز 7 واوفيس 2013 بعض البرامج لما افتحها لايظهر اطار للنموذج ..وبعضها يظهر الظاهر تعتمد على نسخة اوفيس

تفضل التعديل 5-5.mdb

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

خطرت في بالي فكرة Dim myPercent As String If Left([IndicatorType], 4) = "نسبة" Then myPercent = Format(Me.AnnualTargetY1 / 100, "Percent") Me.AnnualTargetY1 = myPercent End If

الان فهمت السؤال من جواب استاذ @Moosak اثار الشيخوخة بدت واضحة عندي