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

اكبر الاخطاء بسبب الكلمات العربيه الحل في الاكواد لايقبل الفواصل فمثلا عربي عالمي تكون عربي _ عالمي

هل هذا يصلح معك احذف الكود الاول والصق هذا On Error GoTo MyErr If Me.Text0 = "" Then MsgBox " يجب ادخال رقم ", vbInformation, " رسـالـه " Else DoCmd.SetWarnings False DoCmd.RunSQL "INSERT INTO Team ( ID, Fullname, tel, Degree, class ) " & vbCrLf & _ "SELECT Students.ID, Students.Fullname, [ادخل رقم التلفون] AS Expr1, Students.Degree, Students.class " & vbCrLf & _ "FROM Students " & vbCrLf & _ "WHERE (((Students.ID)=[Forms]![Form]![Text0]) AND (([اعاده رقم التلفون ])=[ادخل رقم التلفون]));" MsgBox " تـم الـنـسـخ بـنـجـاح ", 48, " رساله : " Exit Sub MyErr: MsgBox " لم يتم النسخ يجب ادخال رقم التلفون ", vbInformation, " رسـالـه " DoCmd.SetWarnings True Me.Text0 = "" End If

اتفضل اخي النهر العطشان DoCmd.SetWarnings False DoCmd.RunSQL "INSERT INTO Team ( ID, Fullname, tel, Degree, class ) " & vbCrLf & _ "SELECT Students.ID, Students.Fullname, [ادخل رقم التلفون] AS Expr1, Students.Degree, Students.class " & vbCrLf & _ "FROM Students " & vbCrLf & _ "WHERE (((Students.ID)=[Forms]![Form]![Text0]) AND (([ادخل رقم التلفون]) Is Not Null));" DoCmd.SetWarnings True Me.Text0 = ""

اتفضل اخي رمهان رمهان.accdb

شكرا اخي على هذا الاطراء حسب فهمي لسوال اتفضل طلبك هذا هو الكود DoCmd.SetWarnings False DoCmd.RunSQL "INSERT INTO Team ( ID, Fullname, tel, Degree, class ) " & vbCrLf & _ "SELECT Students.ID, Students.Fullname, [ادخل رقم التلفون] AS Expr1, Students.Degree, Students.class " & vbCrLf & _ "FROM Students " & vbCrLf & _ "WHERE (((Students.ID)=[Forms]![Form]![Text0]));" DoCmd.SetWarnings True Me.Text0 = "" test25.rar

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

اتفضل من امس وانا افكر لك DoCmd.ApplyFilter "", "Left(Nz([ItemName],0),50) Like '*' & [Forms]![Sersh_F]![n1] & '*'"

بارك الله فيك وانت الاروع اخي

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

الى هنا تمام الان بقينا في التاريخ

كي نفهم هذة 4 / 12 * الكلفة * نسبة الاهلاك نرجو تسميتها بسمها بالجدول فستكون 4 / 12 * الكلفة * نسبة الاهلاك كيف نعرف تاريخ الشراء هذة معادله وليس لحقل واحد فيها تاريخ شراء شهر واحد وفيها شهر 3 وفيها شهر اربعه فلابد لها معرفه كيف تقسمها ربنا يحفظه ويطول بعمرة ويجعل كل ما يبذله في ميزان حسناته

في هذه الحاله لايقبل التكرار لانه سوف يكون قد حذف من الجدول السابق اليك الكود بما طلبت حذف ونقل 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]));" DoCmd.RunSQL "DELETE Students.ID, Students.Fullname, Students.tel, Students.Degree, Students.class " & vbCrLf & _ "FROM Students " & vbCrLf & _ "WHERE (((Students.ID)=[Forms]![Form]![Text0]));" DoCmd.SetWarnings True Me.Text0 = ""

استاذي ابوخليل لوكنت عرفت التسميات كنت فعلتها ولكني انا كمان اجهل التسميات ارجو ان تعذرني اظن الاخ حربي العنزي هو يعرف التسميات

بالتوفيق اخي

اخي عربي عالمي هل شفت المرفق اللذي ماشر عليه يمكن التعديل فيه واللذي لم ياشر لايمكن تعدل فيه اذا كان قصدك لا تريد سوء عمليه التحديد فسيكون هكذا كما يقال فهم السوال نصف الاجابه [نوع وموديل السيارة].Locked = True [استخدام سيارة].Locked = True [الدرجة].Locked = True [المرتبة].Locked = True [القسم].Locked = True [الوظيفة].Locked = True [رقم الهوية].Locked = True [الاسم].Locked = True

اتفضل ضع هذا الكود في النوذج في حدث الحالي If Me.تدقيق23 = -0 Then [نوع وموديل السيارة].Locked = True [استخدام سيارة].Locked = True [الدرجة].Locked = True [المرتبة].Locked = True [القسم].Locked = True [الوظيفة].Locked = True [رقم الهوية].Locked = True [الاسم].Locked = True Else [نوع وموديل السيارة].Locked = False [استخدام سيارة].Locked = False [الدرجة].Locked = False [المرتبة].Locked = False [القسم].Locked = False [الوظيفة].Locked = False [رقم الهوية].Locked = False [الاسم].Locked = False End If وهذا ملفك برنامج بحث مختصر 22-1-1440--30-15.rar

بارك الله فيه استاذي الجليل وجعله الله في ميزان حسناتك ياليت لو كان في تسميات توضيحيه للحقول كي يستفيد منها الكل ولدي ملاحظه في الرقم التسلسلي كلها برقم صفر وبعد اذنك استاذي ابوخليل اضفت للكود هذا rs2!ID = Nz(DMax("[ID]", "TBL2") + 1, 1) فصار بهذا الشكل Dim db As DAO.Database Dim rs1 As DAO.Recordset Dim rs2 As DAO.Recordset Dim jk, ct, thr Dim i, ii, j As Integer Set db = CurrentDb Set rs1 = db.OpenRecordset("TBL1") Set rs2 = db.OpenRecordset("TBL2") rs1.MoveLast rs1.MoveFirst DoCmd.SetWarnings False DoCmd.RunSQL "DELETE TBL2.* FROM TBL2" DoCmd.SetWarnings True For ii = 1 To rs1.RecordCount j = DateDiff("yyyy", rs1!FirstDate, "31/12/" & Year(Date)) ct = rs1!Cost For i = 1 To (j + 1) If i = 1 Then vdate = rs1!FirstDate If Month(rs1!FirstDate) <> 12 Then jk = Month(rs1!FirstDate) / 12 thr = (rs1!Cost * rs1!IndtharRute) * jk Else jk = 1 thr = (rs1!Cost * rs1!IndtharRute) * jk End If End If rs2.AddNew rs2!ID = Nz(DMax("[ID]", "TBL2") + 1, 1) rs2!PrvtCode = rs1!PriavetCode rs2!ShopDate = vdate rs2!t_year = Year(vdate) rs2!t_month = Month(vdate) rs2!Cost2 = rs1!Cost rs2!EndtharYear = (rs1!Cost * rs1!IndtharRute) * jk rs2!End = thr rs2!Rasid = ct - thr rs2!BookValue = thr rs2.Update thr = thr + rs1!Cost * rs1!IndtharRute vdate = "31/12/" & (Year(vdate) + 1) jk = 1 Next i rs1.MoveNext Next ii MsgBox "تم" Set db = Nothing Set rs1 = Nothing Set rs2 = Nothing

العفووو اخي الحمدلله اللذي بفضله تتم النعم

بعد اذن الاخ ابو عارف اتفضل هذا بالتسلسل تقرير.zip

اخي هو لا يتحول الى exe لازم تعمله accdb وبعدها تعمله اختصار

اتفضل هذا حسب طلبك انظر للمرفق شرط.accdb

اخي الفاضل لم افهم قصدك ولكن الكود لازم يكون بهذا الشكل If Forms![InvoiceHF]![InvoiceTF]!QAvilable = 0 Then MsgBox "الصنف الذي تريد اضافتة منتهي من المستودع" End If Forms![InvoiceHF]![InvoiceTF]!QSold.SetFocus

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

لا اخي انا كمان رسلت لك الكود الاول انا كنت اقصد هذا On Error Resume Next DoCmd.SetWarnings False Dim Q As Recordset 'هذا الكود يلغي الخفظ التلقائ عند التراجع و' Set Q = CurrentDb.OpenRecordset("SELECT * from AJRD;") While Not Q.EOF If Q!Xsave = False Then Q.Delete End If Q.MoveNext Me.frm_JRD_Sub.Requery Me.Refresh Wend DoCmd.SetWarnings True Me.Refresh

انا لم اجربه ولكن اظنه اسمح لاني لو لحظت انا اضفت فيه مجلد +برنامج ماكان فيه اي مشكلة