ِAbo_El_Ela

ممكن من استاذي ابو عبد الله توضيح الكود (شرح) للاستفادة و جزاك الله خيرا و بالاخص ByRef و c

او ارفق مثال للتطبيق علية

ممكن حضرتك تعمل funcation للتأكد من الحقول الفارغة داخل النموذج Private Function confirmation() As Boolean If IsNull(Me.TypePayType) Then Me.TypePayType.SetFocus confirmation = False Exit Function End If If IsNull(Me.TypePay) Then Me.TypePay.SetFocus confirmation = False Exit Function else confirmation = True End If End Function

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

DoCmd.OpenForm "frmBabone1", acNormal, , "[gb] = '" & [TempVars]![gbtemp] & "'" بعد اذن الاساتذه الكبار اية الخطأ في هذا الكود وصلت و الحمد لله شيلت علامتين التنصيص المفردتين و اشتغلت و الحمد لله

تسلم استاذي الفاضل

السلام عليكم استاذتي عندي نموذج اسمة frmExpenseNowMonth (نموذج عناصر متعددة) يحتوي علي code العملية هذا النموذج مبني علي استعلام qryExpenseNowMonth المطلوب عند الضغط علي رقم كود العملية فتح نموذج frmpayed1 علي السجل المحدد في النموذج frmExpenseNowMonth 1276627580_-Copy.accdb

Name الاسم البرمجي الذي سوف تستخدمة في الاكواد LableName عبارة عن الاسم الذي سوف يظهر للمستخدم بجوار TextBox

متابع مع اساتذتي ان شاء الله

المعلومة جديدة بالنسبة لي ايضا

المصروفات.rar

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

و رجاء استاذي jjafferr او اساتذتي الكبار من رواد المنتدي لو احد منكم لاحظ اي خطأ في الكود ياريت يوضحة حتي اتمكن من فهم الامر اكثر

هذا ما كنت اريده بالظبط و الحمد لله وصلت الية بفضلك استاذي jjafferr و الحمد لله Public Function FirstDate() Dim year1 As Integer Dim month1 As Integer Dim day1 As Integer Dim myday As Integer Dim myDate As Date year1 = Year(Date) month1 = Month(Date) day1 = Day(Date) myday = DLookup("[dayfirst]", "[firstd]") myDate = DateSerial(year1, month1, 0) If day1 >= myday Then myDate = DateSerial(year1, month1, myday) Else myDate = DateSerial(year1, month1 - 1, myday) End If FirstDate = myDate End Function

بارك الله في علمك و نفع بك

استعلام به خانة للتاريخ اريد وضع كود لاستخراج بيانات اخر شهر كامل و لكن بداية الشهر يحددها المستخدم بمعني استخراج بيانات عن شهر يبدأ من 24/2/2022 حتي 23/3/2022 او ان المستخدم يحدد اليوم الذي يريدة الذي يبدأ الشهر منه بمعني ان المستخدم من الممكن يجعل اول يوم في الشهر هو يوم 10 فيستخرج الاستعلام مثلا بيانات الفترة من 10/2/2022 حتي 9/3/2022

تسلم استاذي العزيز

كيفية استخراج اليوم الاول بالشهر من تاريخ اليوم مثال اليوم تاريخة 24/2/2022 اريد 1/2/2022 و 28/2/2022

و محرر الاكواد مغلق بكلمة سر و انا اعرفها

اذا كان هناك علاقة بين جدول راس الفاتورة و بين جدول اطراف الفاتورة ممكن ان تستخدم زر لمسح السجل الحالي (الفاتورة الحالية)

ما شاء الله بارك الله في علمك و ذادك من العلم

ماشاء الله كل الشكر و التقدير للاساتذه الافاضل

ارفق مثال حتي يتمكن الاساتذه من المساعدة

اشكرك جزيل الشكر زاد الله علمك و نفع بك

للاسف مازالت المشكلة موجودة