نجوم المشاركات

السلام عليكم ورحمه الله وبركاته وبها نبدأ تفضل ضع هذا الكود في حدث الشيت المطلوب Private Sub Worksheet_Change(ByVal Target As Range) Dim X As Range Application.EnableEvents = False For Each X In Target If X.Row > 3 Then If X.Column = 2 Then If X.Value = "ok" Then X.Offset(0, -1).Value = Date ElseIf X.Column = 3 Then If X.Offset(0, -1).Value = "ok" Then X.Offset(0, 1).Value = X End If End If Next X Application.EnableEvents = True End Sub

لاتحتاج لمربع تحرير وسرد في حقل الفلتر غيرت تسمية Filter لانها محجوزة في الاكسس العربية.rar

السلام عليكم رفع الصور للتوقيع غير متاح حاليا كي لا يؤثر على سرعة التصفح

تفضل اخي الكريم New Microsoft Excel Worksheet.xlsx.rar

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

جرب كده ................................... Forms![frmZetMotor].btnsave.Caption = "update" Forms![frmZetMotor].btndelete.Enabled = True Forms![frmZetMotor].btnNew.Enabled = True Forms![frmZetMotor].CodeZet = Me.CodeZet Forms![frmZetMotor].CodeSayara = Me.CodeSayara Forms![frmZetMotor].KM = Me.KM Forms![frmZetMotor].NumKM = Me.NumKM Forms![frmZetMotor].OilType = Me.OilType Forms![frmZetMotor].Cost = Me.Cost Forms![frmZetMotor]!Filter = [Forms]![frmZetMotor]![subqryLastRecordZM].[Form]![Filter] Forms![frmZetMotor].DateChange = Me.DateChange Forms![frmZetMotor].DateRigster = Me.DateRigster

لماذا لم تعملها كبقية الفلترة ؟ عقاري.rar

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

تفضل استاذنا @أبو امين . RapportQ-2_3.rar

جاري العمل .

سيتم النقل لقسم الملاحظات والمقترحات راجع الان

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

test-17-05-2023.xlsm

سوف نطبق الطريقة على جدول EMPLOYEES1 انشئ موديول جديد و الصق فيه الشفرة التالية *** للعلم الشفرة سوف نستخدمها لجميع الجداول الاساسية Public Function TransData(TABLE1 As String, TABLE2 As String) Dim SetSql As String SetSql = "INSERT INTO " SetSql = SetSql & TABLE2 SetSql = SetSql & " SELECT * FROM " SetSql = SetSql & TABLE1 DoCmd.RunSQL SetSql End Function للتنفيذ ضع اسم الجدول الاساسي ثم اسم الجدول الجديد الذي سيتم نقل البيانات عليه Call TransData("EMPLOYEES1", "EMPLOYEES") تفضل المثال الخاص بك و التنفيذ من خلال نموذج Data.rar

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

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

حاولت مرارا ان اعمل توقيع مع احضار صور بنفس الامتدادات المطلوبة في التعليمات الظاهره ولكن لا يقبل فلقد وضعت صورة بامتداد jpg وابعادها 335*474 افيدوني اثابكم الله