أبو هادي

السلام عليكم أشكرك كثيرا عزيزي hs889 على اهتمامكم وسرعة تجاوبكم . حاليا توصلت لحل مؤقت وهو استخدام الأشكال الآلية Auto Shapes ولكنها لا تصبو إلى كل القبول . لازلت أطمع بحلول أخرى ، بارك الله فيكم جميعا . تحياتي .

السلام عليكم أود معرفة إرفاق كائن يحتوي على رسم دائرة واحدة أو أكثر أستطيع أن أحركها بالكود عن طريق السين والصاد أي الـ X و الـ Y . بانتظار إجاباتكم . تحياتي .

السلام عليكم Function GetStr(ByVal Num As Variant) As String Dim Ln As Integer, K As Integer Dim NewStr As String GetStr = "" If Not IsNumeric(Num) Then Exit Function Ln = Len(Num) For K = 1 To Ln NewStr = NewStr & Chr(Mid(Num, K, 1) + 96) Next K GetStr = NewStr End Function تحياتي .

السلام عليكم تستطيع أن تستخدم هذه الدالة : = CHAR(1 + 96) مع ملاحظة أنه يجب إضافة رقم 96 مع أي رقم تريده . مثلا إذا أردت رقم 1 ستكتب 1 + 96 وإذا أردت رقم 9 ستكتب 9 + 96 كذلك هذه دالة بالفجوال : Function GetLetter(ByVal Num As Integer) As String 'GetLetter = Chr(Num + 64) ' for capital letters GetLetter = Chr(Num + 96) ' for small letters End Function تحياتي .

السلام عليكم لتحويل رقم إلى وقت إقسم الرقم على 24 ولا تنسى تنسيق الخلية يكون تنسيق وقت . ولتحويل وقت إلى رقم إضرب الوقت في 24 ولا تنسى تنسيق الخلية يكون تنسيق رقمي . تحياتي .

السلام عليكم أشكركم كثيرا أخي رضوان للمتابعة واسمح لي أؤجل ردي حتى انتهاء الإصدار الجديد . تحياتي .

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

السلام عليكم Date = #3/17/2006# تحياتي .

السلام عليكم أشكرك أخي أحمد العيسى على مرورك وعلى ملاحظاتك القيمة . غالبا لا تنفي العدم فمثلا في بعض برامجي يكون هناك 4 نماذج فرعية . عند تصميمك النموذج سوف يستقي الأسماء التوضيحية من الجدول وبالتالي الكود سوف يقوم بقراءتها وهي تظهر في الـ Combo Box كالتالي : تسمية : وهي عادة التسمية التابعة للأداة . إسم : وهو إسم الأداة . مصدر : وهو مصدر الأداة أي إسم الحقل . وهذه الثلاث خواص هي المتوفرة في كل إداة ، مع ملاحظة أن مصدر السجلات يمكن أي يكون استعلام وتكون أسماء الحقول فيها مختلفة عن الجدول المصدر الأساس . تحياتي .

السلام عليكم جيد أخي رضوان .. عزيزي لاحظ أن المثال به كائنين أصيلين فقط وهما النموذج الرئيس وجدول الإفتراضيات ، أما البقية فهي عينات فقط للتجارب وليس لها أي علاقة ارتباط بالمثال . وفكرة التطوير التالية إن شاء الله كالتالي : 1 - أن يكون النموذج منفصلا كنموذج البحث التابع للأكسس ويستدعى بزر أو بأي طريقة مشابهة . 2 - وضع كود لفحص وجود جدول الإفتراضيات وإنشاؤه في حال عدم وجوده . 3 - وهي ما اشرت لها من قبل في مناقشتي معك وهي : أن أقوم بتحديد أو تظليل مركب ولكن على شكل دفعات ، فمثلا يقوم بالبحث في الحقل الأول ثم يختار عمود آخر بدون تنظيف التظليلات السابقة ويبحث مرة أخرى ويحصل على تظليلات أخرى بالعمود الثاني وهكذا . 4 - وضع زر لتنظيف كل التظليلات . تحياتي .

السلام عليكم كما يمكن استخدام أداة تتيح لك عمل Sharing للماسح كطريقة الطابعة . هناك نسخة تجريبية ونسخة كاملة بـ 59 دولار أمريكي على الوصلة التالية : http://www.topshareware.com/Capturix-ScanS...nload-39582.htm تحياتي .

السلام عليكم تم تنقيح الكود ، وتم تبديل الملف المرفق بالمشاركة الأولى . تحياتي .

You're Welcome

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

السلام عليكم نموذج بحث مطور كثيرا . البحث بطريقتين : 1 - تحديد السجلات بتظليلها بلون آخر ولكنها ظاهرة بدون تصفية وقد أضيف لها اظهار عدد السجلات . 2 - تصفية . وقد تم تطوير الكود بشكل جذري حتى لا تترك الحاجة للمطور أن يبدل أو يغير بالكود ، فقط على المطور أن يضيف أي نموذج فرعي . كما أن النموذج يستطيع أن يتعامل مع أكثر من نموذج فرعي والتنقل بينها بسهولة . أرجو التجربة وإبداء ملاحظاتكم . تحياتي . الملفات المرفقة Search_Sort_20060313.rar ( 39.66ك ) عدد مرات التنزيل: 12 Search_Sort_20060314.rar

السلام عليكم مرفق المثال بعد التعديل . لقد حاولت أن أعدل مباشرة بتقريرك ولكني رأيتني في متاهة ، فقمت بالتعديل على التقرير القديم . يمكنك الآن إضافة اللمسات الجميلة إليه كما تقريرك . أختي الكريمة ، لا تقومي بحذف أي جزء من الكود وخصوصا ما يتعلق بالخطوط فجلها احترازيا لضبط الخطوط في حال فقدت دقة تنسيقها بسبب التعديل على التقرير . صحيح وخصوصا استعلام Crosstab وذلك لحاجة المحرر التعرف على الحقول المتوفرة وتجهيزها للمصمم ومنها مثلا قائمة الحقول التي نختار منها مباشرة في حال أردنا إضافة حقل جديد . وللتخلص من هذه المشكلة عند التصميم حاولي إزالة مصدر السجلات من التقرير ، وبعد الإنتهاء يمكنك إعادة المصدر مرة أخرى . تحياتي . lyla_20060312.rar

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

السلام عليكم إذا كانت 3 في 1 فيكفي تعريف الطابعة . الحقيقة أنا بعيد عن الشبكات منذ فترة ولا أستطيع أن أقوم بأي اختبارات . تبقى ملاحظة بسيطة وهي لا بد أن تكون الطابعة شغالة . تحياتي .

السلام عليكم المثال بعد التعديل . تحياتي . lyla_20060311.rar

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

السلام عليكم مرفق المثال بعد التعديل مع ملاحظة أن البارامتر يكون على شكل شهر وسنة مثل : yyyy-mm yyyy/mm mm-yyyy mm/yyyy تحياتي . lyla_20060310.rar

السلام عليكم تم تصميم الاستعلامات حسب ترتيبها أدناه : QryScheduleFullMonth هذا الاستعلام لدفع ظهور 31 يوم كاملا حتى ولم يكن هناك بيانات في بعضها وذلك بربطه بجدول Days . QrySchedule هذا استعلام توحيد Union لدفع ظهور السجلات مرتين ، مرة بالساعات ومرة بالدقائق لتكييفها مع شكل التقرير المطلوب . QrySchedule_Details هذا استعلام Crosstab حتى تظهر الأيام على شكل أعمدة . QrySchedule_Total هذا استعلام مبنى على استعلام QrySchedule_Details وهو لمنع ظهور سجلات بدون اسم والتي تظهر بسبب وجود أيام بدون بيانات . أما السؤال الأخير فأحيله لأخواني المشرفين الكرام . تحياتي . lyla_20060309b.rar

السلام عليكم بعد إذن أخي رضوان أستسمحه بإرفاق المثال بعد التعديل . تحياتي . lyla_20060309.rar

السلام عليكم المثال بعد التعديل أخي أحمد العيسى . تحياتي . Search_Sort.rar

السلام عليكم لمعرفة أيام الشهر : myDate = #10/10/2006# MonthDays = day(DateSerial(year(myDate), month(myDate) + 1, 1) - 1) MonthDays = IIf(MonthDays > 30, 30, MonthDays) ويمكن اختصاره الكود كالتالي : myDate = #10/10/2006# MonthDays = IIf(day(DateSerial(year(myDate), month(myDate) + 1, 1) - 1) > 30, 30, _ day(DateSerial(year(myDate), month(myDate) + 1, 1) - 1)) تحياتي .