rudwan

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

السلام عليكم الأخ أبو عبد الله , أفضل من ارسال البرنامج مرات عديده الى ايميلات خاصه , قم بضغط الملف و أرفقه في المنتدى في قسم التحميل المؤقت , و سيتم نقله الى هذا الموضوع أو أرفقه الى ايميلي الخاص r13532002@yahoo.com و سأقوم بوضعه هنا ليتكن الجميع من الاستفاده منه بارك الله فيك

يقوم المعالج باكتشاف الأخطاء واحدا واحدا , فاذا وجد خطأ ما يقف عنده و يعطيك رقم السطر و العمود كما حدث معك يقول لك الخطأ في السطر 5 - العمود 49 و بعد أن تقوم أنت بتصحيح الخطأ , شغل المصحح مره ثانيه حتى يتأكد أن الخطأ تم تصحيحه أم لا , و في حال لم يتم تصحيحه سيقف عنده مره ثانيه , أما اذا تم تصحيحه فسينتقل الى مكان خطأ آخر

لم افهم ماذا تقصد بكلمة كمين , ارجو توضيح ما طلبت

آنا آسف لقد نسيت الموضوع - اذا كان عندنا على النموذج عدة مربعات تشيك بوكس و نريد معرفة عددها , نضع على النموذج مربع نص وليكن اسمه Count ثم نضع الكود التالي على النموذج Private Sub Form_Current() Dim ctl As Control Dim i As long i=0 For Each ctl In Me.Controls If ctl.ControlType = acCheckBox Then i = i + 1 Next ctl me.count=i end sub أما اذا كان لدينا حقل واحد تشيك بوكس check1 و نريد معرفة عدد السجلات الصح فيها count=dcount("check1","MyTABLE","CHECK1=-1") و هذا يعطي عدد السجلات الصح في هذا الحقل و آسف مره أخرى على التأخير تحياتي

أنا شرحت طريقة تحويل التاريخ الى ميلادي لملف الأكسس و ليس لجهاز الكمبيوتر تحياتي

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

تعمل نموذج مبني على جدول المستخدمين و كلمات المرور , بحيث يفتح النموذج على اسم المستخدم , و يكون له الحريه في تغيير كلمة المرور الخاصه به

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

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

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

شكرا على جهودك يا أخ مالكي و جزاك الله خيرا

هل قمت بتصميم أي جزء من البرنامج اذا كان كذلك أرجو ارفاقه في قسم التحميل المؤقت تحياتي

انشىْ جدولا جديدا distribut , و قم بتعريف مجموعة سجلاته ضمن كود الاختيار العشوائي و افتح مجموعة السجلات هذه , ثم عند اختيار أي رقم SelectedNumber يتم تخزينه في ذلك الجدول في الحقل MyNumber Dim rf As dao.Recordset Set rf = CurrentDb.OpenRecordset("distribut") rf.AddNew rf![MyNumber] = SelectedNumber rf.Update

فكرة البرنامج جميله وفقك الله لكن للاجابه على سؤالك لابد من معرفة كيف تتم صرف الكميات في البرنامج أو بكلمة ثانيه , تفاصيل أكثر عن الجداول , أو اذا كنت ترغب في ادارج الملف ضمن قسم التحميل المؤقت لامانع تحياتي

وفقك الله و رعاك أخي خضر و كلنا بانتظار جديدك تحياتي

أرفق ملفك في قسم التحميل المؤقت

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

طيب مالذي تريد أن تفعله بالضبط ؟

الصوره غير واضحه

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

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

هذا مثال للبحث التلقائي بمجرد الكتابه من عمل أستاذنا أبو هادي AutoTypeSearch.rar

أهلا بك أخي الكريم الأصل أن تضع أنت مثالك و يتم التعديل عليه على كل حال اذا كان تاريخ البدايه BeginDate تاريخ النهايه EndDate ضع هذا الكود في حدث ما قبل التحديث للتاريخ الأخير private sub EndDate_BeforeUpdate() if datediff("d",BeginDate,EndDate)>14 then msgbox " Period Must Be Less Than 14 Days " me.undo end if end sub

استخدم الداله randomize كما يلي : Dim MyValue Randomize ' Initialize random-number generator. MyValue = Int((30 * Rnd) + 1) ' Generate random value between 1 and 30.