mrnooo2000

اخى العزيز الامور لا تتأتى بهذا الشكل تم التعديل على المرفق باضافة قائمة منسدلة للبحث و الاستغناء عن الاستعلام dt_1.rar

تفضل اخى اليك تعديل لما تريد بارك الله فيك اخ عمانى لم ارى مشاركتك الا بعد ارسال مشاركتى عموما اخ ابو عبد الله امامك الحل فى شكلين مختلفين اختر ما شئت ‫ارقام التسلسل المفقودة -للتعديل.rar

نعم اخى عندك حق Dim stLinkCriteria As String Dim rs As Recordset Set rs = CurrentDb.OpenRecordset("query1", dbOpenDynaset) rs.MoveLast rs.MoveFirst For i = 1 To rs.RecordCount If txtCount > 10 Then stLinkCriteria = "[æÇÑÏ ÑÞã] =" & Me![æÇÑÏ ÑÞã] DoCmd.OpenRepo…

اليك اخى ما طلبت تم اضافة جدول من خانة واحدة لحفظ اسم النموذج فيه p1startnet14-6_4.rar

ضع هذا الكود فى حدث عند الفتح للتقرير DoCmd.Maximize

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

كل عام و جميع المسلمين بألف خير وعسى الله ان يأتى رمضان القادم و المسلمين أحسن حالا http://www.almesryoon.com/news.aspx?id=38807

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

تفضل اخى هذا يسمى استعلام تجميع Test.rar

لو دققت فى الكود لوجدت ما تريد Dim stLinkCriteria As String Dim rs As Recordset Set rs = CurrentDb.OpenRecordset("query1", dbOpenDynaset) rs.MoveLast rs.MoveFirst For i = 1 To rs.RecordCount If txtCount > 10 Then stLinkCriteria = "[æÇÑÏ ÑÞã] =" & Me![æÇÑÏ ÑÞã]…

ارفق الملف بتنسيق 2003

بالبسبة لى الترتيب مش مهم المهم تحدد انت عايز ابه و بالتأكيد لو انهيت بناء الجداول و الاستعلامات بالشكل الصحيح تكون انهيت 90 % من البرنامج لان بناء النماذج و التقارير سيكون سهل بعد ذلك عموما النماذج تعتبر اسهل جزء فى الموضوع لذلك سنبدأ بالاستعلامات لانك ستحتاج…

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

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

اخى الان انا فهمت انك تريد تغيير الجدول الذى يتم الادخال به كل شهر اذا كان كذلك فالامر بسيط فقط غير اسماء الجداول الى أرقام الشهور اى 1و2و3و4و....... ثم فى حدث عند فتح نموذج الادخال ضع الكود التالى me.recordsource=month(date) و لكن يجب ان تكون مسميات الحقول فى…

هذا هو التعديل و لكن غير اسم مربع النص انا وضعت اسم txtcount Dim stLinkCriteria As String Dim rs As Recordset Set rs = CurrentDb.OpenRecordset("query1", dbOpenDynaset) rs.MoveLast rs.MoveFirst For i = 1 To rs.RecordCount If txtCount > 10 Then stLinkCriteria = …

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

اليك اخى هذا المرفق و به فكرة لاخفاء سهم الكومبو اذا لم يكن عليه التركيز للتطبيق: 1- ضع كومبوبوكس بالنموذج 2- ضع فوقه مربع نص (لابد ان يكون هو الاعلى ) من قائمة format اختار send to front 3-اجعل مصدر مربع النص هو نفس مصدر الكومبو حتى الان لا يوجد اكواد فقط كود…

اخى الكريم بارك الله فيك و جزاك خيرا فبالرغم من ان الفكرة فى حد ذاتها قديمة و عرضت من قبل فان طريقة التنفيذ رائعة و جميلة

كلامك صحيح و دا كن سهو منى عموما تم التعديل على الاستعلام ..................... مرة تانيه Database1.rar