Hamdi Edlbi-khalf

في June 20, 2018 at 23:27, jjafferr said:

 

السلام عليكم اخوي خلف

 

رجاء توضيح اللي تريده من النموذج المرفق.

 

جعفر

 

و عليكم السلام 

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

في المثال المرفق أرغب بتحديث  حقل منضم بناء على حقل غير منضم .

و لكن ما أبحث عنه هو أمر فيجوال يمكنني من تحديث حقل بناء على حقل آخر و لكن على كامل الجدول و دفعة واحدة سواء أكان الحقل منضماً أم لا .

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

@AlwaZeeR

حلاً سحرياً بجعل المؤشر ينتقل عبر كامل النموذج من سجل إلى آخر عند تنفيذ الأمر دفعة واحدة لينسخ قيمة الحقل الغير منضم إلى الحقل المنضم .

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

عندما شاهدت مشاركات - حضرتكم- توسمت بكم حب المساعدة و القدرة عليها و هاقد شرفتني بالتجاوب مع سؤالي .

و الشكر كل الشكر للأخ الفاضل  

@kaser906

على ما يقدمه و لا زلت بانتظاره مشكوراً على أياديه البيضاء التي لا تمحى .

كل عام و أنت بخير أستاذي 

@jjafferr

و

@kaser906

و بانتظار ما تجودون به مشكورين غير مأمورين و من الله عز وجل خير الجزاء و من العباد الدعاء و الثناء .

في June 18, 2018 at 17:54, kaser906 said:

نعم ممكن ذلك بعدة طرق

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

شكراً 

شكراً لك

أستاذ

@kaser906

Database8.accdb

هل هذا ممكن من حيث المبدأ ؟

مساء الخير 

شكراً شكراً

شرفتني بمشاركتك .

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

الطريقة الافتراضية  في الرابط التالي:

عمل ترتيب للتنقل بين الحقول - معالجة التنقل غير المنتظم في الأكسسس

و لكن هل يوجد كود يحقق هذا من خارج وضع التصميم ؟

السلام عليكم

ربما يكون هذا الموضوع مطروقاً في المنتدى أو غير ه من المواقع ، و لكن لم أعرف ما هي الكلمة المفتاحية المناسبة للبحث و لذلك أطرح الموضوع آملاً بمساعدتكم .

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

و لكم جزيل الشكر على مساعدتكم سلفاً .

السلام عليكم

هل يمكن عمل استعلام تحديث بواسطة VB

ينفذ على كامل الجدول دفعة واحدة و ليس على سجل التركيز .

ليس لدي مثال محدد و لكن بناء على ما واجهني غير مرة  :

1- تحديث جدول بناء على حقل غير منضم في نموذج.

2- تحديث حقل في جدول بناء على حقل في جدول آخر .

 و على الخصوص الحالة الأولى

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

الان, سليم حاصبيا said:

تم التعديل على الملف 

كلما كتبت شيئاُ معيناً في الخلية  B2 تظهر لك النتيجة فوراً

saerch_salim.xlsm

إنك تستحق كل إعجاب حقاً

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

14 ساعات مضت, وائل أبو عبد الرحمن said:

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

بانتظار رد الأستاذ 

@shreif mohamed

عن إمكانية فصل الخلايا دون حذف .

حتى يكون العمل مكتملاً .

الان, ahmedkamelelsayed0 said:

كل ما عليك تشغيل الماكرو المسمى بفرز

السلام عليكم

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

@shreif mohamed

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

شكراً لك من كل قلبي على المساهمة الطيبة التي قدمتها

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

شكراً أستاذ

@رمهان

لقد نجحت الطريقة ...

السلام عليكم 

لدي إشكال و سؤال 

عند محاولة تحويل الماكرو المضمن  تظهر خيارات 

Save as

convert macros to .....

باللون الرمادي غير مفعلة ..

فما هو الحل بارك الله بكم .

تقبل الله طاعتكم و كل عام و أنتم بخير 

الان, shreif mohamed said:

وعليكم السلام ورحمه الله وبركاته

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

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

و أشكرك على سعة صدرك .

أخي الفاضل ..

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

مثلاً الخلية :

f1 - g1 - h1 .....

أدخلت بالأولى : ؟

و في الثانية : 7

و الثالثة : |

و هكذا ...

 فسيقوم الأمر بتقسيم الخلية بناء على كل هذه النصوص .

فالخلية

a? 44 7gg|ee

ستصبح :

a

44

gg

ee

و هل يمكن أن يتم التقسيم دون حذف النصوص ؟

فمن الأمر قد وجدت أنه يقوم بعملية استبدال للنصوص ثم يعمل بالتقسيم .

وشكراً لكم .

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

الان, shreif mohamed said:

بارك الله فيك وشكرا لكلماتك الطيبة  واسال الله العظيم ان ينفعنا بما علمنا انه هو العليم الحكيم

تفضل

 

فصل كلمات من سلسلة نصية بدلالة رمز.xlsm

السلام عليكم

عمل أكثر من رائع و لكن ماذا لو أردنا أن يكون التقسيم بناء على مجموعة من القيم في خلايا .

لقد حاولت مع الكود الذي وضعه الأخ ALI MOHAMED ALI

ومع الكود الذي وضعته مشكوراً لكن الأمر لم ينجح سوى مع خلية واحدة

var = Replace(rng2, Range("f1").Value, "\")

كيف أجعله يقبل نطاق من الخلايا

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

عدتم و العود أحمد 

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

استخدام find مع أكثر من نص

الحمد لله تم التوصل المطلوب .

السلام عليكم

كيف نجعل 

find

تبحث عن قيم مختلفة بآن معاً 

كأن تبحث عن a -b 

= find ({"a","b"};c1;1)

لقد حاولت بمثل هذه المعادلة و لكن لم أحصل على المطلوب .

و شكراً 

7 ساعات مضت, بن علية حاجي said:

حتى هذه يمكن تجاوزها...

شكراً على تجاوبكم 

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

في June 9, 2018 at 14:51, m7md gamal said:

 

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

و قم بالخطوات التالية :

-إعدادات مركز التوثيق

-الخصوصية 

- أزل اختيار إزالة المعلومات الشخصية عند الحفظ .

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

الان, m7md gamal said:

ممكن توضح ازاي نفذت الكود دا لانه مش يتنفذ معايا 

جزا الله كل من ساهم فى ذلك خيرا

السلام عليكم

1- افتح محرر الفيجوال بيزك بالضغط على Alt + f11

2- اضغط تبويب INSERT

3- اختر من التبويب Modul

4- ضغ الكود فيه

5- افتح  Thisworkbook

من النافذة الجانبية في جوار النافذة البيضاء و ضع فيها كود الاستدعاء

6- غير الخلية التي ترغب بأضافة TRUE فيها

في ١١‏/١‏/٢٠١٦ at 19:38, أحمد الفلاحجى said:

If Sh.Cells(1, "IV") = "True" Then Sh.Protect Password:="123" Next

اكتب بدلاً من IV اسم العمود الذي ترغب و بدلاً من 1 رقم الصف الذي تريد .

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

و لكن يحتاج إلى تجريب