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

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

يا اخوان انا عارف والله ان طريقتي ما تعجبكم بس بحب اوضح لكم شي انا عامل عند الاقلاع انه يقلع من مجلد البرنامج بالدي وعندما ادخل بينات ت Public Function acbRelink(strPath As String, Optional blnSilent As Boolean) As Boolean On Error GoTo alalal Call SysCmd(acSysCmdSetStatus, "Re-linking the data tables...") Set DB = CurrentDb() For Each tdf In DB.TableDefs If (tdf.Attributes And dbAttachedTable) = _ dbAttachedTable Then tdf.Connect = ";DATABASE=" & "D:\بـرنـامـج الـخـيـاط\data\tailor" tdf.RefreshLink End If Next Call SysCmd(acSysCmdClearStatus) If blnSilent Then MsgBox " تم العوده الى النسخه الأصليه مره أخرى ", vbInformation, " بـرنـامـج الـخـيـاط : النسخه الأصليه " End If alalal: If err.Number = 3024 Then MsgBox " عفوا مجلد البيانات تم نقلة أو أعادة تسميتة " & Chr(13) & " لذا سوف يتم اغلاق البرنامج " & Chr(13) & " رجاء أذهب الى مصدر البرنامج وتأكد من وجود مجلد باسم " & Chr(13) & " بجوار ملف بـرنـامـج الـخـيـاط tailor ", vbYes, " بـرنـامـج الـخـيـاط : خطــــــأ " DoCmd.Quit End If End Function حفظ بالدي ولكن عندما اعمل ارتباط يجي اي واحد من العمال يدخل بيانات وعند الاقلاع تجدها غير موجوده ويستوي لخبطه انا لست خشيم الى هذة الدرجه كل واحد المهم الاستاذ ابو خليل بارك الله فيه جاب المطلوب وما قصر بقلى شي قليل اظن انه حله بسيط ليس صعب وقد يكون الخطاء مني انا

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

استاذي ابو خليك جزاك الله خير ماقصرت هو المطلوب ولكنه فيه نقص شوي اي انه لم يراء العلاقات ثم يعيدها لولحظت جدول 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