عابر سبيل 2010 قام بنشر أكتوبر 23, 2011 قام بنشر أكتوبر 23, 2011 السلام عليكم ورحمة الله وبركاته والصلاة على سيدنا محمد وعلى اله وصحبه اجمعين اولا اتقدم لجميع القائمين على هذا الصرح الشامخ بجزيل الشكر والذي تعلمت منه الكثير وها انا اليوم اضع بين ايديكم برنامج متواضع امام ابداعاتكم نتيجة ما تعلمته منكم وفي حاجه ماسه الى نصائحكم وارشاداتكم التي لا غنى عنها المطلوب هو كود يقوم بالتنبيه لقرب انتهاء الاستمارات والفحص الدوري ومن ثم تحويلها الى تقرير واقوم بطباعته من نموذج البيانات الاساسيه للسيارات وكلي امل ان اجد المساعده منكم حاولت ارفاقه بالمرفقات ولم استطع لذا قمت برفعه على مركز تحميل حسب ما قرأته بطريقة ارفاق الملفات بالمشاركة البرنامج تحميل الملف السيارات.rar من هنا رابط التحميل في المركز http://www.m5zn.com/...091047tr1zh2nk- السيارات.rar بانتظار نصحكم
أبو آدم قام بنشر أكتوبر 23, 2011 قام بنشر أكتوبر 23, 2011 أخي العزيز في حدث عند الفتح للشاشة الرئيسية (مثلاً) ضع الكود Private Sub Form_Open(Cancel As Integer) Dim intStore As Integer intStore = DCount("[رقم_معرف]", "[data1]", "[تاريخ انتهاء الاستماره] = date() ") If intStore = 0 Then Exit Sub Else If MsgBox("يوجد " & intStore & " استمارة " & _ " سينتهي تاريخها" & vbCrLf & vbCrLf & _ " " & _ " تابع مع المعنين " & _ " ", vbYesNo Or vbExclamation Or vbDefaultButton1, _ " تنبيه .... إستمارات منتهية") = vbYes Then Else Exit Sub End If End If End Sub هذا مثال عام ينبه عندما يكون تاريخ انتهاء الاستمارة هو اليوم ، ويظهر رسالة بعدد الاستمارات يمكنك تعديل الشرط حسب الضابط الذي تراه مناسبا ........... هذا ما خطر ببالي الآن ....... ...........
أبو آدم قام بنشر أكتوبر 23, 2011 قام بنشر أكتوبر 23, 2011 أخي العزيز نصيحة: أسماء الحقول لجميع الجداول بالأحرف العربية وهذا مرهق عند إنشاء الكود حاول التغيير للأحرف الانجليزية
عابر سبيل 2010 قام بنشر أكتوبر 24, 2011 الكاتب قام بنشر أكتوبر 24, 2011 (معدل) كل الشكر والتقدير على ما قدمته ورحم الله والديك ولكن اود معرفة ما قمت به حتى اكون على علم ولقد قمت بوضع الكود وهو يعمل 100% ولكن عندما اقوم بادخال البيانات واذهب الى التقرير يعطيني جميع البيانات الموجودة والمطلوب هو حسب عنوان التقرير فقط المنتهية صلاحيتها كيف يكون ذلك ...؟ تحياتي المعطره تم تعديل أكتوبر 24, 2011 بواسطه عابر سبيل 2010
ابو ياسر قام بنشر أكتوبر 24, 2011 قام بنشر أكتوبر 24, 2011 ان سمحتو لي بمداخلة : بما ان تجديد الاستمارات وايضا تجديد الفحص يتكرر لكل مركبة فأرى من الاولى انشاء جدول فرعي لهذا الشأن اما اظهار فقط المنتهية صلاحيتها فعليك بانشاء استعلام وتضع في المعيار في حقل نهاية الاستمارة أو نهاية الفحص تضع : تاريخ اليوم وتجعل هذا الاستعلام مصدرا للتقرير مع ملاحظة انه عند استخدام هذا الاستعلام قد نستغني عن الكود السابق تحية لاساتذتي في هذا المنتدى الرفيع
أبو آدم قام بنشر أكتوبر 24, 2011 قام بنشر أكتوبر 24, 2011 أخي الحبيب أبا ياسر إستئذانك طيب خلق وأدب ... بانتظار مساهماتك الطيبة ... تفضل .....
ابو ياسر قام بنشر أكتوبر 24, 2011 قام بنشر أكتوبر 24, 2011 اخوي عابر سبيل في المرات القادمة يكفي منك مثال بسيط ، فزيادة الحجم لاشك عبء على المنتدى اليك التعديل بالطريقة التي ذكرتها db3.rar
ابو ياسر قام بنشر أكتوبر 25, 2011 قام بنشر أكتوبر 25, 2011 وهنا تطبيق للطريقة بدون جدول فرعي تنبيه : اكتب تاريخ اليوم في حقل الانتهاء في الجدول ملحوظة : اختصرت المرفق الى اقصى حد db4.rar
عابر سبيل 2010 قام بنشر أكتوبر 25, 2011 الكاتب قام بنشر أكتوبر 25, 2011 تعجز كل كلمات الشكر والثناء على ما تقدموه من نصح لي ولي عودة ان شاء الله فلا غنى عن نصائحكم وارشادتكم تحياتي
الردود الموصى بها
Join the conversation
You can post now and register later. If you have an account, sign in now to post with your account.