Eng.Qassim

هل تقصد هكذا 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.[اسم المدرسة او القسم])="التصميم"));

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

الله يبارك بعمرك ورزقك طالما انك تسعى لافادة الاخرين.. بالمناسبة ... مامعنى derbali؟ هل هو اسم ام كنية ؟ لانها بالعراقي تعني ... I care of my self

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

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

جملة الخطأ واضحة من علامة الاستفهام..ولهذا يجب الانتباه عند نقل الكود اذا كانت بعض العناوين باللغة العربية لاحظ السبب Database transfer 4(1).rar

ليس هناك علاقة بين الوارد والمنصرف حسب تعلق الامر بموضوع خزينة المدرسة فالوارد له جهاته ..والمصروف له جهاته المختلفة وان كان سؤالك حول استخراج قيمة الخزينة الحالية بعد طرح مجموع الوارد من مجموع المصروف فلنفرض لديك جدول وارد وجدول منصرف ..يمكنك استخراج الميزانية عبر كود الاستعلام التالي SELECT Sum([جدول الوارد].الوارد) AS [مجموع الوارد], Sum([جدول المنصرف].المنصرف) AS [مجموع المنصرف], Sum([جدول الوارد]!الوارد-[جدول المنصرف]!المنصرف) AS Balance FROM [جدول الوارد], [جدول المنصرف]; طبعا لا ارغب بان تكون المسميات باللغة العربية ...لكن للتوضيح

وعليكم السلام في جدول customer_account_sub اعمل رقم الفاتورة Invoice_No مفتاح اساسي قم بعمل زر لالحاق جميع البيانات الى الجدول customer account sub dollar من الجدول customer_account_sub ثم ضع الكود التالي DoCmd.SetWarnings False Dim strSQL As String strSQL = "INSERT INTO customer_account_sub ( Customer_Name, [Date], Invoice_No, Invoice_Value ) " & vbCrLf & _ "SELECT [customer account sub dollar].[اسم العميل], [customer account sub dollar].التاريخ, [customer account sub dollar].[رقم الفاتورة], [customer account sub dollar].[قيمة الفاتورة] " & vbCrLf & _ "FROM [customer account sub dollar] ;" DoCmd.RunSQL strSQL DoCmd.SetWarnings True

تفضل التعديل NB.rar

وعليكم السلام date1.accdb

الان فهمت ..لانك تفتح السلك قبل الوظيفة طبعا لاتفتح لان استعلامها يعتمد على الاختيار الاول انت اردت تصفية السلك على حسب الوظيفة

لا اعلم ما السبب ...البرنامج شغال معاي جرب الان واعلمني النتيجة NB.rar

صارلي زمان مش واكل بطة ع الرز اذا بشمهنس محمد (ابو جودي ) بيعزمني ... حروح على طول لمصر الحبيبة

انت عامل كل شي فقط محتاج... Me.Requery

جرب المرفق select.accdb

وعليكم السلام .. انت تقول بانك عامل نموذج مصدر بياناته ذلك الاستعلام من الطبيعي انه يظهر لك السجلات التي لم تعمل عليها سلكت.. ربما لم افهم مطلبك بشكل دقيق

انظر للتعديل .. NB.accdb

وعليكم السلام طالما انك تستطيع التصفية في نفس النموذج فلماذا تعمل نموذجين للاختيار؟ على كل حال ضع الكود التالي عند زر تاكيد Forms![Frm_employer]![Job].Value = Me.grade.Value DoCmd.Close Forms![Frm_employer]![Job].Requery

انتبه لشغلة .. اكسس وضعته مايكروسوفت

الكود ده هيكنني هيكنني .....🤣

ليست هذه المشكلة ...لديه سعر التكلفة =مجموع سعرالوارد/مجموع كمية الوارد بعض الحقول في كمية الوارد= صفر... وهذه عملت مشكلة ايضا