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

عند التحميل او عند الفتح الخيار لك ضع هذا الكود Me.صفحه2.Visible = False

اخواني الافاضل لدي موقع ارسال رسائل وانا مشترك فيه فاستاذي الفاضل أبو إبراهيم الغامدي عملي نموذج يفتح صفحه الموقع ما اريده هو كيف يتم فتح الموقع على نافذة الرسائل او على مربع الرسايل land.sms.accdb

العفووو اخي

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

هل هذا يصلح معك احذف الكود الاول والصق هذا 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