أبوبسمله

السلام عليكم ورحمه الله وبركاته @محمد احمد لطفى مشاركه مع اخوتى الافاضل قمت بتجربه بسيطه ولكن النتائج مختلفه عما ذكرتها 1 = 35 2 = 50 3 = 19 فايهما اصح ساقوم بمراجعه الرابط الذى وضعته وحل استاذنا العزيز أبو ابراهيم الغامدى جزاه الله خيرا لعلى اصل للصحيح بالتوفيق

ظننت انه تم الاجابه فعليا فدخلت لاطلع على الاجابه لاستزيد من العلم فوجدت بان السائل قد اختار افضل اجابه ع السؤال نفسه فنوضح له بارك الله فيه بان افضل اجابه توضع لمن اجابك او لنفسك اذا كنت وصلت للاجابه بنفسك ووضعتها لاخوانك لتعم الفائده وعلى العموم تفضل هذه محاولتى لفهم المطلوب جرب ع العميل 33335555444 فهذا ليس له ديون كما اشرت بالمشاركه السابقه If Nz(DLookup("mtRole", "listecont", "code='" & Forms!Chrche_Filter!code & "'"), 0) <> 0 Then DoCmd.OpenReport "data", acViewPreview, , x Else DoCmd.OpenReport "nodata", acViewPreview, , x End If بالتوفيق Database10_1.accdb

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

احسن الله اليك اخى ومهندسنا العزيز @Eng.Qassim وجزاك الله كل خير على كل ما تقدمه لاخوانك وجعله الله فى ميزان حسناتك 🌹 واعلم بان بمقدورك ان تقدم افضل مما قدمت اخى واحببت ان اشاركك الاجر والثواب 💐 فلك من كل المحبه والتقدير والاحترام اخى

وعليكم السلام ورحمه الله وبركاته مشاركه مع اخى واستاذى العزيز @Eng.Qassim جزاه الله خيرا Private Sub btnTrueOrFalse_Click() If Me.btnTrueOrFalse.Caption = "نعم" Then DoCmd.SetWarnings False DoCmd.RunSQL "UPDATE main INNER JOIN aux ON main.id = aux.id SET aux.done = True " & _ "WHERE (((main.id)=[Forms]![main]![id]));" DoCmd.SetWarnings True Me.btnTrueOrFalse.Caption = "لا" Else DoCmd.SetWarnings False DoCmd.RunSQL "UPDATE main INNER JOIN aux ON main.id = aux.id SET aux.done = false " & _ "WHERE (((main.id)=[Forms]![main]![id]));" DoCmd.SetWarnings True Me.btnTrueOrFalse.Caption = "نعم" End If Me.aux_نموذج_فرعي.Requery End Sub بالتوفيق اختيار نعم او لا_1.accdb

تسلم اخى وفيك بارك الله بالتوفيق

وفيك بارك الله اخى عمر بالتوفيق

اخى @أبو عبدالله الحلوانى ما رائيك بان تجعل المتغير Variant Function testDate(Optional vDate As Variant) If Len(vDate & "") <> 0 And IsDate(vDate) Then testDate = "#" & Format$(vDate, "mm\/dd\/yyyy") & "#" End If '?testDate(#23/4/2022#) '?testDate(0) '?testDate("test") End Function

وعليكم السلام ورحمه الله وبركاته اتفضل هل هذا ما تريد ادخل الرقم فى حقل mnum بالتوفيق ترقيم تلقائي خاص.mdb

اتفضل هذه التعديل اخى @عمر ضاحى ان شاء الله يكون ما تريد فى حدث بعد التحديث لرقم الموظف Me.NoM7alfa1 = Nz(DMax("[NoM7alfa]", "tblM7alfa", "[EmpNoM7alfa]=" & Forms!frmM7alfaReg![EmpNoM7alfa] & " And Format([M7alfaDate], 'yyyy') = Format(Date(), 'yyyy')"), 0) + 1 بالتوفيق m7alfa.accdb

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

السلام عليكم ورحمه الله وبركاته مشاركه مع اخوانى اخى ابو عبدالله بالنسبه للداله من فوق لا تضع لها قيمه فوق اجعلها على as date فقط ثم شيك عليها if len(sdate & "") <> 0 and isdate(sdate) then >>> endif جرب واخبرنا بالنتيجه بالتوفيق

هل هذا المثال الصحيح للعمل عليه ؟ لان اسماء النماذج والحقول الموجوده بالدوال غير موجوده بالمثال 😇

السلام عليكم مشاركه مع اخوتى واساتذتى جرب التالى =Nz(DMax("[NoM7alfa]";"tblM7alfa";"[EmpNoM7alfa]=[Forms]![frmSearch]![SubfrmQTGetAlll].[Form]![Emp_No]" And [M7alfaDate] Between DateSerial(Year(Date); Month(Date); 1) AND DateSerial(Year(Date); Month(Date) + 1; 0) );0)+1

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

الشكر لله ثم لاخواننا واساتذتنا جزاهم الله عنا كل خير وانت طيب بالتوفيق

جزاك الله خيرا اخى ومعلمى الفاضل @د.كاف يار 🌹

من خصائص الحقل كما بالصوره بالتوفيق

الشكر لله ثم لاخواننا واساتذتنا جزاهم الله عنا كل خير حسنا سوف افكر فيها ولعل احد اخواننا واساتذتنا يساعد @ابوخليل بالتوفيق

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

وعليكم السلام ورحمه الله وبركاته اتفضلى DateDiff("w";#20/12/2021#;#30/03/2022#) بالتوفيق

السلام عليكم اخى @عمر ضاحى فى الداله GetColType اضف السطر التالى Case Is = 7: GetColType = 1 بالتوفيق

وعليكم السلام اخى @سامي الحداد ومنور الموقع وكل عام وانت بخير وتقبل الله منكم الصيام والقيام وصالح الاعمال وجزاك الله خيرا على مشاركتك معنا 🌹

شكرا اخى @Ahmed.IQ سوف اطلع عليه جزاك الله خيرا بالتوفيق

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