محمد طاهر

الي الاخ yesno و الاخ اكسس اكس بي ان لم أكن مخطئا ، فقد تم التعديل للدالتين أعد التنزيل و أخبرني بالنتيجة ;) ;)

أهلا بعودتك http://www.arabteam2000.com/vb/showthread....highlight=Shift و يوجد أيضا أكثر من موضوع ناقش اظهار و اخفاء الجداول بالكود خلال الفترة الماضية http://www.arabteam2000.com/vb/showthread....%2A%D9%E5%C7%D1

للرفع بدأت فى عمل مثال يوضح أكثر من طريقة و أرفع الموضوع حتي لا أنسي

تم عمل تعديل مؤقت فى الدالة أبو حمود 2 كي لا تتوقف عند ادخال 3 أرقام عشرية و التعديل المؤقت لايقافها فقط و تم تحديث الملف فى الدالة أبو حمود 2 في البداية Public Sub تحويل_الرقم_كتابة2() On Error GoTo Myerror و قبل النهاية مباشرة Exit Sub Myerror: الرقم_كتابة2 …

تم عمل تعديل مؤقت فى الدالة أبو حمود 2 كي لا تتوقف عند ادخال 3 أرقام عشرية و التعديل المؤقت لايقافها فقط و تم تحديث الملف فى الدالة أبو حمود 2 في البداية Public Sub تحويل_الرقم_كتابة2() On Error GoTo Myerror و قبل النهاية مباشرة Exit Sub Myerror: الرقم_كتابة2 …

بالفعل الدالة بعد التعديل تتجاهل آخر رقم (الآحاد ) سأحاول ثانية عند كتابة ثلاث أرقام عشرية تظه ررسالة خطأ خاصة ب الدالة رقم 2 لأبو حمود ، أما دالة التفقيط الكويتي فتتجاحل الآحاد

If MsgBox(" لا يوجد محددات للبحث هل موقف طباعة التقرير , و الا ستطبع جميع البيانات ", vbYesNo, _ " تأكيد اختيار محددات البحث") = vbYes Then Cancel = True SendKeys "{ESC}" Exit Sub End If

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

للتأكد انه فى البداية Private Sub Command13_Click() If MsgBox(" áÇ íæÌÏ ãÍÏÏÇÊ ááÈÍË åá ÊÑíÏ ÇÙåÇÑ ÌãíÚ ÇáÓÌáÇÊ ", vbYesNo, _ " ÊÃßíÏ ÇÎÊíÇÑ ãÍÏÏÇÊ ÇáÈÍË") = vbNo Then Cancel = True SendKeys "{ESC}" Exit Sub End If On Error GoTo Err_Command13_Click 'MsgBox MyC…

ان جملة Exit Sub توقف تنفيذ ال SUB بالكامل فاذا وضعت الكود السابق فى بداية الكود الخاص بالطباعة فلن يطبع التقرير فقط تأكد انه فىالبداية

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

تحميل الملفات الي المنتدي لا يعمل ضع الملف فى صفحة مجانية أو اشرح بوضوح اكثر

اعتقد ان كانت النسخة الموجودة قبل الاسترجاع متاحة ، فستكون فرصتها أفضل أو جرب استرجاع الملفات للبرنامج آخر مثل Final Data و موجود روابط له فى قسم الدعم الفني

وصلة المثال المذكور غير موجودة أرجو ممن لديه المثال أن يضعه

للأسف يبدو أن الملف تالف حاولت معه و لم أنجح بعد

يوجد فى أنواع الاستعلامات فى وضع تصميم الاستعلام Make Table Query

هذا طبيعي فمادمت لم تحدد محدد للبحث ، فالطبيعي أن يظهر كل البيانات أما ان لم تكن تريد ذلك: فضع الكود التالي فى حدث فتح التقرير ليعطي رسالة و يمنع فتح التقرير فارغا ، لانه من غير المفيد فتح تقرير بلا سجلات If MyCriteria = "" then msgbox "no criteria selected" e…

http://www.arabteam2000.com/vb/showthread....53034#post53034

http://www.arabteam2000.com/vb/showthread....53034#post53034

*فورم* : مثال علي التفقيط بلاكسس + تقسيم الارقام الي خانتان مثال علي التفقيط بالاكسس ، يحوي عدد كبير من الدوال و تم اضافة التفقيط بالثلاث خانات ( للعملة الكويتية ) و أيضا يحوي علي تقسيم الرقم الي جزئين بعد ادخاله علي الفورم أو فى الاستعلام بحسب طلب الأخوة فى م…