sandanet

اخي الكريم وائل البحث المطابق المقصود فيه "مطابقة الخلية بكاملها وليس جزء منها.. اي مطابقة الجملة بالكامل" اما اذا كنت ترغب في البحث عن كلمة موجودة في الجملة فيمكنك اختيار "يتضمن" تحياتي

اخي الكريم اعتقد ان الاوفيس عند عامل تضارب بسبب تنصيب اكثر من اصدار اوفيس على نفس الجهاز او قد يكون الاصدار القديم لم تتم ازالته بصورة سليمة من الجهاز اي ماتزال ملفاته موجودة في الرجستري بينما انت تنصب اصدار جديد وهنا سيحصل تضارب .. وهناك امور كثيرة تسبب خلل في الاوفيس لذلك من الافضل تنصيب ويندوز جديد (ويندوز 7 مثلاً ) واستخدام اوفيس 2007 عليه لانه الاكثر شيوعاً في الاستخدام هذه الايام ولو اني ماززلت افضل اوفيس 2003 شخصياً تحياتي .

اخي الكريم ومن بعد اذن استاذنا القدير جعفر اليك هذا المثال الجميل اتمنى ان يكون فيه ماطلبت تحياتي بحث.zip

استاذنا الكبير @أ / محمد صالح ياريت لو يتم وضع نسخة تعمل على اوفيس 2003 او 2007 يكون افضل .. كما انني افضل ان تكون عملية اضافة مبلغ خدمة العملاء اختيارية وليست دائمية وذلك لكي تتناسب مع الجميع .. وبارك الله فيك ولما تقدمه من منفعة تحياتي

اخي الكريم .. شنو نص الرسالة ؟؟ لو امكن ان اترفق صورة منها يكون افضل تحياتي

اعتقد انه لايوجد طريقة على الاطلاق

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

اعتقد انه يجب كتابة العبارة بهذا الشكل If [Forms]![namber_hsap_tmp]![nambr_mostkdam] = 19 Or [Forms]![namber_hsap_tmp]![nambr_mostkdam] = 23 then

السلام عليكم ورحمة الله تعالى وبركاته تحية طيبة للأساتذة الأفاضل وكل عام وانتم بخير وان شاء الله عيدكم مبارك اجمعين .. اما بعد لدي كود وهو للأستاذ جعفر وقد حاولت فهمه بالكامل لكني لم افلح ارجو منكم مساعدتي في ذلك وظيفة الكود هي مقارنة اسماء الملفات الموجودة في في المسار Me.pate مع الملفات الموجودة في النوذج الفرعي Me.Table2 في الحقل ImagePath حيث ان الملفات تخزن في هذا الحقل بكامل مسارها بالشكل التالي C:\Users\mypc\Desktop\All_Files\123\2017-05-27_18.28.43_66.jpg ارجو من الاخوة الكرام التفضل بتفصيل خطوات عمل الكود للأهمية ولكم مني جزيل الشكر تحياتي Function Make_File_Array() On Error GoTo err_Make_File_Array 'Folder info Dim File_Count As Integer Dim fdr As Variant Dim Files_Array() As Variant 'No Path, exit If Len(Me.pate & "") = 0 Then Exit Function 'get the file count from the Forlder, and 'place the files in an array fdr = Dir(Me.pate & "\" & "*.*") File_Count = 0 Do While fdr <> "" File_Count = File_Count + 1 ReDim Preserve Files_Array(File_Count) Files_Array(File_Count) = fdr fdr = Dir Loop 'got the folder file count=File_Count, and the files=Files_Array(i) 'SubForm Records Dim rst As DAO.Recordset Set rst = Me.Table2.Form.RecordsetClone rst.MoveLast: rst.MoveFirst rc = rst.RecordCount '1. Make all Records, File_Check=2 (No File) For j = 1 To rc rst.Edit rst!File_Check = 2 rst.Update rst.MoveNext Next j '====================== '2. Compare For i = 1 To UBound(Files_Array) 'File_Count iname_morfke = "\" & Files_Array(i) 'itayp = Mid(Files_Array(i), InStrRev(Files_Array(i), ".") + 1) rst.FindFirst "ImagePath='" & Me.pate & iname_morfke & "'" If rst.NoMatch Then 'No Match rst.Edit rst!File_Check = 2 rst.Update Else rst.Edit rst!File_Check = 1 rst.Update End If Next i '====================== rst.Requery rst.close: Set rst = Nothing Exit Function

السلام عليكم ورحمة الله وبركاته تحية طيبة وبعد .. سؤالي غريب نوعاً ما وهو كيفية قراءة اسماء مجموعة صور في صفحة ويب ومن ثم ادخال ماتمت قراءته في نفس الصفحة في مربع نص كما هو مبين في الصورة التالية ؟؟ طبعا للتوضيح الصورة تظهر رقم هو نفسه اسم الصورة في السورس الصفحة مرفوعة على هذا الرابط https://www.sendspace.com/file/laljbv تحياتي

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

عنوان موضوعك مخالف اخي الكريم

عنوان الموضوع مخالف اخي الكريم

اخي الكريم الكود هو للحماية من النسخ الغير شرعي يعني لحفظ حقوق صاحب البرنامج وهو الامر الذي تم تصميم الكود عليه اساساً وليس له علاقة بعمل نسخة تجريبية لمدة معينة لكن يمكن دمج كود عمل نسخة تجريبية مع هذا .. بمعنى آخر يجب عليك تنفيذ كود الحماية هذا بعد كود انتهاء مدة النسخة التجريبية تحياتي

لذلك جميع الطرق تؤدي الى mde

فاهم قصدك اخي هاني .. لكني لا اعتقد انني يوماً ما سوف استخدم هذه الطريقة طالما اني سوف احول البرنامج الى mde فليس من المنطقي اعطاء العميل نسخة mdb لانك بهذه الحالة تجازف كثيراً في كشف اكوادك في الوحدات النمطية حتى وان كانت محمية بكلمة سر فسوف يسهل اختراقها تحياتي

شكراً لك استاذ @jjafferr جزاك الله خيراً .. موضوع في غاية الاهمية .. جاري الاطلاع

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

ممكن مثال تطبيقي يا استاذ جعفر؟

اخي الكريم وائل الشكر اولاً واخيراً لله عز وجل .. وبارك الله فيك .. انا بالحقيقة لم اشكو من توجيه لوم او تقصير بحقي من قبلك او من قبل اي حد آخر فالحمد لله بطبعي انا لا اهتم كثيراً بما يقال الا بما ينفع ويحقق الهدف المنشود في السؤال. اتفق معك في ان ابسط الحلول هو ماوصلت ايه يدوياً لكن هذا ينفع في حال تم استخدام البرنامج من ناحيتك فقط .. اما لو اردت اعطاءه لزبون او مستخدم آخر ليست له دراية في الاكسس فسيكون من الصعب عليه تطبيق الربط يدوياً .. لذلك في الغالب يلجأ المبرمجون الى جعل الربط تلقائي بمجرد فتح البرنامج وتحديد مسار قاعدة الجداول اخي وائل صدقني انا لا افرق بينك وبين اي احد آخر قد استطيع مساعدته لوجه الله فالكل سواسية هنا وانا مثلك ايضاً احتاج الى الكثير والكثير لتعلمه من اخواني واساتذتي هنا في المنتدى وان شاء الله تلاقي جميع الحلول للإشكالات التي تواجهك .. انا عن نفسي قد تكون مساعدتي محدودة لعدة اسباب من ضمنها عدم استعمالي لاوفيس 2013 لكن انا شاء الله سأكون موجود في بقية المواضيع تحياتي

ممكن ترفق لنا قاعدة الجداول لكي يتم التجريب .. لاني طبقتها على قاعدة عندي وكانت الامور 100%

يجب ان ينتقل المؤشر الموضوع ليس له علاقة بالاكسس على ما اظن .. للتأكد قم فتح المفكرة من الويندوز واستخدم الباركود ستجد انه يطبع الرقم ومن ثم ينتقل الى سطر جديد تحياتي

هل تأكدت من وجود الجداول المرتبطة بعد اجراء عملية الربط؟؟ افتح قاعدة الـ Main بالضغط على زر Shift وانظر للجداول هل تم استيرادها ام لا اذا لم ترى الجداول المرتبطة فقم بتغيير اسم قاعدة الجداول الى اي اسم اخر واعد فتح قاعدة main بصورة طبيعية فستلاحظ انه يطالبك بتحديد مكان قاعدة الجداول من جديد .. حدد مكانها وانتهى لكن الرسالة السابقة تفيد بأن النموذج الذي تحاول فتحه مصدره استعلام اسمه QInfSura او جدول غير موجود .. اذا كان المصدر هو استعلام فيجب التأكد من الاستعلامات جميعها موجودة لديك في قاعدة الواجهات وليس في قاعدة الجداول لان عملية الربط سوف تتم مع الجداول فقط لذلك تأكد من ان جميع الاستعلامات لديك يجب ان تكون في قاعدة الواجهات main اذا كنت تبحث عن طريقة اخرى للربط فيمكنك عملها بشكل يدوي وذلك من خلال شريط الادوات لديك في الاكسس .. للأسف لا املك اوفيس 2013 لمعرفة مكان تواجد الامر في شريط الادوات تحياتي

متابع بصمت .. موضوع شيق