Hamdi Edlbi-khalf

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

بانتظارأفكار هذه الطرق .. شكراً

شكراً لك أستاذ @kaser906 Database8.accdb

هل هذا ممكن من حيث المبدأ ؟ مساء الخير

شكراً شكراً شرفتني بمشاركتك . بارك الله بك و كل عام و أنت بألف خير

الطريقة الافتراضية في الرابط التالي: عمل ترتيب للتنقل بين الحقول - معالجة التنقل غير المنتظم في الأكسسس و لكن هل يوجد كود يحقق هذا من خارج وضع التصميم ؟

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

السلام عليكم هل يمكن عمل استعلام تحديث بواسطة VB ينفذ على كامل الجدول دفعة واحدة و ليس على سجل التركيز . ليس لدي مثال محدد و لكن بناء على ما واجهني غير مرة : 1- تحديث جدول بناء على حقل غير منضم في نموذج. 2- تحديث حقل في جدول بناء على حقل في جدول آخر . و على الخصوص الحالة الأولى و كل عام و أنتم بخير .

إنك تستحق كل إعجاب حقاً و سؤالي هنا هل يمكن تعديل الأمر ليتمكن من إيجاد سلسلة الأحرف حتى لو كانت منفصلة أو متصلة بغيرها ؟

بانتظار رد الأستاذ @shreif mohamed عن إمكانية فصل الخلايا دون حذف . حتى يكون العمل مكتملاً .

السلام عليكم لقد شاهدت الملف الذي عدلته مشكوراً و لكن لم أجد أي ماكرو باسم فرز .

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

شكراً أستاذ @رمهان لقد نجحت الطريقة ...

السلام عليكم لدي إشكال و سؤال عند محاولة تحويل الماكرو المضمن تظهر خيارات Save as convert macros to ..... باللون الرمادي غير مفعلة .. فما هو الحل بارك الله بكم . تقبل الله طاعتكم و كل عام و أنتم بخير

كل عام و أنت بخير و أشكرك على سعة صدرك . أخي الفاضل .. ما أبجث عنه هو تحديد بعض الخلايا لتكون خلايا إدخال و عندما أضع فيها نصاً ما فإن الأمر في محرر الفيجول يعتبر قيمة هذه الحقول هي النصوص التي سيقسم محتويات الخلايا بناء عليها . مثلاً الخلية : f1 - g1 - h1 ..... أدخلت بالأولى : ؟ و في الثانية : 7 و الثالثة : | و هكذا ... فسيقوم الأمر بتقسيم الخلية بناء على كل هذه النصوص . فالخلية a? 44 7gg|ee ستصبح : a 44 gg ee و هل يمكن أن يتم التقسيم دون حذف النصوص ؟ فمن الأمر قد وجدت أنه يقوم بعملية استبدال للنصوص ثم يعمل بالتقسيم . وشكراً لكم .

جزاك الله كل خير ...

السلام عليكم عمل أكثر من رائع و لكن ماذا لو أردنا أن يكون التقسيم بناء على مجموعة من القيم في خلايا . لقد حاولت مع الكود الذي وضعه الأخ ALI MOHAMED ALI ومع الكود الذي وضعته مشكوراً لكن الأمر لم ينجح سوى مع خلية واحدة var = Replace(rng2, Range("f1").Value, "\") كيف أجعله يقبل نطاق من الخلايا شكراً لك و كل عام و أنت بخير

عدتم و العود أحمد كل عام و أنتم بخير

استخدام find مع أكثر من نص الحمد لله تم التوصل المطلوب .

السلام عليكم كيف نجعل find تبحث عن قيم مختلفة بآن معاً كأن تبحث عن a -b = find ({"a","b"};c1;1) لقد حاولت بمثل هذه المعادلة و لكن لم أحصل على المطلوب . و شكراً

شكراً على تجاوبكم بعد إقفال الأوراق و محرر الأوامر كلاً بكلمة سر و تحويل الملف إلى تنفيذي ، هل من الممكن تجاوز الحماية ؟

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

حول الملف إلى تنفيذي

السلام عليكم 1- افتح محرر الفيجوال بيزك بالضغط على Alt + f11 2- اضغط تبويب INSERT 3- اختر من التبويب Modul 4- ضغ الكود فيه 5- افتح Thisworkbook من النافذة الجانبية في جوار النافذة البيضاء و ضع فيها كود الاستدعاء 6- غير الخلية التي ترغب بأضافة TRUE فيها اكتب بدلاً من IV اسم العمود الذي ترغب و بدلاً من 1 رقم الصف الذي تريد .

شكراً لكم لقد توصلت إلى ما يمكن أن يكون الحل . و لكن يحتاج إلى تجريب