محمد أبوعبدالله

وعليكم السلام ورحمة الله وبركاته مرحبا اخي الكريم الاشكالية غاليا في 1- تجاهل قيمة المخزون ( باقي البضاعة التي لم يتم بيعها ) 2 - حساب ما لي وما علي في الارباح لذلك استخدم الطريقة التالية لحساب الارباح ( سعر البيع - سعر الشراء ) ( 700 - 1000 ) = -300 + قيمة الموجود بالمخزن = 400 الربح = - 300 + 400 = 100 - المصروفات = 30 الربح = 100 - 30 = 70 تحياتي

وعليكم السلام ورحمة الله وبركاته تفضل اخي الكريم __برنامج تصدير الطلاب للسجل الالكتروني - نسخة.rar تحياتي

لديك حقول بها عمليات حسابية فلا تضع لها قيمة "" لتفريغ محتواها فقط اتركها بدون قيمة وستاخذ قيمتها تلقائيا من العملية الحسابية مثل [Text98] = "" [Text99] = "" [Text24] = "" فاتورة معدلة.rar تحياتي

تفضل اخي الكريم APE_OK123.rar تحياتي

انت في الاصل لا تحتاج الى بيانات الا من جدول G1 تفضل اخي الكريم za-AKSAT-Pro.rar تحياتي

تفضل اخي الكريم ضع كلمة السر بين علامتي تنصيص "" [ipassword]="14914#39" تحياتي

تفضل اخي الكريم za-AKSAT-Pro.rar تخياتي

وعليكم السلام ورحمة الله وبركاته كود المورد الموجود في النموذج ليس هو كود المورد وانما هو معرف جدول شجرة خسابات تم تعديل الكود كالتالي =DSum("[count_d]"; "[شراء]"; "[name_d] ='" & forms![moarden subform]![اسم الحساب] & "'") Database4.rar تحياتي

لا تجعل مصدر البيانات ControlSource لحقل البائع السم المستخدم الحالي ولكن اجعله في القيمة الافتراضية DefaultValue ليس في كل الاحوال يمكن تحويل البرنامج الى mdb ليعمل على 2003 فاذا كنت تستخدم مثلا ( حقول محسوبة او نص طويل او حقل بنوع متعدد ) لذلك لا يمكن التحويل لانها غير موجودة في 2003 تحياتي

تفضل اخي الكريم empSalary.rar تحياتي

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

وعليكم السلام ورحمة الله وبركاته تفضل اخي الكريم empSalary.rar تحياتي

نعم قد يكون الاوفيس السبب لذلك جرب ازالة الاوفيس وتنصيبه من جديد وتأكد ايضا من اعدادت الامان تحياتي

تفضل اخي الكريم za-AKSAT-Pro.rar تحياتي

جرب المرفق وان شاء الله يكون المطلوب Offic2020.rar تحياتي

تفضل اخي الكريم Private Sub Numb_Click() DoCmd.OpenForm "Fo2", , , , acFormAdd Forms!Fo2!Numb = Me.Numb End Sub Offic2020.rar تحياتي

هل تقصد ان النموذج الخاص بجدول 1 هو Fo1 اذن لماذا وضعت في نموذج Fo2 زر فتح لنموذج Fo1 ام الاشكالية ما زالت عندي خاصة ان نموذج Fo1 لا يوجد به زر فتح لنموذج Fo2 هل يمكن توضيح اكثر بارك الله فيك تحياتي

وعليكم السلام ورحمة الله وبركاته تفضل اخي الكريم اولاً استخدمنا الوحدة النمطية لتقريب المبلغ عند التقسيم Public Function XRnd(strnr As Double) As Integer Dim myrnd, X As Double, newrnd As Double X = strnr \ 100 newrnd = X * 100 myrnd = strnr - newrnd XRnd = newrnd End Function ثم قمنا بتحديد القسط الشهري وباقي المبلغ من الكود التالي Dim X As Integer, X1 As Integer Me.amount = XRnd([totalamount] / [coden]) X = XRnd([totalamount] / [coden]) * coden X1 = totalamount - X وقمنا بالتوزيع بالشكل التالي mySQL = "Select * From Sharevalue" Debug.Print mySQL Set rst = CurrentDb.OpenRecordset(mySQL) For i = 1 To Me.coden rst.AddNew rst!codec = Me.codec rst!amount = Me.amount rst!coden = i rst.Update Next i ثم تحديث قيمة اخر قسط كالتالي mySQL1 = "Select * From Sharevalue" mySQL1 = mySQL1 & " WHERE coden = " & Me.coden Debug.Print mySQL1 Set rst1 = CurrentDb.OpenRecordset(mySQL1) rst1.MoveLast For i = Me.coden To Me.coden rst1.Edit rst1!amount = rst1!amount + X1 rst1.Update Form_datac.Sharevalue.Requery Next i توزيع المبلغ بشرط.rar تحياتي

وعليكم السلام ورحمة الله وبركاته تفضل اخي الكريم stDocName = "Fo1" DoCmd.OpenForm stDocName, , , stLinkCriteria Forms!Fo1!Numb = Me.Numb Offic2020.rar تحياتي

تفضل اخي الكريم انظر النموذج Form1 za-AKSAT-Pro.rar تحياتي

وعليكم السلام ورجمة الله وبركاته استبدل Me. txt = Me.Name بالتالي Me. txt = Me.Caption تحياتي

وعليكم السلام ورحمة الله وبركاته وضع رقم الخطأ فقط لا يساعد في حل المشكلة الافضل وضع الجزء الذي به المشكلة من البرنامج ثم ضع وصف للمشكلة او صورة لها عموما الخطأ رقم 2237 يكون بسبب " النص الذي أدخلته ليس عنصرًا في القائمة " تحياتي

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

بنفس الطريقة ولكن نعكس الجداول والاستعلامات تفضل انظر الى الاستعلامات والنماذج الجديدة db1.rar تخياتي

تفضل يا غالي Private Sub Form_BeforeUpdate(Cancel As Integer) Me.Total = DSum("Amount", "cash") Me.Total.Requery End Sub New Microsoft Access Database9.rar تحياتي