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

طلبك هنا

اتفضل SearchRpt (2).rar

لو بحث في المنتدى لوجد ماتريد اتفضل راجع هذا الموضوع

العفو اخي الله يجعلها دعوه مستجابه ولك بالمثل

اخي الكريم رجعه من رقم الى نص فقط وتنهي المشكله اتفضل هذا حسب طلبك كامل test 10.rar

هذا لا يكرر السجل DoCmd.SetWarnings False DoCmd.RunSQL "INSERT INTO Team ( ID, Fullname, tel, Degree, class ) " & vbCrLf & _ "SELECT Students.ID, Students.Fullname, Students.tel, Students.Degree, Students.class " & vbCrLf & _ "FROM Students " & vbCrLf & _ "WHERE (((Students.ID)=[Forms]![Form]![Text0])) AND (((Students.ID) Not In (SELECT [Team].[ID] " & vbCrLf & _ "FROM [Team]; " & vbCrLf & _ ")));" DoCmd.SetWarnings True Me.Text0 = "" اما بالنسبه للصف سوف احاول فيه

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

اتفضل DoCmd.SetWarnings False DoCmd.RunSQL "INSERT INTO Team ( ID, Fullname, tel, class, Degree ) " & vbCrLf & _ "SELECT Students.ID, Students.Fullname, Students.tel, Students.Degree, Students.Degree " & vbCrLf & _ "FROM Students " & vbCrLf & _ "WHERE (((Students.ID)=[Forms]![Form]![Text0]));" DoCmd.SetWarnings True Me.Text0 = ""

اتفضل ضع هذا للكود في حدث DoCmd.RunSQL "INSERT INTO Team ( ID, Fullname, tel, class, Degree ) " & vbCrLf & _ "SELECT Students.ID, Students.Fullname, Students.tel, Students.Degree, Students.Degree " & vbCrLf & _ "FROM Students " & vbCrLf & _ "WHERE (((Students.ID)=[Forms]![Form]![Text0]));"

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

اتفضل اخي هذا حسب طلبك SearchRpt.rar

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

انا الان في الجوال ادخل على تصميم التقرير ثم البينات واعمل تحت اسم الصنف forms!اسم النموذج!اسم الحقل اللي فيه الصنف او انتظرني 20 دقيقه وبدخل من الاب توب

اتفضل اتمنى يكون المطلوب الجرد (2) (1).rar الجرد (2) (1) (1) (1).rar

اخي لازم تختار التاريخ انظر الصورة

بارك الله في الجميع

العفو اخي بارك الله في الجميع

شكرا اخي ايمن هذا الكود موجود لدي انا لسه بعالج فيه كيف يضيف اسماء الطابعات للجدول Dim strMsg As String Dim strTemp As String strTemp = GetPrinters() If Len(strTemp) = 0 Then Cancel = True strMsg = "No installed printers found." Else Me.prnt.RowSource = strTemp End If MySQL = "Delete * From pirent" CurrentDb.Execute (MySQL) Dim rst As DAO.Recordset Set rst = CurrentDb.OpenRecordset("Select * From pirent") For i = 1 To strTemp rst.AddNew rst!printerName = strTemp strTemp rst!Number = Nz(DMax("[Number]", "pirent") + 1, 1) rst.Update Next i rst.Close: Set rst = Nothing

العفو اخي ابو زاهر نعم بيكون اقل من الرصيد

واذا اردت الرصيد السالب لا يظهر اعمل عند الرصيد 0<

انا اخطات بتحميل الملف حمله مرة اخرى هذا الناتج اللي طلع عندي

حسب فهمي لسوال شوف المرفق الجرد (2).rar

لو تشرح بالصور ماهي النتيجه المطلوبه فهم السوال نصف الاجابه

اتفضل اخي qathi اتمنى يكون كما طلبت SearchRpt.rar

نعم اخي Shivan Rekany انا كنت حاولت فيها ولم اعرف اين المشكله ههههههههههه في النماذج فيها سر غامض