Eng.Qassim

لاحظ النموذج المرفق واشتغل عليه ربما لايشبه ماتفضلت به ...لكنه يعطي فكرة 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 اثار الشيخوخة بدت واضحة عندي

هل تقصد هكذا Dim i As Byte i = Day(Date) If i = 1 Or i = 2 Or i = 3 Or i = 14 Then Dim Msg, Style, Title, Response, PauseTime Dim Sh_Msgbox As Object PauseTime = 5 'Seconds Msg = "الشاشة ستغلق تلقائيا بعد 5 ثوان " Title = "الوقت انتهى" Set Sh_Msgbox = CreateObject("WScript.Shell") Response = Sh_Msgbox.PopUp(Msg, PauseTime, Title) End If

الفرق بين المحترف والمبتدء مثلي هو زيادة عدد اسطر الكود التي ليس لها داعي ☺️ لكنها مفيدة في التعود على الحلقات التكرارية مشاركة مع استاذي ابو خليل Private Sub Form_Load() Dim i As Integer Dim myDate As Date myDate = DateSerial(Year(Date), Month(Date), Day(Date)) i = Day(Date) For i = 1 To 5 If myDate = DateSerial(Year(Date), Month(Date), i) Then MsgBox "مرحبا" End If Next End Sub

ممكن توضيح اكثر ..قرأتها عدة مرات ولم افهمها هل تقصد عدد التسلسل المتكرر ؟

وعليكم السلام يمكنك استيراد شيت اكسل من هنا مثلا اذا اردنا ان نحسب عدد الموظفين في قسم التصميم فتكون في اكسل =COUNTIF(A2:A12;"التصميم") في الاكسس يمكنك استخدام دالة Dcount =DCount("[اسم الموظف]";"Table1";"[اسم المدرسة او القسم]= 'التصميم'") او تستخدم الاستعلام لحساب الموظفين في قسم التصميم كما في جملة السكوال SELECT Table1.[اسم المدرسة او القسم], Count(Table1.[اسم الموظف]) AS [CountOfاسم الموظف] FROM Table1 GROUP BY Table1.[اسم المدرسة او القسم] HAVING (((Table1.[اسم المدرسة او القسم])="التصميم"));

🤣امال الاستعلام في الاكسس عملوه ليه؟