صالح حمادي

السلام عليكم استعمل الدالة dcount في مربع نص من أجل حساب عدد السجلات المتشابهة بهذه الطريقة: =DCount("*";"tbl";"[id]=" & [id]) ثم استعمل التنسيق الشرطي لمربع النص

أرفق نسخة من البرنامج و سوف نحاول معها إن شاء الله

تفضل هذا كود آخر يقوم بالعمل بشكل جيد Dim x As String, y As Integer, r As Integer, d As Date Me.Frm_Employee.SetFocus DoCmd.GoToRecord , , acFirst x = Me.Frm_Employee.Form![emp_No] y = Me.Frm_Employee.Form![co_id] r = Me.Frm_Employee.Form![cost] d = Me.Frm_Employee.Form![birthdt] If Me.No_of_dbl = "" Then MsgBox "Please Type No Of Employee" Else MsgBox "Are you sure you want add ," & [No_of_dbl] & ", Passengers" Dim i As Integer For i = 1 To Me.No_of_dbl DoCmd.GoToRecord , , acNewRec Me.Frm_Employee.Form![emp_No] = x Me.Frm_Employee.Form![co_id] = y Me.Frm_Employee.Form![cost] = r Me.Frm_Employee.Form![birthdt] = d Next i End If Me.Refresh MultiDubl_2.rar

هكذا أصبح الشرح أوضح استعمل هذا الكود في حدث بعد التحديث لمربع نص الكمية If Me.نوع_العملية = "المنصرف خلا ل الفترة" Then Me.الكمية = Me.الكمية * (-1) End If 125.rar

عندما لا يجيبك أحد فأعلم أن موضوعك غير واضح أولا يجب أن توضح المطلوب أكثر و يا ريت توضحه بالصور لأنك كتبت المشتري و المبلغ و أنا لم أجد هذه الكلمات في النموذج و أيت قيم يقوم بجمعها

العفو أخي

تم تغيير عنوان المشاركة

أخي الكريم مرحبا بك معنا و أتمنى أن تقرأ قوانين المنتدى جيدا

اجعل خاصية مجموع تراكمي لا كما توضح الصورة

السلام عليكم تفضل أخي أبو زاهر استعمل هذا الكود و إن شاء الله يكون هو الحل. Dim i As Integer Dim rst As DAO.Recordset Set rst = Me.RecordsetClone rst.MoveLast: rst.MoveFirst RC = rst.RecordCount rst.MoveFirst Forms![frmSales].SetFocus Forms![frmSales]![SubSales].SetFocus For i = 1 To RC Me.Refresh If rst!Xsave = True Then DoCmd.GoToRecord , , acNewRec Forms![frmSales]![SubSales]![Rajmsanf] = rst!Rajmsanf Forms![frmSales]![SubSales]![ID_Sanf] = rst!ID_Sanf Forms![frmSales]![SubSales]![Alkmiah] = rst!Alkmiah Forms![frmSales]![SubSales]![Price] = rst!Price Forms![frmSales]![SubSales]![mjmo] = rst!mjmo Forms![frmSales]![SubSales]![safi] = rst!safi End If rst.MoveNext Next i rst.Close: Set rst = Nothing ادراج الموشر عليه.rar

السلام عليكم يمكنك استخدام هذه الدالة: DMax("ratep","tbl") بحيث ratep اسم الحقل و tbl اسم الجدول

إذا تريد ظهور إلا سجل واحد فإستعمل الكود التالي: Dim strFilter As String If Not IsNull(Me.aa1) Or Me.aa1 <> "" Then Me.مساعد_تصفية_فواتير_الشراء.Form.Filter = "[رقم فاتورة الشراء]= " & Me.aa1 Me.مساعد_تصفية_فواتير_الشراء.Form.FilterOn = True Else Me.مساعد_تصفية_فواتير_الشراء.Form.FilterOn = False End If تصفية.rar

بارك الله الله فيك أستاذنا الغالي @أ / محمد صالح

السلام عليكم جرب هذا المرفق الاصلي.rar

الجملة if: الشكل العام: If condition then Begin : End; مثال: وبإضافة Else يصبح الشكل العام كالتالي: If condition then Begin : End Else Begin : End; ملاحظة: يجب عدم وضع الفاصلة المنقوطة في السطر قبل Else مثال: var x:real; begin x:=StrToFloat(InputBox('أدخل المعدل','','')) ; if x>=10 then begin ShowMessage('ناجح') ; end else begin ShowMessage('راسب'); end عند تنفيذ البرنامج تضهر نافذة تطلب منك إدخال المعدل إذا كان المعدل أكبر من 10 تظهر رسالة ناجح و إذا كان المعدل أصغر من 10 تظهر رسالة راسب

السلام عليكم تغيير بسيط في الكود الذي تستعمله: Dim rs As Object Set rs = Me.مساعد_تصفية_فواتير_الشراء.Form.RecordsetClone rs.FindFirst "[رقم فاتورة الشراء] = " & Str(Nz(Me![aa1], 0)) If Not rs.EOF Then Me.مساعد_تصفية_فواتير_الشراء.Form.Bookmark = rs.Bookmark تصفية.rar

العفو حبيبي تستاهل كل خير بالنسبة لحسابي على الفايسبوك هو salah hommadi و يمكن أن نلتقي يوما ما إن شاء الله أما بالنسبة للمساعدة و حل المشاكل فافضل أن يكون هنا في المنتدى ليستفيد منه الجميع

أولا غير هذا السطر: Set rst = Me.ARD.Form.RecordsetClone بهذا السطر: Set rst = Me.RecordsetClone لأنه ليس لديك نموذج فرعي ثانيا غير خاصية النموذج السماح بالتحرير إلى نعم. الاستاذ صالح.rar

السلام عليكم أخي ابو زاهر يشهد الله أني أحبك فيه لحسن أخلاقك أخي الكريم تفضل سيف هذه من أجل مدينة الوادي أنا من وادي العلندة 3.rar

آمين يا رب العالمين و إن شاء الله أجمعين

لو لاحظت أخي الكود الذي أرسلته لك لم أضع فيه +1 بل وضعت فيه +i

السلام عليكم أخي محمد جرب الكود بهذه الطريقة غير به ما تحتاج حسب حاجتك: Dim i As Integer For i = 1 To Me.t4 DoCmd.RunSQL "INSERT into tbl(id, nn, ff) VALUES (" & Me.hh.Form![id] + i & ",'" & Nz(Me.hh.Form![t2], "") & "'," & Me.hh.Form![t3] & ");" Next i Me.Refresh و هذا المرفق يوضح ذلك tt.rar

نعم استاذ رمهان هذا صحيح شكرا جزيلا

السلام عليكم غير هذا السطر الأخير : DoCmd.RunSQL sql_statment بهذا السطر: CurrentDb.Execute sql_statment

السلام عليكم حسب فهمي للموضوع أن حقل الرصيد تراكمي يعني دائما الحقل الأخير أكبر من الحقل الذي يسبقه و هكذا. استعمل هذا الكود في مربع النص: DMax("[rs]";"[R1]")