jjafferr

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

السلام عليكم شكرا انك اعطيتني الرابط لأصل المعادلة المعادلة التي ذكرتها انت غير صحيحة (لاحظ انه لا توجد مسافة قبل كلمة 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] جعفر

انا اعمل على برنامجك الآن ، ونسال الله التوفيق جعفر

تفضل ياسيدي 727.1.Database321.7777777.accdb.zip

اذا كان قصدك جمع الـ 57 حقل في الجدول Students_names لكل طالب: . فالاسهل هو عمل وحدة نمطية لجمع هذه الحقول (انا اسميتها Get_Total) ، ومناداة هذه الوحدة النمطية من الاستعلام ، بحيث نرسل لها اسم الطالب ، وتقوم الوحدة النمطية بقراءة قيم حقول الطالب وجمعها: . وهذه الوحدة النمطية: Function Get_Total(N) Dim T1 As Integer Dim T2 As Integer Set rst = CurrentDb.OpenRecordset("Select * From Students_names Where [الاسم]='" & N & "'") T1 = Nz(rst![year_Ar], 0) + Nz(rst![F1_Ar], 0) + Nz(rst![F2_Ar], 0) + Nz(rst![year_Eng], 0) + Nz(rst![f1_Eng], 0) _ + Nz(rst![f2_Eng], 0) + Nz(rst![year_F], 0) + Nz(rst![f1_F], 0) + Nz(rst![f2_F], 0) + Nz(rst![year_Goem], 0) _ + Nz(rst![f1_goem], 0) + Nz(rst![f2_goem], 0) + Nz(rst![year_Algeb], 0) + Nz(rst![f1_Algeb], 0) + Nz(rst![f2_Algeb], 0) _ + Nz(rst![year_Bio], 0) + Nz(rst![M_BIO1], 0) + Nz(rst![T_BIO1], 0) + Nz(rst![M_BIO2], 0) + Nz(rst![T_BIO2], 0) _ + Nz(rst![year_chem], 0) + Nz(rst![m_Chem1], 0) + Nz(rst![T_Chem1], 0) + Nz(rst![m_Chem2], 0) + Nz(rst![T_Chem2], 0) _ + Nz(rst![year_histo], 0) + Nz(rst![T_histo1], 0) + Nz(rst![T_histo2], 0) T2 = Nz(rst![year_phys], 0) + Nz(rst![m_phyis1], 0) + Nz(rst![T_phys1], 0) + Nz(rst![m_phyis2], 0) + Nz(rst![T_phys2], 0) _ + Nz(rst![year_Goeg], 0) + Nz(rst![T_Goeg1], 0) + Nz(rst![T_Goeg2], 0) + Nz(rst![year_philaso], 0) + Nz(rst![T_philaso1], 0) _ + Nz(rst![T_philaso2], 0) + Nz(rst![year_coump], 0) + Nz(rst![m_f1_coump], 0) + Nz(rst![T_f1_coump], 0) _ + Nz(rst![m_f2_coump], 0) + Nz(rst![T_f2_coump], 0) + Nz(rst![year_Relig], 0) + Nz(rst![f1_Relig], 0) + Nz(rst![f2_Relig], 0) _ + Nz(rst![year_nation], 0) + Nz(rst![f1_nation], 0) + Nz(rst![f2_nation], 0) + Nz(rst![year_field], 0) _ + Nz(rst![year_nashat], 0) + Nz(rst![f1_nashat], 0) + Nz(rst![f2_nashat], 0) + Nz(rst![year_Badnia], 0) _ + Nz(rst![f1_Badnia], 0) + Nz(rst![f2_Badnia], 0) Get_Total = T1 + T2 rst.Close: Set rst = Nothing End Function . ونتيجة الاستعلام: . جعفر 730.sec1_2017-08-04.mdb.zip

وعليكم السلام يالسيد صحيح ان مجموع احجام كائنات الاكسس FE و BE لا تتعدى 2 جيجا ، ولكن الوصول الى هذا الحد لبرنامج محل تجاري خلال 20 سنه سيكون شيء غريب (طبعا اذا كانت البرمجة صحيحة) للمقارنه فقط ، عملت برنامج شؤون موظفين لمؤسسة فيها اكثر من 4000 موظف ، منذ منتصف 2014 ، وهناك 4-6 اشخاص يعملون على ادخال البيانات يوميا ، وحجمه كالتالي (المساحة تقريبية): BE =ح 50 ميجابايت مجلد الصور الشخصية = 500 ميجا مجلد صور الملفات الشخصية = 110 جيجا وانت اعمل المقارنة جعفر

وعليكم السلام مثل ما قال اخي احمد ، وبالصورة . جعفر

وعليكم السلام نعم ، وهناك الكثير من المواضيع في المنتدى عن الصور ، ويمكنك استخدام خاصية البحث في المنتدى لرؤية هذه المواضيع واذا اردت مساعدة اضافيه في الصور ، وبما ان السؤال خارج عن الموضوع ، فرجاء عمل موضوع جديد له جعفر

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

وعليكم السلام اخي وضاح انت استخدمت كود غير اللي اقترحته انا ، لذا اخذ مني وقت!! انا قمت بتغيير عمل التظليل الى الطريقة الموجودة في الرابط الذي اعطيتك: أ. عملت حقل غير مضمن في النموذج الفرعي ، اسميته MYn1 ، والذي سيأخذ قيمة حقل البحث n1 والموجود في النموذج الفرعي ، MYn1 مخفي ، ويأخذ قيمة n1 لما تكتب الكلمة اللي تريد البحث عنها: Private Sub n1_Change() Dim x Me.[تابع132]![MYn1] = Me.n1.Text . ب. التنسيق الشرطي: 1.نختار جميع حقول النموذج الفرعي ، 2.من قائمة التنسيق ، نختار التنسيق الشرطي ، 3. الشرط هو: اذا [Rajmsanf]=[MYn1] إعمل التظليل: . والكود اللي عندك في حدث الحالي في النموذج الفرعي والذي كان يقوم بالتظليل ، تم ايقافه جعفر 727.Database321.7777777.accdb.zip

السلام عليكم سأستخدم عمل أخي شفان ، واقوم بالتعديل عليه في الجدول ، انا لم اغير نوع الحقل الى تاريخ ، وانما استعملت الامر CDate في استعلامات اخي شفان ، لتحويل النص الى تاريخ: . ولربط هذا الاستعلام (حقل Date هنا اصبح تاريخ) بالجدول (حقل Date لا يزال نص) ، فلا يمكن ربط الحقلين في استعلام ، لذا عملت استعلام qry_enterans_absent للجدول enterans_absent ، وفيه غيرت الحقل الى تاريخ ، وربطت الاستعلامين اعلاه في الاستعلام Q2 ، والذي يحتوي على النتائج المطلوبه جعفر 729.new work.accdb.zip

لم اجد سببا ، ولكني اوقفت الرسالة بهذا الكود في النموذج الفرعي: Private Sub Form_Error(DataErr As Integer, Response As Integer) If DataErr = 2448 Then Response = acDataErrContinue End If End Sub اعتقد بأنه عندك خطأ ما في الربط بين النموذج الرئيسي والفرعي ، فعلى الرغم من حفظ البيانات في النموذج الفرعي ، إلا انها لا تظهر لاحقا !! جعفر 728.Test_Backup.accdb.zip