هل هو طلبك على قدر فهمي
1- تصحيح حذف الصوره من السجل
2-التقاط الصورة مباشر من رقم المقعد
3-امكانية تقلب اذا كانت الصور القديمة
===============================
!!!نسية تعديل التقرير
حسيت بالرعود 😂
شكله ناسيني
@ابو جودي استاذي
❤️🌹🌹
عسى عمره طويل 😇
Ezy any Open Pc1.rar
تفضل طلبك لتشغيل على اي حاسوب بتقسيم المسار
مع تغير صور التقرير
مع ازالة مخلفات دوال
مو بس رعود حتى شلال 😂
اعتقد تحتاج الا اعادة بنيان الجداول مع
Link
وين @ابو جودي استاذي
❤️🌹
Ezy any open pC.rar
أخي الكريم بارك الله فيك
1- عندي استعداد وربنا يقدرني ويستخدمني
2- لو ممكن توضح التعديلات المطلوبة أكتر مع أمثلة
3- نعم يمكن وضع نمط للبحث وفي هذه الحالة انت لا تستهدف أرقام الكتب التي تأتي في مواضع متأخرة
حاول توضيح المطلوب اكثر مع الذكر الحالات والأمثلة وإن شاء الله سنتمكن من الوصول لحل
4- ولقد حاولت في الكود الحالي ان يتعامل مع المتغيرات فيمكنك استدعائه من أي جدول ومع أي عمودين
إذا كان لديك أي استفسار فلا تتردد أخي الكريم
بانتظار توضيحك
بالتوفيق
لقد قمت بتعديل بسيط علي هذه الدالة حتي تتعرف أيضاً علي المسافات بين الاقواس بعد مراجعة طلبك
وذلك بإضافة | \s* | للمقطع الأوسط
النسخة بعد التعديل بالمرفق
Public Function nssjWipeCondition(ByVal fullText As String) As String
Dim regex As Object
Set regex = CreateObject("VBScript.RegExp")
With regex
.Global = True
.MultiLine = True
.IgnoreCase = False
.Pattern = "(\d+\s*-\s*\()([\d-/_,\s*\\]+)(\))"
End With
nssjWipeCondition = regex.Replace(fullText, "$1$3")
If Not regex Is Nothing Then Set regex = Nothing
End Function
Smart_Search_Nssj_V5.zip
استاذ @ahmed draz عملت للمرفق اضافة جميله ستعجبك . بعدما تختار مسار فولدر الصور الصحيح (الذي به الصور) سواء فتحت التقرير من النموذج .....
أو أغلقت النموذج ثم فتحت التقرير أو الاستعلام سيعطيك النتيجة .
ملحوظة-1 : اذا أغلقت البرنامج ثم فتحته مرةً أخرى فلابد من اختيار مسار مجلد الصور مرة أخرى .
ملحوظة-2 : اذا حبيت فتح الصور من المجلد لما يكون بجوار قاعدة البيانات (أي مكان ثابت) . أنا حاضر لأن لها طريقة أخرى .
تابع الشرح واليك المرفق . لا تنسى اذا كان هذا طلبك الضغط على أفضل اجابة
1-1_2.rar
السلام عليكم ورحمة الله وبركاته
أخي الكريم صبحك الله بالخير والنور والسرور
تم بحمد الله عمل التعديلات المطلوبة
وتم تعديل بعض الأكواد واضافة بعض الاكواد والوظائف
الملف بالمرفقات راجعني بعد التجربة بالنتائج والاستفسارات إن شاء الله
بالتوفيق
Smart_Search_Nssj_V4.zip
لا تقلق! إنما هو عتاب محب لأحبابه ومكانتكما عندي عالية علو سهيل..
بداية جيدة وفالٌ حسن.. تسمية الجداول يدل على أن هناك معرفة مكتسبة من ZATCA!..
للأسف الجهاز الذي أعمل عليه لا يوجد به برنامج أكسس
لكن.. هل قمتما بقراءة المراجع التي أرفقتها؟ أريد جوابا بنعم أو لا.. لأنه إذا كان الجواب بنعم سوف أقوم باستخدام المصطلحات التي فيها بدلا عن الكلمات والمعاني العربية!
وعليكم السلام -يمكنك استخدام هذه المعادلة
=IF(COUNTIFS($B$2:B2,B2,$A$2:A2,A2)=1,"Input1 ",IF(COUNTIFS($B$2:B2,B2,$A$2:A2,A2)=2,"Output1 ",IF(COUNTIFS($B$2:B2,B2,$A$2:A2,A2)=3,"Input2 ",IF(COUNTIFS($B$2:B2,B2,$A$2:A2,A2)=4,"Output2 ",""))))