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

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

ما هو المشكلة في كود التحديث لما اضغط على البوتون يعطيني هذه الرسالة وهذا هو المرفق INSERT&UPDATE.rar

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

تفضل اخي العزيز

انا قمت بحلها عن طريق كمبو بوكس في نموذج فرعي

Dim Sale_Cost As Integer Dim Fisrt_Date_of_Payment As Date Dim Number_Of_Installments As Integer انا اضفت هذا الكود لكن اعطاني هذه المشكلة اخرى 111.rar

نعم هذا هو المرفق 111.rar

ما هو المشكلة في هذا الكود ، علما يعمل بدون مشكلة في قاعدة بيانات اخرى علما انا استخدم اوفيس 2010 ، و ذلك مشروع انا سويتها ايضا عن طريق اوفيس 2010

اخي الكريم سيمو العازف اليك هذا المرفق بعد التعديل i need count without duplicate.rar

شكرا جزيلا اخي العزيز محمد هذا هو المطلوب

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