rudwan

السلام عليكم أخي الكريم فتحت الملف , و لكن اعذرني ان لم أستطع عمله لك بسبب انشغالي الكامل لكن اليك الاجابه : أولا بالنسبه لجمع مده : فيمكن أن تضع معادله كالآتي : عدد الأيام الكلي = ( مجموع السنوات * 365) + (مجموع الأشهر * 30) + مجموع الأيام تحويل الى تنسيق سنه - شهر - يوم : سنه = الجزء الصحيح من قيمة ( عدد الأيام الكلي / 365 ) شهر = الجزء العشري من المعادله السابقه * 12 يوم = الفرق بين عدد الأيام الكلي و عدد الأيام المستخرج من التنسيق أعلاه ( سنه - شهر) مثال : يوم شهر سنه 15 3 2 12 4 3 عدد الأيام الكلي = ( 5 * 365 ) + (7 * 30 ) + 27 = 2062 يوم تنسيق : سنه = 2062 / 365 = 5.649 اي نأخذ الرقم خمسه شهر = .0.649 * 12 = 7.788 نأخذ الرقم سبعه عدد الأيام الجزئي = 2062 - (( 5 * 365 ) + ( 7 * 30 ) ) = 27 يوم و يكون الناتج : 27 يوم - 7 شهر - 5 سنه و بالنسبه للطرح تعمل نفس المعادله لكن تجعل للطرف الثاني اشاره سالبه و الله ولي التوفيق

السلام عليكم هل غيرتي اي تنسيق لأي حقل في النموذج ؟ اذا لم تغيري فيه اي شي , أرسلي لي الملف الجديد على ايميلي لأراه

السلام عليكم هذا الملف الأخير بعد التعديل لاحظ النموذجين : الأرصده : و من خلاله يتم ادخال الأرصده الأصليه و دفعاتها في النموذج الفرعي و في الأسفل المجاميع تفاصيل أرصدة العملاء : و من خلاله تستطيع معرفة بيان الأرصده و الدفعات ttt[1].mdb.zip

ياشباب صدقوني وقت فراغي اصبح ضيق لبعد الحدود عندنا الحسابات الختاميه للشركه و ما قادرين تننفس أمس عملت موضوع تنسيق الشعر , و اليوم بعمل موضوع اللي عنده حسابات ايجارات و بكره ان شاء الله أعمل موضوعك تحياتي للجميع

يا أخي عد الى مشاركتي الأخيره حيث عدلت الكود الظاهر أنك ما انتبهت الى التعديل F=dmin("perNo","MyTABLE","MyDate <" &Date) K=DLOOKUP("EmpName","MyTable","PerNo= "& f)

السلام عليكم و أخيرا ,,, هذه معادلة تنسيق ابيات الشعر انظري الملف المرفق ملاحظات : تركت الحقول و النماذج التي أرسلتيها كما هي بدون اي تعديل - الجدول المستخدم هو الجدول رقم 1 , و يتم تعبئة أبيات الشعر في الحقل verse فقط أما الحقلين first - second فالكود يقوم بتعبئتهما آليا من خلال تقطيع البيت الى شطرين شطر أول و شطر ثاني - النموذج المستخدم هو النموذج رقم 2 , في حال أردتي نسخ النموذج , أرجو عدم تغيير تنسيق الحقول التي فيه , حيث توجد حقول نص مخفيه , و أخرى ظاهره , و في حال تغيير اي منها سيعطي رسالة خطأ - لابد من وضع اشارة " = " بين كل شطر من أبيات القصيده poetry.rar

السلام عليكم بانتظار رد أبو هادي , أعتقد أن النموذج الذي عملته أنت هو الذي تقصد به النموذج الرئيسي , نموذج المدن , طيب في هذه الحاله , هل ستتم اضافة و تعديل المدن و الولايات و الدول على نفس النموذج أم سيكون هناك نماذج مستقله للاضافه و التعديل و الحذف ؟ ثانيا / أقترح بالنسبه للولايات , أن تتم اضافتها لكل الدول و نعتبر المحافظه أو المنطقه أو الاماره هي الولايه مثلا السعوديه , صحيح ليس فيها ولايات , و لكن يمكن أن نعتبر امارة الرياض " ولايه " و في المدن ندرج مدينة الرياض , و من أحب أن يتوسع يستطيع ادخال بقية المدن التابعه لامارة الرياض .

عفوا , الكود الأخير الذي وضعته أنا غير صحيح K=DLOOKUP("EmpName","MyTable","PerNo= "& f and "MyDate <" &Date) لأنه في هذه الحاله لو كان الموظف الذي في اجازه هو صاحب أقل عدد , فلذلك لن يتم اختياره بواسطة هذا الكود . كان من المفروض أن يكون الكود الأول كذلك F=dmin("perNo","MyTABLE","MyDate <" &Date) و عليه يتم اختيار علي بدلا من سعيد ثم يأتي الكود الثاني : K=DLOOKUP("EmpName","MyTable","PerNo= "& f)

يمكن اضاقة شرط آخر الى الكود وهو أن يكون التاريخ اقل من التاريخ الحالي اي K=DLOOKUP("EmpName","MyTable","PerNo= "& f and "MyDate <" &Date) و الأحسن تعمل استعلام تضع فيه شرط التاريخ المطلوب ثم تغير اسماء الجدول في المعادلات الى اسم الاستعلام

ضع هذا الحدث عند تحميل النموذج private sub form_load() docmd.maximize end sub

الأستاذ أبو هادي اسعد الله أوقاتك ماهي خطة البرنامج , - هل النموذج الذي أرفقته أنت هو نموذج البحث و الاضافه للمدن فقط , و عليه سيكون هناك مثله للولايات و آخر للدول ؟ و سيكون لعرض أوقات الصلاة ( النموذج الرئيسي ) نموذج رابع ؟ - و بالنسبه لنموذج المدن شكله جميل , لكن ألاحظ وجود حقول نصيه للمدن و اعتقدت أنك ستجعل الاضافه عن طريق نموذج فرعي يعتمد على استعلام المدن . - ثانيا : مرفق المثال الذي عملته أنا قبل أن تضع أنت الملف الجديد و هو بحاجه طبعا الى تعديلات في الشكل و في الحساب ايضا .( و هو للاطلاع فقط ) هل يمكن أن يكون النموذج الرئيسي قريبا الى هذا التصميم تحياتي الملفات المرفقة Pray.rar ( 304.75ك ) عدد مرات التنزيل: 22

أولا :لماذا لا تجمع الحقول الأربعه الخاصه باليوم و التاريخ و السنه و الشهر في حقل واحد و تسميه تاريخ الزياره , و يتم تنسقه تنسيق طويل : اسم اليوم - اليوم - شهر - سنه ثانيا : لم توضح ماهي الطريقه التي تريد أن لا يتكرر بها تاريخ الزياره هل تريد عدم تكرار الزياره مره ف ياليوم أو الاسبوع أو الشهر أو السنه كيف تريد أن تبني الشرط الخاص بالتاريخ بالنسبه للمدرسه لوحدها كما قلت لك يمكن أن تجعل رقم المشرف و رقم المدرسه مفتاح أساسي , لكن لا بد أن تعرف الشرط الخاص بالتاريخ أولا

راجع الموضوع : http://www.officena.net/ib/index.php?showtopic=4729

يا أبو نعيم , جزاك الله خيرا أنت و الأخ رغيد و الله أشكال حلوه و مميزه و لكن دائما نطمع بالمزيد , هل يمكن اضافة اشكال أخرى للأزرار مثل البيضوي و الدائري أو بعض الأشكال الأخرى مثل الموجوده على الانترنت ؟

هذا مثال موجود في المنتدى , و أذكر كان موضوعا من قبل الأستاذ محمد طاهر و لكن لست متأكدا بالضبط من الذي صممه هل هو نفسه أم غيره افتح الملف بمفتاح الشيفت لترى الأكواد والتصميم Vications.rar

أخي العزيز أولا : لو كنت أوضحت بنية الجدول عندك كان أحسن . أولا : اذا كنت تريد منع التكرار نهائيا للسجل , فاجعله مفتاح اساسي ثانيا : اذا كان يوجد للحقل مفتاح اساسي و تريد حقل آخر أن لا يتكرر نهائيا, فاجعل خاصيته indexed غير مكرر , ثالثا : اذا كان يوجد للحقل مفتاح اساسي و تريد حقل آخر أن لا يتكرر في نفس عائديته للحقل الأساسي الأول , مثلا لديك جدول فواتير , فيه الحقلين رقم الفاتوره , رقم الصنف اذا كنت تريد رقم الصنف أن لا يتكرر مرتين في نفس رقم الفاتوره , فاجعل كلا من رقم الفاتوره و رقم الصنف مفتاح اساسي رابعا : اذا كنت تسمح بالتكرار و لكن تريد فقط معرفة هل تكرر هذا السجل أكثر من مره أم لا , و كم عدد مرات التكرار , يمكنك استخدام المعادله التاليه و تضعها في الوحده النمطيه: Function Repeated(FldName As Long) As Boolean If (DCount("FldName", "YourTbl", "[FldName]=" & CStr(FldName))) > 1 Then Repeated= True Else Repeated= False End If End Function والآن ارجع الى النموذج ,و ضع فيه عنصر تشييك , و ليكن اسمه NumOfCount و اجعل مصدر بياناته كما يلي : (Repeated(fildnam افتح النموذج أو الاستعلام , اذا وجدت أحد حقول الجدول فيه عنصرالتشييك صح , يعني أن هذا العنصر تكرر أكثر من مره

بالاذن من الأخ طيف الأخت راويه تقصد أن الاستعلام1 مصدره الجدول1 نفسه , و لكن بشرط مختلف ممكن تضعين زري أمر في النموذج الأول : بيانات كل الطلاب و تضعين فيه هذا الحدث private sub Tot_click() me.recordsource="جدول1" End Sub الثاني / بيانات الطلاب الراسبين : private sub SomeTot_click() me.recordsource="استعلام1" End Sub و بالضغط على أي من الزرين يتم عرض البيانات المطلوبه لكن بشرط أن تكون كل البيانات المعروضه في النموذج موجوده ضمن الاستعلام , حتى لا يرسل رسالة خطأ وجود عنصر غير معرف

أولا حساب اقل قيمة معاملات F=dmin("perNo","MyTABLE") ثانيا :استخراج رقم الموةظف K=DLOOKUP("EmpName","MyTable","PerNo= "& f) على أساس : PerNo عدد المعاملات و عدل قيم الحقول بما عندك في الجداول

جرب ttt[1].mdb.zip

أخت راويه وصلني ايميلك لكن هذه الأكواد جاهزه في تنسيق ال HTML و كذلك الوورد و لم أرى فيها برمجة أكواد , و لم تفيد في شي على كل حال وجدت أداة تعمل تنسيق , ممتازه جدا , تستطيعين تحميلها من الرابط أدناه و لكن المشكله أنها لم تتعرف على اللغة العربيه . أداة تنسيق النصوص

السلام عليكم مره أخرى أستاذنا ابو هادي نراك تقدم المزيد و المزيد , و على مايبدو أنك ستصممه كله لوحدك , و هذا ما كنت تخشى أن تصل اليه نظرا لانشغالك في ما أنت فيه الآن . و لكن أحببت أن أذكر لك أن ما أخر اي مشاركه لي في هذا الموضوع أنه واجهتني مشكله البيانات . حيث بحثت في الانترنت وجدت مواقع عديده فيها امكانية البحث فقط عن بيانات المدن و الولايات , و لم أجد سوى موقع واحد فيه قاعدة بيانات كامله عن 7 ملايين مكان في العالم الا أن تحميلها يستلزم 1059 $ و بعد مراسلتهم حصلت على عينه من 1000 منطقة مختلفه من العالم ( المستوى السابع من التقسيم الاداري للمدن يعادل مستوى قريه صغيره من كل دوله ) . وقد عملت الجداول و النموذج الخاص بها , و هي جاهزه و ينقصها فقط نموذج البحث .

بالنسبه للاستعلام عن أقل قيمه في حقل معين افتح صفحة تصميم الاستعلام و ليكم لديك الحقلين : prod,amount SELECT Count(mytable.Prod) AS CountOfProd, Min(mytable.Amount) AS MinOfAmount FROM mytable; أما بالنسبه لاختيار قيم عشوائيه يوجد الكود التالي : Dim MyValue Randomize MyValue = Int((6 * Rnd) + 1) يختار لك قيم عشوائيه بين الواحد و السته تستطيع تطبيقه على مثالك بأخذ رقم آخر سجل عندك ( تعليمة max - مشابهة لتعليمة min ( و تضع قيمة أكبر حقل بدل السته في المثال أعلاه ,

الأخ عبد الله هلا أرفقت لنا مثالا على تطبيقها على الأكسس ؟ مع الشكر

يا أخي سؤالك مش صعب و لا حاجه فيه أكواد بسيطه تعمل اللي أنت عايزه ضع الكود التالي في النموذج الرئيسي , و غير الأسماء التي فيه الى ما يقابلها عندك Private Sub MyComboBox_AfterUpdate() If IsNull(Forms("Form1").Controls("Textbox1").Value) Then Forms("Form1").Controls("Textbox1").BackColor = RGB(255, 0, 0) End If End Sub أواذا أردت أرفق ملفك على الايميل التالي R13532002@YAHOO.COM

انظر ملفك بعد التعديل النموذج query1 و بعدين عدل تنسيق النموذج على كيفك ttt[1].mdb.zip