jjafferr

السلام عليكم اخي وضاح تفضل هذا المرفق: . جعفر 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 ، مرة لجزء من الكلمه ، ومره للكلمه الكامله. جعفر

انت تجري الاستعلام في الكود ، وانا محتاج ان ارى بقية الكود حتى احكم على صحته ، ولكنه ، يبدو صحيحا ، لأنه لا يحتوي على * (الشيء الذي يجب التاكد منه هو علامات & ومدى حاجتها) جعفر

طيب بالنظر الى الصورة: . انت هنا لم تعمل تصفية لسجلات النموذج ، وانما قمت بتظليل السجل الذي يطابق البحث ، ولكن تصور انه عندك سجلات كثيرة مثل 1000 سجل وتريد ان تطبق عليها الطريقة هذه ، والسجل المطابق موجود في اسفل السجلات رقمه 900 ، والذي هو ليس ظاهر على الشاشة ، وطريقة الوصول الى هذا السجل يكون بأن تسحب السجلات الى اسفل لترى هذا السجل المظلل !! هل هذا بالفعل الذي تريده !! بينما طريقتك فيها تصفية سجلات ، وتظليل. جعفر

تستطيع ارفاق الملفات التي بصيغة: zip, rar, jpg, gif, bmp, png جعفر

وعليكم السلام البحث عن جزء من الكلمة LIKE "*" & Forms![frm_Main]![mySearch] & "*" بينما البحث عن الكلمة الكامله (مثل الكلمه الموجودة في مربع السرد Forms![frm_Main]![mySearch] جعفر