كل الانشطه

الف شكر اخى العزيز عمل جيد و جزاك الله خيرا شكرا جزيلا 🙂

تفضل ................. EL-DATA.accdb

المقارنة !!!!!!!! نعم ولو حذفناها تبقى النتيجة للقيم السالبة في الشرط بتلوينها باللون الأحمر

انت مش قلت ما ينفعش يا عم انت يلا ارفع واشوت دى امثله للتوضيح Public Sub TestInStrFunction() Dim strText As String Dim strSearch As String Dim intStart As Integer Dim intResult As Integer Debug.Print String(70, "=") Debug.Print "اختبار دالة InStr" Debug.Print String(70, "=") ' الحالة 1: البحث عن حرف موجود من البداية strText = "Mohesam" strSearch = "a" intStart = 1 intResult = InStr(intStart, strText, strSearch) Debug.Print "الحالة 1: InStr(" & intStart & ", """ & strText & """, """ & strSearch & """) = " & intResult ' الحالة 2: البحث عن حرف موجود بعد الموضع الابتدائي intStart = 4 intResult = InStr(intStart, strText, strSearch) Debug.Print "الحالة 2: InStr(" & intStart & ", """ & strText & """, """ & strSearch & """) = " & intResult ' الحالة 3: البحث عن حرف غير موجود strSearch = "z" intStart = 1 intResult = InStr(intStart, strText, strSearch) Debug.Print "الحالة 3: InStr(" & intStart & ", """ & strText & """, """ & strSearch & """) = " & intResult ' الحالة 4: البحث في سلسلة فارغة strText = "" strSearch = "a" intResult = InStr(1, strText, strSearch) Debug.Print "الحالة 4: InStr(1, """ & strText & """, """ & strSearch & """) = " & intResult ' الحالة 5: البحث عن سلسلة كاملة داخل سلسلة strText = "Access VBA" strSearch = "VBA" intResult = InStr(1, strText, strSearch) Debug.Print "الحالة 5: InStr(1, """ & strText & """, """ & strSearch & """) = " & intResult ' الحالة 6: البحث عن نفس الكلمة في نفس النص strText = "abcabcabc" strSearch = "abc" intResult = InStr(1, strText, strSearch) Debug.Print "الحالة 6: InStr(1, """ & strText & """, """ & strSearch & """) = " & intResult ' الحالة 7: البحث من منتصف النص intResult = InStr(5, strText, strSearch) Debug.Print "الحالة 7: InStr(5, """ & strText & """, """ & strSearch & """) = " & intResult ' الحالة 8: البحث مع تطابق حالة الأحرف (غير افتراضي، لكن يمكن تخصيصه) strText = "TestCase" strSearch = "case" intResult = InStr(1, strText, strSearch) Debug.Print "الحالة 8: InStr(1, """ & strText & """, """ & strSearch & """) = " & intResult & " (Compare = Binary افتراضي)" ' الحالة 9: استخدام المعامل الرابع للمقارنة الثنائية أو النصية intResult = InStr(1, strText, strSearch, vbTextCompare) Debug.Print "الحالة 9: InStr(1, """ & strText & """, """ & strSearch & """, vbTextCompare) = " & intResult Debug.Print String(70, "=") End Sub Public Sub TestInStrCases() Debug.Print "==================================================" Debug.Print "اختبار دالة InStr" Debug.Print "==================================================" Debug.Print "الحالة 1: InStr(1, ""Mohesam"", ""a"") = "; InStr(1, "Mohesam", "a") Debug.Print "الحالة 2: InStr(4, ""Mohesam"", ""a"") = "; InStr(4, "Mohesam", "a") Debug.Print "الحالة 3: InStr(1, ""Mohesam"", ""z"") = "; InStr(1, "Mohesam", "z") Debug.Print "الحالة 4: InStr(1, """", ""a"") = "; InStr(1, "", "a") Debug.Print "الحالة 5: InStr(1, ""Access VBA"", ""VBA"") = "; InStr(1, "Access VBA", "VBA") Debug.Print "الحالة 6: InStr(1, ""abcabcabc"", ""abc"") = "; InStr(1, "abcabcabc", "abc") Debug.Print "الحالة 7: InStr(5, ""abcabcabc"", ""abc"") = "; InStr(5, "abcabcabc", "abc") Debug.Print "الحالة 8: InStr(1, ""TestCase"", ""case"") = "; InStr(1, "TestCase", "case") Debug.Print "الحالة 9: InStr(1, ""TestCase"", ""case"", vbTextCompare) = "; InStr(1, "TestCase", "case", vbTextCompare) Debug.Print "==================================================" End Sub نعم لسنا بحاجة لمعرفة المكان ولكن الدالة ترجع 0 فى حالة عدم وجود موقع للعلامة يعنى الدالة بس من خلالها بنبنى شرط لو فى موقع للعلامة او لا يوجد موقع

اقصد انها زائدة لا داعي لها حتى شرح الدالة هنا ادناه .. لا يوجد ما يفيد بوجود شرط يتبعها .. الشرط اختياري يكون في اول الدالة لتحديد مكان الحرف او الرقم المطلوب في الجملة فمنطقيا هي true عند وجود المطلوب و false عند عدمه ... وحسب طلب مثل طلبي ( يعتمد على علامة السالب.. وهي وحيدة دوما) .. لسنا بحاجة لمعرفة مكان الحرف الحمد .. سؤال بسيط .. كنت متوقع اجابة واحدة فقط ... انظروا كم من من الفؤائد المحصلة الف شكرا لكم اخوتي واحبتي على هذا التفاعل الايجابي .. جعله الله في موازين اعمالكم ، وغفر لنا ولكم ووالدينا ووالديكم .

نستطيع استبدال الشرط كالآتي لإظهار القيم السالبة :- InStr([Modah],"-")<> False

شكرا لحضرتك اخى الكريم ارفقت الملف نسيت انى اقول لحضرتك القائمة المنسدلة انا عاملها فى النموذج مش فى الجدول فى جدول EX حطيت المسميات و التصنيفات و النموذج مرتبط بالجدول EXPNSES @ kanory @kanory EL-DATA.rar

شرح دالة InStr شكل وطريقة استخدام الدالة InStr(string1, string2) تستخدم InStr للبحث عن موضع أول ظهور لسلسلة (string2) داخل سلسلة أخرى (string1) ترجع موقع أول تطابق (كمؤشر حرفي يبدأ من 1) أو ترجع 0 إذا لم يتم العثور على أي تطابق string1: السلسلة النصية الأساسية التي يتم البحث بداخلها string2: السلسلة النصية المطلوب العثور عليها الناتج: رقم موضع أول تطابق أو 0 إذا لم توجد InStr("123-456", "-") ' النتيجة: 4 (لأن "-" في الموضع الرابع) InStr("abc", "z") ' النتيجة: 0 (لأن "z" غير موجودة) InStr("ابو خليل:الاستاذ",":") ' النتيجة: 9 InStr("Mohamed", "h") ' النتيجة: 3 (لأن الحرف "h" أول ظهور له في الموضع الثالث) InStr(5, "Banana", "a") ' النتيجة: 5 (يبدأ من الموضع الخامس ويجد "a" في الموضع 5)

ما رأيكم نشيل الصفر او القيمة المنطقية اي نحذف الجملة <>0 .. ونرتاح

مقصدي بوجه ثاني .. InStr([Modah], "-") <> 0 يا آكسيس ، دورلي على علامة "-" في النص الموجود في الحقل [Modah] .. إذا لقيتها ( يعني InStr رجعت رقم ≠ 0 ) "لبسه البشت" = فعل التنسيق الشرطي 😎 وإذا ما لقيتها ( يعني InStr رجعت 0 ) خله عادي … ما له بشت 😐

ايون ينفع نعم <> False يعمل لكنه أقل وضوح من <> 0 أو > 0 تذكر أن InStr ترجع رقم موضع وليس قيمة منطقية لذلك من الطبيعي تقارنها بأرقام مش بقيم منطقية

ليه بس كذا .. 😔 الكود وحسب الشروحات اعلاه .. يقول .. ابحث .. يا موجود .. يا لا اذا موجود لبسه البشت

في المقارنة العددية ؟؟؟؟؟؟ طبعاً لأ !!!

يا سلام شرح وافي وكافي اعذروني . كنت اعرف InStr زمان قبل ما تكبر وتعجز 🙃 يعني يصلح اكتب False بدلا من الصفر ؟ صح ؟ بحيث تصبح : InStr([FieldName],"-")<>False

الدالة هنا سترجع رقم موضع أول ظهور للكلمة أو الرمز داخل النص . بحيث إذا لم يتم العثور على القيمة ، ترجع 0 . وإذا تم العثور ، ترجع رقم الحرف الذي تبدأ فيه . كمثال :- InStr("04:10-", "-") => 6 ' لأن السالب هو الحرف السادس بينما :- InStr("04:10", "-") => 0 ' لا يوجد سالب هذا يعني "هل تحتوي القيمة الموجودة في الحقل [Modah] على علامة -" فإذا كان موجود فعلاً = InStr ترجع رقماً (≠ 0) وإذا لم يكن موجوداً = ترجع 0 فالمقارنة <> 0 معناها : إذا وجد السالب أم لا ..

الدالة InStr تبحث عن وجود سلسلة نصية داخل سلسلة أخرى ترجع الموضع الرقمي لأول ظهور للجزء المطلوب (أي رقم أكبر من صفر) إذا تم العثور عليه وترجع الرقم 0 إذا لم يتم العثور على الجزء المطلوب تركيب الدالة هو: InStr([النص الأصلي], [النص الذى نريد البحث عنه]) اذا InStr([Modah];"-")<>0 [Modah] هو الحقل الذي يحتوي على البيانات النصية اى هو النص الأصلى "-" هو النص الذى نريد البحث عنه >-->> علامة السالب <>0 تعني طالما أن علامة السالب موجودة في أي موضع داخل النص فيعتبر الشرط صحيح طيب بالنسبة لسؤال حضرتك الفاصلة في الحقل ":" لكن الفاصلة في الدالة "-" نركز فقط على ظهور علامة السالب (-) داخل القيمة الكاملة للحقل وليس على علاقة للفاصل ":" هنا لأننا لا نقوم بتقسيم القيمة بل فقط نبحث عن وجود علامة السالب (-) لماذا لم تلون القيم التي تحتوي على صفر؟ لأن الشرط يبحث فقط عن وجود السالب علامة السالب (-) "0:0" لا تحتوي على علامة السالب (-) الشرط يعطي False فلا يتم تلوينه "-0:1" تحتوي على علامة السالب (-) الشرط يعطي True فلذلك يتم تلوينه

إن سمحت لي بمداخلة .. النقطتين ":" يتم استخدامها للفاصل الزمني في التنسيق hh:mm على سبيل المثال . أما إشارة "-" فهو ما استخدمناه حالياً لاكتشاف السالب . مع العلم أن الشرط لا يهمه وجود ":" بل يبحث فقط عن وجود علامة "-" في أي مكان في النص 😅 ومن هنا نستطيع تعديل الشرط في التنسيق الشرطي ليشمل التلوين القيم السالبة أو القيم التي تساوي 00:00 بهذا التعديل :- InStr([Modah],"-")<>0 Or [Modah]="00:00"

العفو يا صديقي ..

تمام التمام .. وهو ما تفضل به ابوجودي ولكن نريد شرح لما يحدث : InStr([Modah];"-")<>0 الفاصلة في الدالة هي "-" لكنها في الحقل ":" ايضا لا يساوي صفر .. كيف لم يظهر في التقرير ملونا الا السالب فقط بينما يوجد حقل قيمته اصفار لطفا نريد شرح مفصل لما عمله هذا السطر

تعدل هذا cmbType حسب اسم القائمة المنسدلة لديك لو ارفقت مرفقك لكان التعديل عليه افضل لك

ما قصرت أخي العزيز كثيررررررررررررر ممتن لك

فقط استخدم فى خاصية التسيق الشرطى لعنصر هذا الحقل InStr([FieldName],"-")<>0 طبعا مع تغيير : FieldName بما يتناسب معك واختر اللون هذا اقصر طريق داخل التقرير ولو تريد التصفية فقط فى الاستعلام للقيم الموجبة استخدم فى معيار الحقل: FieldName >InStr([FieldName],"-")<>0 اما لو تريد القيم السالبة فقط فى معيار الحقل : FieldName InStr([FieldName],"-")<>0

شكرا لرد حضرتك انا هعدل حاجه على الكود ده ؟ و هل اضيفة فى موديل فى النموذج ؟؟ صح كده @kanory @kanory

طالما نوع الحقل نصي فالحل بسيط أضفت تقرير لمثال الأخ @Foksh تظهر فيه القيم السالبة باللون الاحمر مع تحياتي TimeMin.rar

آآآآآه نصي العنوان يوهم بغير ذلك .. المعذرة سأقوم بالتعديل الى عبارة صحيحة مفهومة هذا حقل نصي في تقرير اريد تلوينه حين يكون بالسالب .. باقصر طريق