jjafferr

تفضل 🙂 لا نستخدم الزر ، وانما نستخدم زر مسك الفأرة : Private Sub Form_MouseUp(Button As Integer, Shift As Integer, X As Single, Y As Single) 'https://stackoverflow.com/a/1670110 'https://stackoverflow.com/a/18793073 'Me.SelHeight = to specify or determine the number of selected rows 'Me.SelTop = to specify or determine which row (record) is topmost in the current selection Dim i As Integer Dim rst As dao.Recordset Set rst = Me.RecordsetClone If Me.SelHeight = 0 Then Exit Sub rst.MoveFirst ' Move to the first selected record. rst.Move Me.SelTop - 1 'its slow to refresh, so don't show it Me.Painting = False For i = 1 To Me.SelHeight rst.Edit rst![MOVEX] = -1 rst.Update rst.MoveNext Next i Me.SelHeight = 0 'unSelect the Records Me.Painting = True 'show the Records values End Sub جعفر 1423.select.accdb.zip

وعليكم السلام 🙂 استخدم هذا الكود للحقول المختارة: UPDATE TAB SET TAB.MOVEX = -1 WHERE ((Not (TAB.MOVEX)=[Forms]![FRM2]![MOVEX])); ويمكنك استخدام UPDATE TAB SET MOVEX = -1 WHERE Not MOVEX=[Forms]![FRM2]![MOVEX] وفي صيغة الكود CurrentDb.Execute "UPDATE TAB SET MOVEX = -1 WHERE Not MOVEX=" & [Forms]![FRM2]![MOVEX] جعفر

برنامجك يقوم بهذا العمل. وللأسف ما فهمت المطلوب !! جعفر

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

هذا معناه انك ما تريد توصيل حالي ، وما مستعجل 😁 جعفر

محتاج توضيح اكثر عن العمل لوسمحت ، لأن ظاهر العمل هنا نسخ بيانات من جدول الى آخر !! جعفر

حياالله من يانا وجاب طارينا 🙂 الله يسلمك انت لم تحدد طريقة الاستلام ، وعليه نحدد طريقة الارسال ، واذا قلبك قوي ، ممكن يصلك حالا (ولقد اعذر من انذر) 😲😬 جعفر

السلام عليكم اخي السيد 🙂 اليس من الجميل ان يرى بقية الاعضاء طريقة حل مشكلتك ، حتى يستفيدوا منها كذلك ، فهذا ما يقوم عليه المنتدى ، تبادل الافكار والحلول 🙂 لهذا السبب ، من قوانين المنتدى: اضغط هنـــــــــامن فضلك لقراءة القواعد كاملة المحظورات 21. يُمنع منعا باتا الإجابة على سؤالك أو أي حوار فني على الخاص أو إلى بريدك الخاص، الفائدة يجب أن تعم. يجب عدم الاستجابة لأي طلب على الخاص. كما يمنع ذكر وسائل التواصل الخاص أو البريد الإليكتروني في المشاركات لتعم الفائدة. وسيتم حذف وسائل التواصل أو البريد حال إضافتها. اما بالنسبة لحجم المرفق ، فيمكنك عمل ضغط واصلاح لبرنامجك ، ثم استعمال برنامج ضغط winrar او winzip او 7z لضغط البرنامج ، ثم ارفاقه هنا ، او رفعه على احد مواقع رفع الملفات ، وتوضع لنا رابط تنزيل الملف 🙂 جعفر

السلام عليكم 🙂 وهنا ستجد طرق اخرى جعفر

السلام عليكم 🙂 ما شاء الله ، عمل جميل 🙂 جعفر

تجارب جميلة 🙂 جعفر

🙂

العفو اخي الكريم ، لا يوجد داعي للإعتذار 🙂 وشكرا جزيلا لتجوابك 🙂 وسيتم نقل المرفق الى المشاركة الاصلية 🙂 جعفر

متابع 🙂

شكرا اخوي ناقل 🙂 وهذا هو الرابط جعفر

وعليكم السلام 🙂 فتحت النموذج ، ولم افهم طلبك !! رجاء التوضيح بمثال لوسمحت 🙂 جعفر

حياك الله 🙂 من وين جابوا سالفة الدكتور هاي 🤔 ليكون انا صدق دكتور وانا ما ادري 🤭

وعليكم السلام ورحمة الله وبركاته 🙂 اهلا وسهلا بك في المنتدى 🙂 للإستفادة القصوى من المنتدى ، رجاء قراءة قوانين المنتدى : اضغط هنـــــــــامن فضلك لقراءة القواعد كاملة بالنسبة الى سؤالك: جرب هذا الكود (الغير مجرب) : 'ID = "رقم البطاقة" 'iDate = "تاريخ الانتساب" 'tbl = اسم الجدول dim rst as dao.recordset dim inc as long set rst=currentdb.openrecordset("Select ID, iDate From tbl Order By iDate") rst.movefirst inc= 450000 'Forms!frm123!initial_Number do until rst.eof inc = inc + 1 rst.edit rst!ID = inc rst.update rst.movenext loop rst.close: set rst=nothing msgbox "Done" . ولكن رجاء اعمل نسخة من جدولك قبل تجربة الكود 🙂 جعفر

يجمع ايش؟ لهذا السبب اردت مثال لوسمحت بالنتيجة المطلوبة 🙂 جعفر

السلام عليكم 🙂 شكرا على ارفاقك الفيديو 🙂 ولكن وبسبب عدم وجود المرفق هنا ، او اي مادة اخرى يستفيد منها الاعضاء للنقاش ، فالمنتدى يعتبر هذه مادة اعلانية/دعائية ، وسيتم نقلها الى القسم قنوات تعليمية شخصية و دورات تدريبية مجانية و مدفوعة هذا ينطبق على الفيديوهات السابقة لهذا الموضوع !! اما اذا اردت ابقاء الموضوع في هذا القسم من المنتدى ، فرجاء ارفاق مرفق 🙂 واذا اردت مساعدة من فريق العمل لإرفاق المرفق ، فرجاء تخبرنا 🙂 جعفر

وعليكم السلام 🙂 اذا رأيت انه لم يتم الرد على سؤالك لمدة ، وخصوصا ان مرات القراءة اكثر من 20-30 ، فأعلم ان سؤالك غير مفهوم 🙂 1. رجاء ان تعطينا مثال للنتيجة التي تريدها ، بمثال على الاكسل او الوورد او صورة ، من البيانات الموجودة في مرفقك ، فلا اعرف ما معنى 2. انا الله يسلمك ، مو دكتور ، جعفر وبس (طبعا هذا اذا كنت قاصدني 🙂) . جعفر

السلام عليكم 🙂 لا يمكن تصفية مربع التحرير إلا من حقل واحد ، لذا ، سنستخدم حيلة في انه اذا القيمة غير موجودة في الحقل ، فنستخدم الكود التالي لجلب القيمة المطلوبة: Option Compare Database Option Explicit Private Sub idbf_NotInList(NewData As String, Response As Integer) Dim ctlList As Control, i As Integer ' Return Control object variable pointing to list box. Set ctlList = Me.idbf ' Enumerate through selected items. For i = 0 To ctlList.ListCount - 1 If ctlList.Column(2, i) = NewData Then ctlList.Value = CInt(ctlList.Column(0, i)) Me.fo.SetFocus GoTo Get_Out End If Next MsgBox "هذه القيمة غير موجودة في القائمة" Get_Out: Response = acDataErrContinue End Sub . جعفر Combo_value_from_another_column.zip

يعني تريد اظهار قيم fo ، بشرط انها تكون موجود في الحقل bo كذلك ؟

وعليكم السلام 🙂 استعمل استعلام union ، بحيث من اول استعلام يظهر لك قيمة الحقل fo ، والاستعلام الآخر يظهر لك قيمة الحقل bo ، وتجمع الاستعلامين في استعلام union 🙂 االشرط الوحيد في استعلام union هو ان يكون عدد حقول الاستعلامات فيه ، نفسها ، يعني كل استعلام يظهر نفي عدد الحقول ، وهذا الاستعلام لا يميز بين نوع الحقول ، فتستطيع دمج حقل النص مع حقل الرقم مع حقل التاريخ ... جعفر

السلام عليكم 🙂 حيا الله اخوي حربي 🙂 ادارة الموقع وضعت قانون خاص بك 🙂 اضغط هنـــــــــامن فضلك لقراءة القواعد كاملة 13. - يمنع وضع السؤال داخل المرفق، يجب شرح السؤال بالتفصيل لتعم الفائدة، ولا مانع من اضافة صورة توضيحية جعفر