ابو ياسين المشولي

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

الف الف شكر استاذ ابو خليك ربي يحفظك

اخي ماهو اسم النموذك لديك واسم الحقل انا عملت لك استعلام على انه اسم النموذج = [forms]![friends]![id ]

للرفع

اتفضل هذا هو حسب فهمي لطلبك DoCmd.RunSQL "DELETE friends.* FROM friends where id = [forms]![friends]![id ];"

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

اخي انا لم اقل ارفق المبرنامج قلت ارفق مثال تقدر تعمل الجدول والاستعلام فقط

وعليكم السلام ورحمه الله وبركاتة ارفق مثال افضل

اتفضل اخي ابو زاهر اتمنى يكون المطلوب الاضافه بالعرض (1).rar

اعمل نموذج واعمل فومت للتاريخ واعمل SELECT (Format([تاريخ الحركة]," mm")) AS الشهر; Like "*" & [ادخل الشهر] & "*" DELETE الاستعلام.الشهر, * FROM الاستعلام WHERE (((الاستعلام.الشهر)=[ادخل الشهر]));

للرفع

بارك الله فيك اخي

السلام عليكم ورحمه الله وبركاته اخواني مشرفي واعضاء المنتدى الكرام عندي مشكله عند عمل استيراد يحذف بينات جدول المشتريات والمرتجع وجدول transaction ولا عرفت ايش السر واتوقع انه يوجد علاقه بهما باكثر من جدول ارجو افادتكم ولك مني جزيل الشكر اخوكم ابو ياسين بـرنـامـج خـيـاط.rar

جزاك الله خبر

بالتوفيق اخي ابو زاهر

اخي انا حملته والرساله شغاله ميه في الميه شوف الصورة المخزون 89 وانا عملت 90 ولم يقبل واعطا رساله

اتفضل المثال السعر الجديد.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]![رقم_الصنف] = rst!Rajmsanf Forms![frmSales]![SubSales]![ID_Sanf] = rst!ID_Sanf Forms![frmSales]![SubSales]![Alkmiah] = rst!Alkmiah Forms![frmSales]![SubSales]![Price] = DLookup("[Price_Sales]", "Alsnaf", "[Rajmsanf]= Forms![frmSales]![SubSales]![رقم_الصنف] ") Forms![frmSales]![SubSales]![mjmo] = rst!mjmo ' Forms![frmSales]![SubSales]![safi] = rst!safi Forms![frmSales]![SubSales]![Adfah] = rst!Adfah Forms![frmSales]![SubSales]![Nwaha] = Me.n3 End If rst.MoveNext Next i rst.Close: Set rst = Nothing ' Dim rst As DAO.Recordset Set rst = Forms!frmSales!SubSales.Form.RecordsetClone rst.MoveLast: rst.MoveFirst RC = rst.RecordCount T = 0 'Total D = 0 'Discount For i = 1 To RC rst.Edit rst!mjmo = rst!Alkmiah * rst!Price rst!safi = rst!Alkmiah * rst!Price * (1 - Forms!frmSales!Percentage_Discount) T = T + (rst!Alkmiah * rst!Price) D = D + (rst!Alkmiah * rst!Price * Forms!frmSales!Percentage_Discount) rst.Update rst.MoveNext Next i rst.Close: Set rst = Nothing DoCmd.RunCommand acCmdSaveRecord Forms!frmSales!n1 = T Forms!frmSales!Alhasm = D Forms!frmSales!n2 = T - D Rajmsanf.SetFocus Call Form_frmSales.Percentage_Discount_AfterUpdate DoCmd.Close acForm, "ARD"

If Me.T1 <> T2 Then MsgBox ("لايمكنك الحفظ !! القيد غير متوازن") Me.Undo Else If MsgBox(" هــل تـريـد الحفظ والاستمرار " & vbCrLf & "", vbYesNo, " تنبية ") = vbYes Then DoCmd.Save On Error GoTo BCC Dim Q As Recordset Set Q = CurrentDb.OpenRecordset("SELECT * from Bills where mz = false;") While Not Q.EOF Q.Edit Q!MZ = True Q.Update Q.MoveNext Wend DoCmd.GoToRecord , , acNewRec no.SetFocus ACC: Exit Sub BCC: Resume ACC End If End If

شوف المرفق سندات.rar

اخي الفاضل وجدت لك شبه للبرنامج ممكن تستفيد منه انا اظنه هو طلبك بالضبط Accounts_2008 (1).rar

اتفضل اخي ولاتنسا تضغط لايك هههههه Test10.rar

اخي العزيز ارفق مثال

اخي بارك الله فيك انت لازم تبني الاستعلام من جدول الاصناف فقط رقم الصنف اسم الصنفه الكميه السعر وتعمل استعلام وتضيف فيه المشتريات - المبيعات يعطيك المخزون

اخي انا وصلت لك الفكرة انا لا اعرف من اين تاخذ رصيد الندوب هي نفس الشي فقط غير المسميات