أخواني الأعزاء
السلام عليكم وكل عام وانتم بخير بمناسبة الشهر الكريم
أود أن أطرح عليكم سوال يتعلق بدالة البحث ، المهم دالة البحث التالية تقوم بالبحث عن قيمة (Total Amount) داخل جدول اسمة (ProjectsFile) بشرط تكون هذه القيمة أكبر من الصفر ، وكذلك لاتخرج من نطاق المشروع المسمى (ProjectNo).
Me.Tamount = DLookup("[Total Amount]", "ProjectsFile", "ProjectNo='" & [ProjNum] & "'" & "where [Total Amount]> '" & (0) & "'")بمعنى أخر يوجد بالجدول مجموعة من السجلات لنفرض 6 سجلات بارقام متسلسلة من 1 إلى 6 ، السجلات الثلاثة الأولى تحمل رقم مشروع ولنفرض (1/2010) ، والسجلات الثلاثة الأخرى تحمل رقم مشروع ولنفرض (2/2010) ، وتحتوي هذه السجلات على خانة تسمى (Total Amount) ، بحيث تكون لها قيمة واحدة صحيحة في السجلات الثالثة الأولى والبقية أصفار ، وكذلك في السجلات الثلاثة الباقية تكون لها قيمة واحدة صحيحة والباقية أصفار .
المطلوب البحث في السجلات التي تحتوي على رقم مشروع معين بحث تكون القيمة التي نبحث عنها أكبر من الصفر ، أي تظهر لها القيمة الصحيحة فقط .
الرجاء من أخواني مساعدتي في كتابة كود لدالة البحث بهذين الشرطين ، والله الموفق ولكم مني أفضل الامسيات
