Hamdi Edlbi-khalf
-
Posts
993 -
تاريخ الانضمام
-
تاريخ اخر زياره
-
Days Won
3
نوع المحتوي
المنتدى
مكتبة الموقع
معرض الصور
المدونات
الوسائط المتعددة
كل منشورات العضو Hamdi Edlbi-khalf
-
بعد إذن أخي أبو ياسين أخي @حسن احمد التميمي أرجو أن يعمل لديك ... اخفاء.accdb
-
قائمة منسدلة معتمدة على قائمة ثانية معتمدة على ثالثة
Hamdi Edlbi-khalf replied to أبو هديل's topic in قسم الأكسيس Access
لقد تصورت السؤال عن أمر مختلف بادئ الأمر -
قائمة منسدلة معتمدة على قائمة ثانية معتمدة على ثالثة
Hamdi Edlbi-khalf replied to أبو هديل's topic in قسم الأكسيس Access
بارك الله بكم ... -
أخواني أعتقد أن المشكلة بعدم عمل الكود أن الأوفيس و ليس النظام فقط هو 64 بت . لعل الأوقيس عند الأخ أبو ياسين 32 و لذلك فإنه لا يعمل لدى الأخ حسن التميمي
-
السلام عليكم أستاذ @Shivan Rekany لقد تم الأمر و الحمد لله ، و جزاك الله كل خير على عونك و صبرك و لطفك في المرفق وضعت زراً باللون الأحمر يقوم بإنجاز تحديث زر الانتهاء باستخدام حلقة تكرارية تنتقل بين أسطر مربع القائمة و لكن مع انتقاله بين السجلات لا يقوم بتحديث الحقل المطلوب بخلاف لو كان التحديث دون حلقة تكرارية الأمر الآخر أنني اضطررت لعمل زر ضمن النموذج الفرعي لتنفيذ المطلوب فهل يمكن تنفيذ العملية مباشرة دون استخدام زر في النموذج الفرعي http://www.mediafire.com/file/3412of2a2jzru5y/%25D8%25A7%25D9%2584%25D8%25A8%25D8%25B1%25D9%2586%25D8%25A7%25D9%2585%25D8%25AC.accdb/file
-
الحمد لله الذي بنعمته تتم الصالحات لقد تم الأمر على خير ما يرام و بطريقة مركبة شغلت فيها زراً عن طريق زر آخر .. شكراً أستاذي @Shivan Rekany
-
السلام عليكم أستاذ @Shivan Rekany لقد توصلت إلى الأمر التالي ME.CB100.SELECTED(1) = true 'اختيار السطر الأول ME.CB100.SELECTED( CB100.LISTCOUNT--2) = true IF ME.CB100.LISTCOUNT = 0 or IF ME.CB100.LISTCOUNT = 1 then me.cb100.setfocus else ME.CB100.SELECTED( CB100.LISTCOUNT-2)= true END IF إضغط و إسحب للتحريك
-
كيف يمكن نقل بعض البيانات من الرئيسي الي الفرعي
Hamdi Edlbi-khalf replied to الحلبي's topic in قسم الأكسيس Access
شكراً للأخوة للمشاركين و للأخ صاحب السؤال .. -
السلام عليكم @Shivan Rekany أعتذر على التأخر بوضع الحل الذي توصلت له .... http://www.mediafire.com/file/9l4l446f4g4jlnx/%u0628%u0631%u0646%u0627%u0645%u062C_%281%29_-_Copy_-_Copy.accdb/file و لكن هناك طلب في حال تم فإن العمل سيغدو مكتملاً إن شاء الله .. و هو اختيار السطر السابق me.listbox.selected (j-1) من المربع غير المنضم عند الضغط على الزر الأحمر ثم إجراء عملية التحديث مما يمكنني من القيام بعملية التحديث على السجلات المطلوبة . حاولت باستخدام الكود السابق بعد تعريف المتغير j و وضع الدالة if إلا أنه لم يعمل ... شكراً لك أخي على مساعدتك القيمة ....
-
الحمد لله من وحي طريقتك وصلت أخيراً إلى الحل ........ أستاذ شيفان المشكلة التي كانت عقبة أمام إيصال الفكرة هي تعقيدات قانونية في إعداد البرنامج و ليست البرمجة في ذاتها. و لا أخفيك أستاذي أني توقعت ألا يحصل هذا الموضوع على اهتمام أعضاء بارزين و خاضة أن الأمر صار أشبه بأحجية عشوائية بلا إجابة منطقية و كل ذلك لأنني لا أعرف كيف أشرح القكرة قانونياً كي أصل إلى حل برمجي ... و ما أوصلني إلى ذلك علوق النتائج في الاستعلام و الذي أدخلني و أدخل من أراد المساعدة في متاهات ... فخلال عملي وصلت إلى أفكار برمجية مقبولة تحقق المطلوب,,,,,, إلى أن وصلت إلى تلك النقطة ... لقد كان علوق النتائج في الاستعلام ما أبحث عن إجابة عنه ، فقد بدا محبطاً للغاية ,,,, بلا سبب,,,,, بلا تعليل ,,,, و كاد ذلك أن يهدم العمل برمته و أعتقد أن المسألة في أصلها ثعرة برمجية ليس من حل لها إلا بالالتفاف عليها . بعد هذه التجربة بات الأمر واضحاً ، فكم من برنامج تم إعداده من شركات برمجة لم ينجح كون الموضوع فيه ما فيه من خصوصية و خفايا قانونية و تعقيدات و الآن أمهلني حتى أعد قاعدة واضحة - على ما اعتقد 😅 - لما توصلت إليه و بقي لدي سؤال عن نفس الموضوع بحاجة إلى مساعدتكم به .. كل الشكر لك كل الشكر لمن قدم المساعدة ....
-
أمر آخر أود أن أضيفه : إن فكرة الاستعلام الذي تفضلت به تحتاج إلى أن أكون قد اخترت الانتخابات التي أرغب بتحديثها . و هو ما لجأت إليه معتمداً على الطريقة التي قدمتها لي سابقاً باستخدام الفيجوال بيزيك .. و هي ذات طريقة الأخ العزيز @AlwaZeeR أن أنسخ قيمة حقل في نموذج إلى حقل آخر مع تحريك الشاشة إلى أسفل ... و لكن لكي يكون الأمر ناجحاً في نموذج فرعي فقد سبقت الأمر بـ ON ERROR RESUME NEXT سأطبق الطريقة على قاعدة البيانات الأساسيةو أخبركم بالنتيجة مبدئياً . لا زالت بعد السجلات تبدي نفس المشكلة!!!
-
الاستعلام تضمن شرطاً على أساس حقل الانتخابات بينما يجب أن يكون على أساس المناصب ... بعد التعديلات عمل لدي الاستعلام ... شكراً لك أستاذ شيفان !! جهد رائع جزاك الله كل خير إلا أنه عند إضافة حقل جديد في النموذج الفرعي فقد عاودت المشكلة للظهور مرة أخرى ....
-
السلام عليكم في الواقع لم يعمل لدي الملف كما هو مبين عندكم في الصورة المرفقة مع الأسف .... بقيت المشكلة القديمة و التحديث الخاطئ!!! أولا - كونه لا يوجد في القاعدة الاستعلام query1 قمت بتغيير الاسم إلى q1 ثانياً - بقيت مشكلة التحديث الخاطئ كما هي ... مع الأسف الشديد !
-
كود يقوم بتشغيل قاعدة بيانات ثانية
Hamdi Edlbi-khalf replied to النهر العطشان's topic in قسم الأكسيس Access
الحمد لله .. بالتوفيق -
انا الأسف ... و اعتذر مجدداً ابدا من النموذج الرئيسي و اكتب به البيانات التي ارغب بها ثم اضغط زر اضافة سجلات فيضيف سجلات على عدد أعضاء مجلس الادارة الموجود في حقل ضمن النموذج الرئيسي و بما أن النموذجين الرئيسي و الفرعي مرتبطان بمجموعة من الحقول .و منها حقل الانتخاب و المناصب فتظهر قيمة حقل الانتخاب و المناصب في النموذج الفرعي و في حقل مربع القائمة في النموذج الرئيسي يظهر تاريخ الانتخاب و المناصب فيه اضافة الو تاريخ الانتخابات و المناصب السابق و الذي عند الضغط عليه يظهر الانتخابات السابقة شكراً مرة أخرى و بارك الله بك .
-
و عليكم السلام و رحمة الله و بركاته في السجل الأول ١/٧/٢٠١٨ في السجل الثاني فارغ
-
هذا الأمر متعلق بطبيعة متطلبات الجهة المسؤولة ، المناصب دائماً تساوي أو أكبر من الانتخابات ، فبعد الانتخاب يتم تعيين المناصب .. أعلم أن ما سبب الإرباك هو كثرة البيانات و غموض دورها... شكراً لك و بارك الله بك
-
السجل الأول يبقى فارغاً السجل الثاني٢٩/٦/٢٠١٨ السجل الثالث ١/٧/٢٠١٧ السجب الرابع فارغ و الله عذبتك معي آسف مجدداً بارك الله بك ..
-
كود يقوم بتشغيل قاعدة بيانات ثانية
Hamdi Edlbi-khalf replied to النهر العطشان's topic in قسم الأكسيس Access
dim accessApp set accessApp = createObject("Access.Application") accessApp.visible = true accessApp.OpenCurrentDataBase("D:\path.accdb") accessApp.Run "myDATABASE" -
تماماً في أحد السجلين هذه النتيجة و لكن في السجل الثاني يجب أن يكون الانتهاء فارغاً لأن المدة الزمنية لم تنتهِ بعد تماماً هذا بالنسبة لأحد السجلين أما السجل الثاني فيجب أن يبقى الانتهاء فارغاً لأن المدة لم تنتهِ بعد .
-
فما أقوم به تحويل اللوحة الى اللغة الانكليزيةثم كتابة عبارة استغفرالله و كان اللوحة باللغة العربية استغفرالله بلا فراغات بين الكلمات
-
شكراً أستاذ شيفان كلمة السر بأحرف إنكليزية استغفرالله تماماً هو المطلوب و لكن ناقص يوم اي بدلاً من ١٣/٩/٢٠١٨ ... سيكون ١٢/٩/٢٠١٨ أستاذي الكريم أولاً شكراً لكم على اهتمامكم و وقتكم ، لقد قمت بتطبيق طريقتكم التي أفدتموني إياها باستخدام زر يحدث البيانات في النموذج الفرعي .. لم تكن مرضية و لكنها تفي إلى حدٍ ما بالغرض و أنا الآن متلهف لما هو أكثر احترافية لكن لدي سؤال لا أعلم إن كانت له إجابة ما السبب بعلوق النتائج في السجلات ضمن الاستعلام ؟ هل هي ثغـرة في الأكسس ؟ و شكراً
-
السلام عليكم لقد أصبح الأمر محرجاً مع عجزي عن إيصال فكرة السؤال و الذي أعتقد أنه معقد في أصله عسى أن تتوج محاولتي هذه بالنجاح لقد رفعت البرنامج مع سجلين في النموذج الرئيسي و أربع سجلات في النموذج الفرعي .. عند مقارنة النتائج قبل ضغط زر التحديث و بعده ستظهر المشكلة التي لم أعرف كيف أعبر عنها اللحظة ... رجاء انظر الى السجلات جميعاً قبل التحديث وقد قمت بإحفاء زر الإضافة لعدم الحاجة اليه في توصيف المشكلة على ما أظن السجلات الأربعة في النموذج الفرعي تظهر في نافذته عن الضغط على التاريخ في مربع القائمة فكل تاريخ من التواريخ في مربع القائمة سيظهر سجل منها . وهي السجلات التي سيتحدث حقل الانتهاء فيها . مثلاً لدى أحدهم قاعات للأنشطة هذه القاعات تؤجر لفترات مفتوحة النهاية ... نريد عند تغيير المستأجر و كتابة تاريخ بداية المدة الجديدة أن يتم تحديث نهاية فترة الإيجار السابقة ببداية فترة الإيجار الجديدة - 1 . المشكلة .. عند التحديث فإن بعض الشقق دون أخرى يعتبر نهاية فترة الإيجار = بداية نفس الفترة - 1 و بالتالي فستظهر النتائج خاطئة . الدالة المستخدمة = DMIN النموذج الذي أعمل عليه ليس ذات المثال و لكن الفكرة هي ذاتها ... الغرض منها بالنسبة للبرنامج الذي أعمل عليه إمكانية إظهار الفترات المتقاطعة و التي نحتاج معها إلى معرفة نهاية المدة . أعتقد أن المسألة برمتها ثغرة بمرجية في sql ضمن الأكسس و قد وجدت بعض الروابط تتحدث عن بعض الثغرات المشابهة إلا أني لم أتوصل لرابط بتحدث عن نفس المشكلة و لعلها متعلقة بحذف السجل من النموذج الفرعي و إضافة سجل جديد حيث ظهرت في تلك السجلات عندما نفذت الإشعار على مربعات نص غير منضمة لم تحدث أية مشكلة إلا عند استبدال الجدول بجدول آخر عندها تظهر مربعات النص error الملف على ميديا فاير نظراً لحجمه ..
-
السلام عليكم في الواقع لم أصل إلى حل المشكلة و هي علوق نتائج الاستعلام في السجلات. أما عن الإشعار بتقاطع المدد فقد عملته قبل الآن بطريقة مركبة و السبب في ذلك هو المشكلة آنفة الذكر .. و الذي تبقى ليكون الأمر على ما يرام هو إيجاد حل المشكلة الأولى حتى أتمكن من تشغيل استعلام الإلحاق .. على أي حال ... كنت أتوقع ألا يكون لهذه المسألة حل حتى لو كان المرفق واضحاً فهي ليست خاصة . الاستعلام يخزن النتائج دون سبب يا لها من قصة محبطة !!! و لكي يتم الأمر فقد لجأت إلى طريقة بديلة أقل كفاءة .. و بالنهاية أشكركم من كل قلبي على مساعدتكم و تشجيعكم شكراً أستاذ @jjafferr على كرمك و طيب خلقك .. بارك الله بك .
-
رابط رائع لم أحظَ به أثناء بحثي فكل النتائج كانت من خلال البحث عن " overlapping " دون جواب شافٍ . في الواقع لقد عملت الاستعلام لدي بطريقة عكسية و حقق المطلوب و لكن بخطوات أكثر اضطررت معها إلى أعمدة مساعدة كاللتي في الإكسل (و لعل ذلك بديل عن الجدول الذي أحتاج إلى نسخه ) ، فبحثت عن الحالات التي يكون فيها تقاطع بين المدد بينما الطريقة في الرابط كانت عن الحالات التي لا يوجد فيها تقاطع كون الشروط أقل من الطريقة الأولى . نعم لقد تم الأمر ... و لو بطريقة غير احترافية وجدت تحويلها إلى أمر vba صعباً لربما يكون الحل مع هذه الطريقة ... و سأحاول بها و أعلمكم بالنتيجة . هذا جدول الإكسل الذي يصف المشكلة ..... لا أعرف ماذا أقول .... أياً كانت النتيجية ففضلك على العين و الرأس و لك الشكر على لطفك لك الشكر على صبرك أخي @jjafferr بارك الله لك و بك و منحك من خير الدنيا و من خير الآخرة و أنعم الله علبك و على ذراريك بما قدمت مضعفاً مضعفاً مضعفاً أضعافاً كثيرة . و صل اللهم على سيدنا محمد و على آله و صحبه و سلم تسليماً كثيراً . tblm.xlsx
