Hamdi Edlbi-khalf

شكراً لتجاوبكم ، في الواقع لم تكن مشكلة الخط هي الوحيدة .

بل طريقة ظهور النموذج نفسه أو صفحة الإكسل .

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

في الإكسل نفس المشكلة بطريقة مختلفة أزيد عليها نطاق الطباعة و الخط و التنسيقات .

و هي تحدث في الأغلب بين ٦٤و ٣٢ بت 

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

أ ينبغي لنا أن  نقوم بتعديل التصميم لكل حاسب  أم  أن  

vb

تفي بالغرض ؟ 

21 hours ago, عبد الفتاح كيرة said:

تجمع لدى خمسة حلول لمشكلة البارامتر

لكن هل يزال الأخ يحتاجها

من 2005

؟

أستاذ 

  @عبد الفتاح كيرة

نحن بحاجة لها و أنت لها .

السلام عليكم 

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

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

فهل من طريقة تجعل تنسيقات الأكسس والأكسل تظهربنفس الطريقة على  جميع الحواسيب ؟

ولكم الشكر 

السلام عليكم 

أعتقد أن هذا 

هذا البرنامج موجود على سيرفر  و ما  

أخذته كان مجرد النموذج 

-واجهة الإدخال -

دون بقية العناصر .

On April 21, 2018 at 1:29 PM, ابوخليل said:

عند التحويل الى mde يستحيل فتح التصميم ، ولو تم كسرها فانها ستفتح بدون اكواد برمجية

اما الفتح للعرض فيمكنك وضع ضوابط بحيث لا يمكن فتح النموذج الا بعد الدخول الصحيح الى البرنامج

هل هناك طريقة  فعالة لحماية القاعدة غير تحويلها إلى ملف تنفيذي ؟

و شكراً لكم 

كل ما عليك فعله هو إنشاء قائمة منسدلة في النموذج تكون مرتبطة في الجدول .

العفو أخي الكريم 

اجعل حقل الصنف 

Combo box 

نافذة منسدلة

و أثناء التسجيل ستظهر تتمة الكلمة

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

• السلام عليكم
• من الممكن ذلك

• 
  If Me.[FUEL-oil] = 0 Then
  Me.[FUEL-oil] = DLast("[FUEL OIL TITAN LAST DAY]", "noon report", "[FUEL OIL TITAN LAST DAY] > 0")
  End If

  لقد غيرت اسم الحقل في النموذج الذي وضعته ، ضع الكود في زر أمر و كرره ليكون لكامل حقول النص في نموذجك و عند الضغط سيتم نقل الرصيد السابق إلى الحقل في السجل الجديد و الذي سيظهر بالنموذج الفارغ .

• أعتذر فلست ضليعا بكتابة الأكواد و لعل هناك طريقة أفضل من هذه .

السلام  عليكم 

لقد شاهدت ملفك ..

و أعتقد أن الخطأ في المعادلة هو في القوس المنكسر 

"asafi"

كونه لا يوجد حقل بهذا الاسم و  الذي بدا لي أنه قيمة فقط ، لذلك  عدل الفورمولا لهذا الشكل 

IIf(([Nwaha2]="14" or ([Adfah]="اجل" And [Nwaha2]="16");"Asafi";0)

و سيعمل الاستعلام بالصورة المناسبة إن شاء الله تعالى .

السلام عليكم 

اجعل المعادلة بالصورة الآتية 

IIf(([Adfah]="اجل" And [Nwaha2]="14" ) or ([Adfah]="اجل" And [Nwaha2]="16");[Asafi];0)

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

الكلام قليل على ما قدمته  ، اليوم لدي أستاذ ثالث في عالم النت

Startnet  - أزهر ..

و أنت أيها الأمير

( الوزير )

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

و الشكر موصول لكل من قرأ و تفاعل 

أساتذتي و أخوتي

عبد الفتاح كيرة

Kaser906 

جزاكم الله كل خير نالتكم رحماته و عطاياه

سبحانك اللهم و بحمدك أشهد ألا إله إلا أنت

أستغفرك و أتوب إليك 

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

أخي الوزير 

لم يعمل الكود لدي و قد أشار إلى 

error

عند 

me.end = text1

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

صباح الخير أستاذ عبد الفتاح .

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

أعتقد أنني لم أتمكن من تطبيق طريقتكم بصورة صحيحة .

حبذا لو تكرمت عليّ و عدلت على الملف الذي أرفقته في التعليق السابق على جوابكم الكريم .

للرفع ....

السلام عليكم

: اجعل الحقول الثلاثة   

الشركة - المدينة - التاريخ ------>   مفتاحاً أساسياً

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

أرجو أن أكون قد وفقت لفهم مقصدك

أشكركم أخواني بالسلف  و لكم دعاء من خلف

مجالس الإدارة.7z

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

ما أعلمه من خلال تجربتي أنه لا سبيل لحماية قاعدة البيانات - أكسس على الإطلاق 

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

Executive - exe

فحماية القاعدة يكفي معها تعطيل كل الماكرو 

Disable all macros 

من مركز التوثيق 

Trust center 

و من نسخ القاعدة و مع ضغط زر الشفت ستقتحم القاعدة أو بالأحرى 

افتح يا سمسم أبوابك !! 

بانتظار آراء المحترفين 

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

و لكنها في المجموع تحقق المطلوب .

و أخيراً وجدت من يجيب 

شكراً شكراً 

أخي الفاضل 

بارك الله بك 

لقد وجدت الحل للأسئلة السابقة  بعد التجريب و للأسف لم أجد شيئاً في الإنترنت بعد البحث سواء باللغة العربية أو الإنكليزية 

و المشكلة التي تبقت هي إمكانية التحديث المذكورة فإلم تكن ممكنة سأتوقف عن البحث و إن كانت سأضع نسخة مصغرة عن البرنامج و لكن من مكان آخر يتوفر به انترنت سريع  لا يكون ٢٥٦ و بعد الحسميات بالكاد ٥٦

و سرعة الـ

upload 

لا تزال أبطأ من الـ

Download

 مما يضطرني إلى التصفح عبر الهاتف المحمول كونه أخف حملاً و أيسر مؤنة من الحاسوب .

و سأحاول أن أرفع ملفاً طالما أن هناك من شرفني و أسعدني بالالتفات إلى منشوري هذا .

و   أعطاك الله على قدر نيتك .

و شكراً لك 

و ليتك تفيدني إن كان هذا الطلب مستحيلاً مبدئياً .

السلام عليكم 

كيف أقوم بعمل استعلام تحديث لعمود كامل في نموذج مستمر و بقيم مختلفة ؟

لدي نموذج مستمر  فيه مربع نص غير منضم

Unbound textbox 

يحوي معادلة 

dmax 

بشروط تتناسب مع السجل 

و لدي استعلام تحديث ينقل القيم إلى حقل منضم  في السجل الذي أضع المؤشر فيه .

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

 و ذلك بمجرد ضغط زر أو  اطلاق حدث

و ذلك بعد نجاح المعادلة المذكورة في المنشور السابق 

https://www.officena.net/ib/topic/83377-dmax-و-شرط-في-حقل-غير-منضم-في-نموذج-مستمر/

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

كيف أكتب معادلة باستخدام 

Dmax - Dmin ..

مع شروط متعددة باستخدام 

< - >

عند التعامل مع حقل نص أو رقم أو تاريخ 

في حقل غير مرتبط ؟

إنني أحتاج إلى عمل  مربع نص غير مرتبط في نموذج مستمر ( عناصر متعددة )حيث تظهر فيه أصغر قيمة أكبر من حقل في السجل المحدد .

كانت محاولتي على الشكل التالي :

Dmin("[str]"; "tbl1"; "[nam] = [nam1] and # [str] < # " )

بالرغم من نجاح الكود إلا أن إضافة 

And

و ما بعدها عطلت المعادلة مع إظهار 

Error

و قد حاولت استخدام الشرط في شقه الثاني و ذلك مع إضافة # و حذفها  و استمرت المشكلة

و هذا السؤال محاولة لحل المشكلة في سؤالي السابق 

https://www.officena.net/ib/topic/83346-تحديث-قيمة-حقل-في-نموذج-بناء-على-حقل-لاحق/

أرجو المساعدة منكم أخواني وبارك فيكم الله .

يمكنك استخدام الدالة 

Dlast 

نفرض أن الحقل الذي تريد نقل بياناته ( التحديث بقيمته ) 

Start

و الحقل الذي ترغب في تحديثه في السحب التالي هو 

End

ME![end] = Dlast("START","اسم الجدول ")

من الأفضل وضع الحدث 

After-update

لحقل 

start أو

أرجو ألا أكون قد أخطأت فلست ضليعاً بكتابة الأكواد لكن يمكنك الاستئناس بالكود المكتوب .

مع الانتباه إلى أن  قيمة 

End

ستتغير في كل مرة تقوم فيها بتغير حقل الحدث في حال أضفت سجلاً جديداً  .

 السلام عليكم 
أتوجه بداية بالشكر لكم على  منتداكم المميز  ،
و سؤالي ...

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

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

حبذا لو كان هناك كود 

vba 

ينجز المهمة .
و لكم  جزيل الشكر