نجوم المشاركات

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

الاستاذ الفاضل // محمد طاهر السلام عليكم ورحمته الله ويركاته والله ياأخى أشعر وكأننى يتيم بدون هذا الصرح العظيم للأسف لم يتم فتح الرابط We could not locate the item you are trying to view عفوا لم نتمكن من العثور على طلبك جارى رفع الموضوع مرة أخرى والله المستعان تقبل وافر تقديرى واحترامى وجزاكم الله خيرا

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

اتفضل استخدم هذا الكود اخي If DCount("[id]", "Table1", "[to]<=" & 0) >= 1 Then MsgBox "هناك ترقيات يجب مراجعتها" End If لكن اضف سجل واحد لكي الحقل to بيكون يساوي صفر تحياتي اليك ملفك بعد تعديل ترقيات.rar

هههههه تمام اخي جرب اللي انا قلت لك ووافيني بالنتيجة

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

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

اليك هذا الكود Private Sub Form_KeyDown(KeyCode As Integer, Shift As Integer) Select Case KeyCode Case 122 KeyCode = 0 End Select End Sub لكن لازم تتغير خاصية Key Preview الى نعم للنموذج او يجب تستخدم هذا الكود معه Private Sub Form_Open(Cancel As Integer) Me.KeyPreview = True End Sub تحياتي

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

اضف الى الكود * 0.5 اي الكود سيتغير الى DoCmd.MoveSize Height:=Me.WindowHeight - (Me.ÊÝÕíá.Height * 0.5)