sandanet

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

وكيفية الاستفادة من عمل القاعدة كمرجع ولماذا تكون افضل من عملية استيراد النماذج من قاعدة المرجع ؟

عفواً اخي سامي .. انا فقط اردتك ان تنتبه الى النقطة الاولى التي ذكرها الاستاذ جعفر وهي استخدام اوامر VBA في SQL ، مما يبطئ العمليات

@رمهان ملاحظات قوية منك استاذ رمهان .. كنت ابحث عن ملف مرفق بعد التعديل في تعقيبك اخي رمهان لكني لم اجده وبالفعل عنوان الموضوع يجب ان يكون اعادة استخدام الارقام المحذوفة في الترتيب

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

اخي سامي ارجو ان يفيدك هذا الموضوع https://www.officena.net/ib/topic/74957-مشكلة-بطء-عرض-التقرير/?do=findComment&comment=481182 تحياتي

اخي حسين قم بتغيير الامر الذي فيه المشكلة الى الامر التالي If UBound(strFileNames) = 0 Then Exit Sub End If وضع عبارة on error resume next في بداية الكود سوف ارفق لك البرنامج المعدل قريباً وفيه حاجة حلوة راح تعجبك ان شاء الله .. لكني انتظر استاذي الكبير جعفر ليقوم بتعديل بسيط على كود وان شاء الله تعالى سوف ارفقه لك تحياتي

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

ممكن تزودنا ببرنامج مجاني؟

اخي at_aziz هنالك اختلاف في اسماء المكتبات وكذلك الدوال مابين اصدارات الاوفيس وخصوصاً اوفيس 2016 لذلك ارجو تجربة البرنامج على اوفيس 2007 الذي تم عمل البرنامج عليه تحياتي لاتنسى الملف التالي .. ضعه مع البرنامج فيحتاجه البرنامج ان لم يجده في الويندوز TWAIN32d.zip

لو كان الرقم السري على محرر فيجوال ماذا يمكن فعله؟

بعد الاتكال على الله اولاً ومن ثم الاستعانة بخبرة "فارس لايشق له غبار في البرمجة" لحل مشكلة اختيار جميع الملفات داخل المجلد دون فتح نافذة الاختيار كما اشار اليها الاخ حسين.. زودني اخي ومعلمي الغالي @jjafferr بكود جميل يؤدي هذه المهمة على اكمل وجه وتم تطبيقه بنجاح في المرفق التالي .. فألف شكر لأخي جعفر جعل الله جميع اعماله هذه في ميزات حسناته فوالله دائماً ما اجد ضالتي لديه .. فتحية خاصة له اينما كان تحياتي الارشيف4.zip

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

وفي تعليق سابق قلت اخي حسين حقيقة لا اجد مايربط طلبك بخصوص الوارد بموضوعنا الاصلي .. ارجو توضيح سؤالك اكثر وربطه بالموضوع المطروح مباشرة لكي لايحصل تشتت في الواقع انا اول من حصل له تشتت ذهني واشعر ان طلبك الاخير خارج السياق وليس له صله بموضوعنا الرئيسي .. اذا كان هنالك ربط مع الموضوع الرئيسي فارجو منك توضيحه على العموم بالنسبة لكود عمل فولدر في D في مجلد اسمه وارد فالكود موجود عندك بالبرنامج تحت اسم دالة creat_folder وهو لانشاء مجلد باسم scanner بجوار البرنامج في حال لم يتم العثور عليه .. يمكنك استعماله فقط عليك استبدال هذا الامر Dir_scanner = Project_path & "\scanner\" بهذا Dir_scanner = "D:\scanner\" اما بالنسبة للطلب الثاني بخصوص جلب مسار الفولدر الجديد الى مربع نص مسار الصورة فهو سيكون بهذا الشكل Me.pate = "D:\wared" اخي حسين لازلت انتظر رد منك بخصوص السكانر هل قمت بالتجربة ام لا؟؟ تحياتي

اعتقد ان عبارة between خاصة بجمل ال SQL فقط

اخي حسين موضوع السحب من السكان ان شاء الله يعمل بكفاءة لاني جربته على نوعين من السكانرات المدمجة مع الطابعة والمنفصلة من نوع اوتوفيدر بعد معاناة للحصول على واحدة للتجربة على العموم في النموذج عند ادخالك لعدد الصور المراد سحبها فان البرنامج سيعتبر ان السكانر المربوطة هي من النوع المدمج مع الطابعة واذا تركت الخانة فارغة فسيعتبر ان السكانر من النوع المنفصل ومن ثم كما هو موضح في الصور السابقة 1 و 2 تقوم بتحديد خصائص السكانر ومكان حفظ الصور وان شاء الله امورك تمام اما بخصوص الزر البديل زر سحب عدة صور من الكومبيوتر فهو في الحقيقة ليس بديل من وجهة نظري بل هو مكمل لعملية السكان من السكانر نوع اوتوفيدر لانك في السكانر اوتوفيدر هذه بعد تحديد مسار حفظ الصور في المجلد scanner ستخزن الصور باسماء افتراضية وبعد الانتهاء يجب عليك الضغط على زر سحب عدة صور من الكومبيوتر لتفتح لك نافذة على مجلد ال scanner لتختار مجموعة الصور التي تريدها ومن ثم سيتم نقلها لمجلد الصور الخاص بالبرنامج المحدد مساره في النموذج طبعاً وسيتم اعطاء الصور التاريخ والوقت بالاضافة الى اسمائها الاصلية اما لو تم استخدام السكانر المدمج فلاحاجة لاستخدام زر سحب عدة صور من الكومبيوتر لان الكود سيقوم بحفظ الصور في مجلد البرنامج المحدد مساره في النموذج وسيقوم ايضا باعطائها الوقت والتاريخ بالاضافة الى اسمائها الاصلية (طبعا لايمكن عمل هذه الطريقة مع السكانر اوتوفيدر لانك تختار مسار الحفظ من داخل خصائص السكانر نفسها ) لكن يمكنك اختيار مسار حفظ الصور في مجلد البرنامج من خلال خصائص السكانر التي تظهر لك كما هو موضح في الصورة رقم 2 في المشاركة السابقة ومن خيار "اسم الملف" تسمي الصورة بالتاريخ والاسم ...الخ كما تشاء وبالتالي تستغني عن زر سحب عدة صور من الكومبيوتر تحياتي يفضل ان تضع هذه المشكلة في موضوع منفصل حتى لايختلط الموضوع على المتابعين ... على العموم استخدم الامر DoCmd.CancelEvent بدلا عن undo لان undo يقوم بالتراجع عن البيانات المدرجة جميعها بينما DoCmd.CancelEvent يلغي عملية المتابعة الى ان تكمل ادراج بقية البيانات المطلوبة

استاذي ابوخليل كان قصدي في "انا اخبر الكومبيوتر ان الحقلين المختلفين بالاسم في كلا القاعدتين هما نفس الحقل لان كلاهما يأتي حقل اسمه Age بعده" قصدي هو اننا لا نعرف المسميات لا القديمة ولا الجديدة كما تفضلت .. وانما كان القصد ان الكومبيوتر يجد حقلين مختلفين فيقوم بعمل مقارنة بينهما بدلالة الحقل الذي بعدهما في الجدولين فان وجد ان في كلا الجدولين يأتي حقل متشابه بالاسم "مهما كان الاسم" فسيعتبر الحقلين المختلفين بالاسم هما نفس الحقل تحياتي

طيب استاذي ممكن اتفهم الكومبيوتر ان الحقل الفلاني name في الجدول emptbl مثلاً في القاعدة القديمة هو نفسه الذي اسمه names في القاعدة الجديدة بناءاً على معطيات متشابهة تجعل الكومبيوتر يتأكد من انه الحقل نفسه .. المعطيات هذه ممكن اتكون كالتالي: اذا كان الحقل name الجديد يأتي بعده الحقل Age فهو نفس الحقل الذي في القاعدة القديمة مهما كان اسمه لكنه يأتي بعده حقل ال Age ايضاً .. باختصار شديد انا اخبر الكومبيوتر ان الحقلين المختلفين بالاسم في كلا القاعدتين هما نفس الحقل لان كلاهما يأتي حقل اسمه Age بعدهما وهكذا ارجو ان تكون فكرتي واضحة

الف مبرووووك لمنتدانا بحصوله على تلك الأوسمه العظيمة من الخبراء وان شاء الله في اعلى المراتب دائماً

الاستهتار بقوانين المنتدى تؤدي الى فوضى يا اخي حمادة

استاذ شفان للأسف تظهر لي هذه الرسالة بعد تغيير اسم الحقل cntryNm الى cntyNm1111 في القاعدة dbmain !!

مبروك استاذنا الخبير شفان ان شاء الله دائماً متألق في أعلى المراتب .. ربي يوفقك تستاهل كل خير

تمت التجربة بنجاح 100%

نعم اخي @محمد سلامة ان شاء الله مع هذا النوع وكل الانواع الاخرى تحياتي

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