أبوبسمله

اتفضل اخى الفاضل @abouelhassan الشكر لله ثم لاخواننا واساتذتنا جزاهم الله خيرا ان شاء الله يكون ما تريد Sub inDsum() If Me.srch_All = "Negative" Then Me.Sum_1 = Nz(DSum("iAmount", "[tbl_Items]", "[iPage] Not In (12,2,3) and [iAmount]<0 and [idate] between [srch_Date_From] And [srch_Date_To]"), 0) ElseIf Me.srch_All = "Positive" Then Me.Sum_1 = Nz(DSum("iAmount", "[tbl_Items]", "[iPage] Not In (12,2,3) and [iAmount]>0 and [idate] between [srch_Date_From] And [srch_Date_To]"), 0) Else Me.Sum_1 = Nz(DSum("iAmount", "[tbl_Items]", "[iPage] Not In (12,2,3) and [idate] between [srch_Date_From] And [srch_Date_To]"), 0) End If End Sub DATA14.mdb

اتفضل اخى الفاضل @abouelhassan ان شاء الله يكون ما تريد تم اضافه الكود لاستدعائه مع التحميل وعند التغيير والضغط ع زر السيرش Sub inDsum() If Me.srch_All = "Negative" Then Me.Sum_1 = DSum("iAmount", "[tbl_Items]", "[iPage] Not In (1,2,3) and [iAmount]<0 and [idate] between [srch_Date_From] And [srch_Date_To]") Else Me.Sum_1 = DSum("iAmount", "[tbl_Items]", "[iPage] Not In (1,2,3) and [idate] between [srch_Date_From] And [srch_Date_To]") End If End Sub DATA14.mdb

السلام عليكم قمت بتعديل اسم مربع الخيارات الى tOption ثم قمت بتسلسل الخيارات من 1 الى اخر رقم انظر الى الاستعلام Q_WRD تم اضافه المعيار لحقلى رقم القيد ورقم المعامله للبحث بهم انظر الصوره واكمل بالتوفيق Database41.accdb

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

جزاك الله خيرا معلمنا العزيز فلم التوصل لمكان الخلل فالمره الأولى عند فحصه ولكني قد علمت بأنه فكود ما لأنني قمت بتغير المبلغ لقيمه ١٠٠٠ ففتح جزاكم الله عنا كل خير

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

الشكر لله ثم لاخواننا واساتذتنا جزاهم الله خيرا اتفضل هل هذا ما تريد DSum("iAmount";"[tbl_Items]";"[iPage] Not In (1,2,3) and [idate] between [srch_Date_From] And [srch_Date_To]") DATA14.mdb

جزاكم الله خيرا اخوانى واساتذتى @ابوخليل و @husamwahab 💐

احسنت اخى واستاذى العزيز @kanory جزاك الله خيرا 💐

وعليكم السلام @abouelhassan اتفضل محاوله منى ان شاء الله تلبى طلبك قمت بوضعها فى حقل Store_1 للنموذج frm_Items_Dates معذرة فالسؤال هو ابو الحسن ولا ابواحسان ونتشرف باسم حضرتك DATA14.mdb

نفس الخطأ اخى

نعم اخى العزيز

جزاك الله خيرا اخى واستاذى العزيز خالد 💐

وعليكم السلام اخى واستاذى العزيز @Elsayed Bn Gemy بارك الله فيك وجزاك الله خيرا وان شاء الله موفق قمت بتسجيل الاداه وتم التسجيل والحمدلله وعند تجربه المثال المرفق منك ظهر الخطأ ومرفق الصور

وفيك بارك الله ابا احسان وللرجوع الى اخر نسخه رفعتها لك فان الكود الذى ارفقته هو لفتح النموذج المذكور فالنماذج كلها تبدا من اليسار frm واما التقارير فكلها تبدا من اليسار ب rpt ارفق الملف الذى ظهرت به الرساله للاطلاع

وعليكم السلام اخى الفاضل ابواحسان انت تقول تقرير وعليه يكون الكود لان الكود السابق لفتح نموذج DoCmd.OpenReport "frm_Items_Dates" بالتوفيق

جزاك الله خير معلمنا العزيز جعفر سوف اقرئه بعنايه عند عودتي إن شاء الله بارك الله فيك

الحمدلله الذى بنعمته تتم الصالحات واياكم اخى بالتوفيق

الشكر لله ثم لاخواننا واساتذتنا جزاهم الله خيرا اتفضل Function strFind(txtFind As Integer) Dim db As DAO.Database Dim rs As DAO.Recordset Dim rs1 As DAO.Recordset Dim strSQL As String Dim strSQL1 As String On Error Resume Next strSQL = "SELECT tablesnadat.firstnosanad ,tablesnadat.namemandop,tablesnadat.endnosanad " & _ "FROM tablesnadat " & _ "WHERE tablesnadat.firstnosanad <=" & txtFind & " And tablesnadat.endnosanad >= " & txtFind Set db = CurrentDb Set rs = db.OpenRecordset(strSQL) Set rs1 = db.OpenRecordset("tableestelame") For i = 0 To rs1.RecordCount - 1 rs.MoveLast: rs.MoveFirst For ii = 0 To rs.RecordCount - 1 If rs1.Fields(2) >= rs.Fields(0) And rs1.Fields(2) <= rs.Fields(2) Then rs1.Edit rs1.Fields(3) = rs.Fields(0) rs1.Fields(1) = rs.Fields(1) rs1.Update End If rs.MoveNext Next rs1.MoveNext Next rs.Close Set rs = Nothing Set db = Nothing End Function exambledataNew - 2.accdb

مرفق الملف بعد التعديل لمعلمى العزيز جعفر جزاه الله كل خير واول مره ارى هذا الكود Me.Painting = False فجزاه الله عنى كل خير وتعديل بسيط فكود التكرار Private Sub btnInsert_Click() Dim intNum As Integer Dim i As Integer intNum = txtNum For i = 0 To intNum - 1 DoCmd.SetWarnings False DoCmd.OpenQuery "qry_InsertIpage" DoCmd.SetWarnings True Next DoCmd.RunCommand acCmdSaveRecord Me.Requery Me.Filter = "iBill_Number ='" & Main_iBill_Number & "'" Me.FilterOn = True End Sub DATA11(1).mdb

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

جزاك الله خيرا معلمنا العزيز @jjafferr وبارك الله لنا فيك 💐

وفيك بارك الله هذا ليس باهتزاز بل هو إغلاق وفتح النموذج

الشكر لله ثم لاخواننا واساتذتنا جزاهم الله خيرا صحيح ولم انتبه له فانا بتابع وانا اعمل فاعذرنى استبدل الكود الذى تحت هذا الزر بالتالى سيقوم باغلاق النموذج ثم فتحه مره اخرى مباشرة Private Sub btnNew_Click() On Error GoTo Err_btnNew_Click DoCmd.Close DoCmd.OpenForm "frm_Items_Entry" Exit_btnNew_Click: Exit Sub Err_btnNew_Click: MsgBox Err.Description Resume Exit_btnNew_Click End Sub

طيب مبدئيا بلاش كلمة استاذ لى فما انا الا طالب علم معكم بالنسبه للزر الجديد ممكن تستخد انشاء الزر بالمالعج وسوف يتم ادراج مثل هذا الكود لانشاء فاتوره جديده Private Sub btnNew_Click() On Error GoTo Err_btnNew_Click DoCmd.GoToRecord , , acNewRec Exit_btnNew_Click: Exit Sub Err_btnNew_Click: MsgBox Err.Description Resume Exit_btnNew_Click End Sub بالنسبه لاخر تعديل قمت به وهو بادخال الحساب وهم عدد 11 سجل بجدول tbl_Pages فاذا قمت بكتابه فحقل العدد 2 سيقوم بادراج 22 سجل اى بضرب هذا العدد فى عدد سجلات tbl_Pages اى 2*11 هذه محاولاتى الضعيفه بجوار اساتذتى جزاهم الله خيرا DATA11(1).mdb