jjafferr

حياك الله

تفضل وهذا الكود الذي يقوم بتنفيذ حركة زر السهم الى اعلى والى اسفل: Public Sub Form_KeyDown(KeyCode As Integer, Shift As Integer) On Error GoTo err_Form_KeyDown temp_MYn1 = Me.sfrm_Search!MYn1 Select Case KeyCode Case vbKeyDown Me.sfrm_Search!MYn1 = 0 Me.sfrm_Search.Form.RecordsetClone.MoveNext Me.sfrm_Search!MYn1 = Me.sfrm_Search.Form.RecordsetClone!Rajmsanf KeyCode = 0 Case vbKeyUp Me.sfrm_Search!MYn1 = 0 Me.sfrm_Search.Form.RecordsetClone.MovePrevious Me.sfrm_Search!MYn1 = Me.sfrm_Search.Form.RecordsetClone!Rajmsanf KeyCode = 0 End Select Exit_Form_KeyDown: Exit Sub err_Form_KeyDown: If Err.Number = 2113 Or Err.Number = 3021 Then Me.sfrm_Search!MYn1 = temp_MYn1 Resume Exit_Form_KeyDown Else MsgBox Err.Number & vbCrLf & Err.Description End If End Sub جعفر 727.4.الاستاذ جعفر.accdb.zip

عفوا ، لم انتبه ان الكود عندك Public فانا وضعته Private استخدم هذا الكود ، بعد ان تم تعديله بإستخدام Public بدلا عن private Public Declare PtrSafe Function apiShowWindow Lib "user32" Alias "ShowWindow" (ByVal hwnd As Long, ByVal nCmdShow As Long) As Long جعفر

تفضل رجاء ملاحظة اني استخدمت نفس طريقة مشاركتي الاولى: ولكن بإستخدام هذا الكود ، الذي يبحث اول سجل مطابق لحقل البحث n2 ، ومنه نأخذ قيمة الحقل Rajmsanf ونعطيها الحقل MYn1 ، حتى يتم تطابق قيم الحقلين ، وعليه يعمل التنسيق الشرطي: ' Dim rst As DAO.Recordset ' Set rst = Me.sfrm_Search.Form.RecordsetClone ' rst.FindFirst "[Rajmsanf] like '" & Me.n2.Text & "*'" ' If rst.NoMatch Then ' Me.sfrm_Search!MYn1 = 0 ' Else ' Me.sfrm_Search!MYn1 = rst!Rajmsanf ' End If ' rst.Close: Set rst = Nothing 'or Me.sfrm_Search.Form.RecordsetClone.FindFirst "[Rajmsanf] like '" & Me.n2.Text & "*'" If Me.sfrm_Search.Form.RecordsetClone.NoMatch Then Me.sfrm_Search!MYn1 = 0 Else Me.sfrm_Search!MYn1 = Me.sfrm_Search.Form.RecordsetClone!Rajmsanf End If . والنتيجة . في اعتقادي ان هذا الموضوع اصبح مرجع لتظليل/تلوين السجلات حسب قيمة البحث ، باستخدام التنسيق الشرطي ، واتمنى ان احصل على وقت لكي افرد له موضوع خاص وبشرح مفصل لكل طريقة تم استعمالها (او يقوم احد الاعضاء بهذا العمل مشكورا) جعفر 727.3.الاستاذ جعفر.accdb.zip

السلام عليكم اخي وضاح تفضل هذا المرفق: . جعفر 727.2.الاستاذ جعفر.accdb.zip

جرب هذا السطر بدلا عن الذي عندك Private Declare PtrSafe Function apiShowWindow Lib "user32" Alias "ShowWindow" (ByVal hwnd As Long, ByVal nCmdShow As Long) As Long جعفر

السلام عليكم الطريقة الاصح هي حفظ البيانات اولا ، ثم تحديثها في النموذج الآخر ، وخصوصا اذا كنت تدخل البيانات في نموذج فردي if me.dirty then me.dirty=false 'or 'docmd.RunCommand acCmdSaveRecord 'or 'me.refresh 'or 'me.requery Forms!form1!cboStudnts.requery ثم كود اغلاق النموذج رقم اثنين . جعفر

السلام عليكم نظرا لأني وجدت الكثير من المواضيع والتي لم تتعامل مع الاستعلام مباشرة ، وانما تم اللجوء الى الكود لعمل الاستعلام ، فقررت ان اواصل هذا المثال ، وللعلم ، فإن الاستعلام الثابت يعمل بطريقة اسرع من استعلام الكود. الطلب كان: 1. عندما نجمع جميع الحقول في حقل واحد (بدون تشكيلة) ، فكيف نستطيع ان نختار من القائمة اسم حقل معين ، ويتم البحث فيه فقط؟ 2. بدون عمل جدول جديد "نجمع جميع الحقول في حقل واحد (بدون تشكيلة)" ، هل نستطيع استعمال الجدول الحالي والذي يحتوي على التشكيلات ، ونبحث بدون تشكيلة؟ 3. البحث المتطابق للحقل (وليس للكلمة)؟ النقطة 1 و 2 ، في الاستعلام ، تم عمل اكواد تصفية ، حسب الطلب في النموذج. في النموذج ، زر "بحث" يستعمل الاستعلام qry_Search والذي يستخدم النوع الاول ، واما زر "بحث مباشر وبدون tbl_txt" ويستعمل الاستعلام qry_Search2 والذي يستخدم النوع الثاني جعفر 643.1.7-5-2017 بحث الفوائد بقائمة منسدلة.accdb.zip

وعليكم السلام حيا الله اخوي سامي هاي سهله ، عند غلق النموذج 2 ، اكتب هاي الكود Forms!form1!cboStudnts.requery ثم كود اغلاق النموذج رقم اثنين جعفر

السلام عليكم الاستاذ محمد صالح عمل برنامج مثل الذي عملته انت: جعفر

أخي شامل انت ابدأ المشوار وحاول ، واذا علقت ، فنحن نساعدك ان شاء الله جعفر

شكرا أخي ابو زاهر على الملاحظة وشكرا اخي حيدر على اتخاذ اللازم ولما اخلص اللي في يدي ، اعود لموضوعك أخي وضاح جعفر

تفضل برنامج اخي صالح ، تم رفعه بعد ضغطه كما طلبت جعفر تحت انشاء.zip

وعليكم السلام مثلا اسم الزر الاول cmd_1 ، واسماء الازرار الاخرى cmd_2 و cmd_3 ، على حدث النقر على الزر cmd_1 ، ضع هذا الكود cmd_2.Enabled = Not cmd_2.Enabled cmd_3.Enabled = Not cmd_3.Enabled جعفر

وعليكم السلام قد تستفيد من هذا الرابط: جعفر

السلام عليكم شكرا انك اعطيتني الرابط لأصل المعادلة المعادلة التي ذكرتها انت غير صحيحة (لاحظ انه لا توجد مسافة قبل كلمة LIKE) ، والتي استغربت منها ، واصل المعادله من https://www.officena.net/ib/topic/79144-عمل-كمبوبوكس-لأختيار-حقل-البحث/?do=findComment&comment=508091 . لهذا السبب اردت ان احصل على كود SQL الاستعلام ، بالخطوات التي طلبتها منك. والآن اواصل الحديث عن طلبك في "معيار مطابقة كلمة البحث" ، فأرى ، وتسهيلا للأمور ، بحيث لا تغير اي شيء في المعادلات ، بأن تستعمل الاختيار الثاني لهذا الاختيار كذلك: . جعفر

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

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

تفضل 732.Database1.accdb.zip

وعليكم السلام البحث في المنتدى انتج: جعفر

tb5 name rmz pasword الأستاذ شفان ريكاني 1 وضاح النوبه أبو حمزه 123

وعليكم السلام تفضل جرب هذا الكود Private Sub Gender() If Len(Me.aziz & "") <> 0 Then Exit Sub If Left(Me.code, 1) = 1 Then Me.aziz = "ذكر" Else Me.aziz = "أنثى" End If End Sub Private Sub code_AfterUpdate() Call Gender End Sub Private Sub Form_Current() Call Gender End Sub . ويعمل كالتالي (يجب ان يكون حقل الجنس فارغ لكي تعمل الطريقتين): 1. اذا كتبت الرقم القومي ، وعند حدث "بعد التحديث" سيعمل الكود ويعبأ الخانه ، 2. اذا انتقلت من سجل الى آخر ، وحدث "الحالي" سيعمل الكود ويعبأ الخانه على فكرة ، حقل aziz يجب تكبيره في الجدول ليأخذ 4 حروف بدلا من 3 جعفر

السلام عليكم الرابط التالي غني بمعلومات لا تُرى عادة ، وجميل ان تقرأ الموضوع بالكامل ، وطلبك موجود بمرفق فيه: جعفر

اخي الفاضل جرب التالي في برنامجك الاصلي: اعمل فاتورة جديدة (مثلا 884385) في الجدول Sales ، الان ابحث عنها في النموذج srch ، برنامجك الذي عندي ، لم يحصل عليها !! هذا معناه ان برنامجك الاصل لا يبحث في الجدولين ، وانما يبحث في الجدول table1 فقط على العموم ، بكرة الصباح اواصل العمل على برنامجك ، ومن الله التيسير جعفر

رجاء تعمل التالي: 1. اضف السطر الثالث الكود If fild_sear = "tout" Then sql_search = "SELECT * FROM .... debug.print sql_search 2. اتبع الخطوات التالية ، 1 و 2 ، وستلاحظ ان النافذه رقم 3 تم فتحها . 3. ارجع الى النموذج واختار tout 4. ارجع الى صفحة الكود ، ستلاحظ انه في النافذة رقم 4 (انظر الصورة اعلاه) ، سترى ان هناك كود تم كتابته ، اعمل له نسخ والصقه لنا هنا. اعمل الخطوات 3 و 4 ، مرة لجزء من الكلمه ، ومره للكلمه الكامله. جعفر