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

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

بل الشكر لله ثم لك بارك الله فيك وأعذرنى فمازال مستواى متواضعا أ جعفر بارك الله فيك اسمح لى في مزيد كرمك أود من حضرتك مشكورا بإجابة رجائين 1- كيف اتخلص من الرسالة التى تظهر بعد ضغط زر البحث كما تظهر بالصورة. 2- أن تفيدنى بإفادة شافية كافية في موضوعى المهم وهو تقريبا من أخر ما تبقى لى على هذا الرابط فلن اجد أفضل منك فى هذا المضمار كما ارجو ألا تطيل على الانتظار بارك الله فيك ونفعنا بعلمك وعملك وشكرا جزبلا لكم

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

وعليكم السلام تفضل جرب هذا الكود 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 جعفر

رجاء تعمل التالي: 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 ، والذي هو ليس ظاهر على الشاشة ، وطريقة الوصول الى هذا السجل يكون بأن تسحب السجلات الى اسفل لترى هذا السجل المظلل !! هل هذا بالفعل الذي تريده !! بينما طريقتك فيها تصفية سجلات ، وتظليل. جعفر

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

انت لم تشر الى هذه النقطة من البداية ، فكل عملي كان على عمل استعلام يربط الجدولين برقم الفاتورة ، وهذا معناه انه اذا الفاتورة غير موجودة في احد الجداول ، فانها لن تظهر في الاستعلام!! طيب ، هناك حل بسيط لهذه النقطة ، ولكن بشرط اذا كان هناك جدول واحد يحتوي على جميع الفواتير والجدول الآخر لا يحتوي على جميع الفواتير ، فهل جداولك كذلك ، واذا الجواب نعم ، فأي الجداول تحتوي على جميع الفواتير؟ جعفر

المعادلات لا تقوم بتنسيق الخلايا من الوان وخط ... الخ (فقط الكود او التسيق الشرطي) ربما تستطبع الاعتماد على هذا النموذج Tarikh.rar

السلام عليكم دالة استخراج تاريخ الميلاد او النوع او المحافظة من الرقم القومي ثلاثة معطيات بدالة واحدة Option Explicit ' بسم الله الرحمن الرحيم ' ******************** ' دالـــــــــــــــة ' Kh_Date_Sex_Province ' ( استخراج تاريخ الميلاد او النوع (ذكر - انثى ' او المحافظة من الرقم القومي '============================================== ' MyTest ' اذا كانت = 1 تقوم باستخراج تاريخ الميلاد ' اذا كانت = 2 تقوم باستخراج النوع ' اذا كانت = 3 تقوم باستخراج المحافظة '---------------------------------------------- ' MyProvinces في متغير الجدول ' العمل لم يستكمل بعد ' يمكنك إضافة المحافظات الاخرى الغير موجودة ' او تعديل الموجود في حالات الخطأ ' بنفس الطريقة الرقم اولا ثم "/" ثم اسم المحافظة ' : مثال على ذلك ' "01/القاهرة" '============================================== '----------------------------------------------------------------- Function Kh_Date_Sex_Province(MyNumber As Variant, MyTest As Byte) Dim MyProvinces As Variant Dim r As Integer Dim yy As String Dim ty As String * 1 Dim d As String * 2, m As String * 2, y As String * 2 _ , x As String * 2, xx As String * 2 '============================================== ' يمكنك إضافة المحافظات الاخرى الغير موجودة ' او تعديل الموجود في حالات الخطأ MyProvinces = Array("01/القاهرة", "02/الإسكندرية", "12/الدقهلية", "13/الشرقية" _ , "14/القليوبية", "15/كفر الشيخ", "16/الغربية", "17/المنوفية", "18/البحيرة" _ , "19/الإسماعيلية", "21/الجيزة", "22/بني سويف", "24/المنيا", "25/أسيوط" _ , "26/سوهاج", "27/قنا", "28/أسوان", "29/الأقصر", "33/مطروح") '============================================== Kh_Date_Sex_Province = "" On Error GoTo 1 If Len(Trim(MyNumber)) = 0 Then GoTo 1 End If If Not IsNumeric(MyNumber) Or Len(MyNumber) <> 14 Then Kh_Date_Sex_Province = "Error_MyNumber" GoTo 1 End If If MyTest = 1 Then d = Mid(MyNumber, 6, 2) m = Mid(MyNumber, 4, 2) y = Mid(MyNumber, 2, 2) ty = Left(MyNumber, 1) Select Case ty Case "2": yy = y Case "3": yy = "20" & y Case Else: yy = "" End Select If yy <> "" Then Kh_Date_Sex_Province = DateSerial(yy, m, d) ElseIf MyTest = 2 Then If Left(Right(MyNumber, 2), 1) Mod 2 = 1 Then _ yy = "ذكر" Else yy = "انثى" Kh_Date_Sex_Province = yy ElseIf MyTest = 3 Then x = Mid(MyNumber, 8, 2) For r = LBound(MyProvinces) To UBound(MyProvinces) xx = MyProvinces(r) If x = xx Then Kh_Date_Sex_Province = Right(MyProvinces(r), Len(MyProvinces(r)) - 3) Exit For End If Next End If 1: End Function بالنسبة لمعطيات المحافظات لم تستكمل بعد ويمكنك اضافة المحافظات المتبقية حسب ما شرحت بالكود خبور خير دالة استخلاص تاريخ الميلاد و النوع و المحافظة من الرقم القومي.rar

بالعكس استاذي الا عملته تشكر عليه شي كثير جدا اخي هذا تم بفضل الله ومساعده الأستاذ شفان ريكاني اما انا مبتدي انا أستاذ اخذ الخبره منك ومنك الاستاذه بالمنتدي فانتم التاج على روسنا

ما عملت شي اخي العزيز هذا من حسن ظنك بي اللي عملت هو اللي لازم علي ان اعمل واسف على كل تقسير تحياتي