cudi

شكرا جزيلا لكم لقد قمت بحل الموضوع

السلام عليكم اخواني الافاضل كيف لي تقسيط المبلغ ، لما العميل يريد القسط الاول مختلف عن باقي الاقساط مثلا : 1045 $ / 10 اشهر = 104.5 $ لكل شهر ، هو يريد قسط الاول يكون 145 $ باقي الاقساط على 100 $ يعني العملية سوف يكون 1045 $ - 145 $ = 900 $ / 9 = 100 $ لكل باقي الاشهر ، لكن كيف لي تصحيح هذا الكود الادنى Private Sub cmdInstall_Click() On Error Resume Next Dim rst As DAO.Recordset Dim I As Integer Set rst = Me.RecordsetClone Dim Sale_Cost As Double, FirstQist As Double, Number_Of_Installments As Integer Dim Fisrt_Date_of_Payment As Date If IsNull([Forms]![frmInstall]![InstallNum]) Or [Forms]![frmInstall]![InstallNum] = 0 Then Exit Sub ElseIf IsNull([Forms]![frmInstall]![SaleInstallDate]) Then Exit Sub Else Sale_Cost = Forms![frmInstall]![InstallNet] Fisrt_Date_of_Payment = Forms![frmInstall]![SaleInstallDate] Number_Of_Installments = Forms![frmInstall]![InstallNum] FirstQist = Forms![frmInstall]![FirstQist] If FirstQist > 0 Then For I = 1 To Number_Of_Installments rst.AddNew rst![InstallID] = Forms![frmInstall]![InstallID] rst![InstallNum] = I rst![InstallAmount] = FirstQist rst![InstallAmount] = Round((Sale_Cost - FirstQist) / Number_Of_Installments, 2) rst![InstallDate] = DateAdd("m", I - 1, Fisrt_Date_of_Payment) rst.Update Next I rst.Close: Set rst = Nothing End If For I = 1 To Number_Of_Installments rst.AddNew rst![InstallID] = Forms![frmInstall]![InstallID] rst![InstallNum] = I rst![InstallAmount] = Round(Sale_Cost / Number_Of_Installments, 2) rst![InstallDate] = DateAdd("m", I - 1, Fisrt_Date_of_Payment) rst.Update Next I rst.Close: Set rst = Nothing End If End Sub

تفضل اخي العزيز Anonace.rar

اذا تريد حذف رقم الفاتورة الذي تريد حذفها مع بيانات داخل نموذج فرعي ، حاول استبدل ماكرو الى كود واكتب هذا الكود Private Sub CmdDelete_Click() On Error Resume Next CurrentDb.Execute _ "DELETE FROM tblEmployees " & _ "WHERE tblEmployees = " & Me.EmpID End Sub اختر جدول الذي تريد لعندك بدلا من tblEmployees واختر رقم الفاتورة عندك بدلا من EmpID او استخدم هذا الكود Private Sub CmdDelete_Click() On Error GoTo err_CmdDelete_Click If IsNull(Me.EmpID) Or Me.EmpID = "" Then MsgBox "ÑÞã ÇáÝÇÊæÑÉ ÝÇÑÛÉ" Exit Sub Else DoCmd.SetWarnings False DoCmd.RunCommand acCmdDeleteRecord DoCmd.SetWarnings True End If exit_CmdDelete_Click: Exit Sub err_CmdDelete_Click: MsgBox Err.Description Resume exit_CmdDelete_Click End Sub

بعد اذن اخي شفان Private Sub add1_Click() If IsNull(me.txtName) Or me.txtName = "" Then MsgBox "ادخل التسمية", vbExclamation me.txtName.SetFocus Exit Sub Else DoCmd.RunCommand acCmdSaveRecord DoCmd.GoToRecord , , acNewRec End If End Sub جرب هذا الكود

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

تفضل اخي العزيز تغيير لون المربع من دون .rar

طيب اخي العزيز الآن عندك جرد المخزن على النوعية ، اسم المادة , كمية * سعر حتى يظهر عندك هذه المادة بمبلغ كذا في المخزن يمكنك تستخدم group by للاسعار ايضا ، حتى يظهر كل واحد على سعر خاص بها فمثلا ايفون 6 ، 5 عدد ، سعر 400 ايفون 6 ، 3 عدد ، سعر 390 اذا اشتريت ايفون بسعر اخرى سوف يظهر بسعر اخرى في المخزن ، فقط سوف يجمع ذلك نوع المادة ، اذا اسم المادة وسعر المادة بنفس الاخرى اعتذر على اللغة العربية الخاص بي ، الانها ليست واضحة تمامة

اخي العزيز اليك هذا المرفق الأخت زهرة ، يمكنك تستفاد منه CirclesOnNumbers.zip

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

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

شكرا جزيلا استاذي العزيز سانتظر مساعدتك

طيب استاذي العزيز ما هو الحل ، اذا تغيرت حقل واحد من فاتورة مثلا رقم 2 او اي رقم اخر ، فقط تحديث ذلك الحقل في الجدول مبني على رقم الفاتورة فقط تغير ذلك الحقل في ذلك رقم الفاتورة انا عملت تحديث عليها

ايضا لا يعطيني النتجة INSERT&UPDATE1.rar

لكن اذا الغي السطر الاخير في الكود ، النتجة يظهر هكذا ما قبل العملية : وهذا الصورة في النتجة النتجة يظهر بالخطأ ، تحديث كل القيمة نفس السطر الاول ، لازم يعطيني النتجة في نفس النموذج