محمد احمد لطفى

أستاذى @ابا جودى بارك الله فيك الكود يعمل واذا دخلت مرة ثانية بدون الكود اى من الشبكة يطلب الجهاز اليوزر و الباسورد و السبب أنه لا يتذكر الكود و بعد تغيير الى الكود التالى يعمل دائما NetworkObject.MapNetworkDrive "", ServerShare, True, UserName, Password

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

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

ياريت الموضوع ده مهم

تفضل من خلال الرابط التالى https://www.officena.net/ib/topic/51159-دروس-وشروح-وتطبيقات-وأفكار/

استاذى @ابو عارف بارك الله فيك وزادك الله من علمك

من خصائص النموذج و اتجاه كما بالصورة

استاذى @ابو عارف بارك الله فيك ممكن اعرف ما هية هذه الارقام Allrecords = 16000 غير الى: Allrecords = 11500 مشتغلش بس قللتله الى 11000 و يعمل ..., و اقوم بالتجربة الأن ثانيا حاولت فى المرفق أن اقوم بتشغيل من النموذج برقم id ولكنه لا يعمل فالمفترض كنت اضع خليه id النموذج فى الاستعلام و يعمل التقرير مباشرة عند الضغط عليه لا يسألنى عن id ا الا فى حلة تم فتح التقرير من خارج النموذج و هو مغلق ارجو تطبيقها فى المرفق طريقة النموذج (2).mdb

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

أستاذى @ابو عارف اعتذر عن الازعاج اريد التطبيق على المرفق ملفى ولا يكون مرتبط باستعلام او نموذج برجاء مشاهدة المرفق ملفى و بمعنى أن كود واحد يعمل على كافة التقاير بدون تغيير ..., فى مرفق ملفى ( عدد السجلات من التقرير نفسه ) و العمل من خلاله

السلام عليكم ورحمة الله و بركاته أريد ملىء ألى بالسجلات فى التقرير وليس الملئ عن طريق اضافة سجلات فارغة و لكن عن طريق التحكم فى ارتفاع السجلات أو التحكم بإرتفاع التفصيل أستاذى @ابو عارف بالفعل تم تنفيذها و لكنها مرتبطة بالنموذج فى ملف ( طريقة النموذج ) المرفقة و لكن المطلوب تنفيذها على التقرير بحيث أن تكون غير مرتبطة بالنماذج او استعلامات ( بالتقرير فقط ) فتم التعديل على الملف بالفعل و يعمل بطريقة يدوية و لكن أريد تطبيق نفس كود أستاذى ابو عارف لكى يعمل بطريقة الية فى ملف (ملفى) وجزاكم الله خيراً طريقة النموذج.mdb ملفى.mdb

فيه اكتر من ميزة منها توسيط النموذج فى منصف الشاشة و ظهور ايقونة على سطح المكتب

أستاذى @ابو عارف فى هذا التقرير تم حساب عدد السجلات من خلال التقرير نفسه ( ابتعدنا عن الاستعلام وعن النموذج ) هل يمكن الان تنفيذ ملئ الصفحة الان بطريقة الية و أسف على الازعاج test.mdb

تفضل كما طلبت Between Date() And Date()-40 Between Date() And Date()-50

أستاذى العزيز @ابو عارف الفكرة فكرتك وجزاك الله خيراً و لكن هل يمكن الابتعاد عن النموذج بمعنى ان يعمل الكود بين التقرير و الاستعلام مثل هذا المثال المرفق بحيث يعمل الكود فى كلا الاستعلامين بعيدا عن النموذج و اذا لم يكن هناك استطاعه فجزاك الله كل خير test120 (4).mdb

أستاذى @ابو عارف هل هناك جديد بالنسبة للموضوع

جزاك الله خيراً أستاذى

شكراً يأستاذى @ابو عارف

جزاك الله خيرا أستاذى @ابو ياسين المشولي

أستاذ @ابو عارف أقصد أن لا يقتصر الامر على النموذج يكون من خلال الاستعلام فهناك تقرير يعتمد على استعلام تاريخ و هناك تقرير يعتمد على استعلام id وهناك تقرير يعتمد على هذا النموذج مربوط id بالنموذج مع id الاستعلام نحتاج الى كود مرن يعمل على كافة التقاير وجزاك الله خير If Rcount > 37 And Rcount < 100 Then هذا الكود سوف اعمل به مؤقتا وهو يدوى يعنى كل مجموعة ارقام يتم اختيار ارتفاع معين وجزاك الله خيرا على سعة صدرك

شكراً أستاذ @ابو عارف If Rcount > 37 And Rcount < 100 Then

السلام عليكم ورحمة الله وبركاته فى هذا التقربر يحدد اذا كان الرقم الرقم اكبر من 37 بهذا الكود Dim Rcount As Integer Rcount = DCount("*", "Q1") If Rcount > 37 Then تفصيل.Height = تفصيل.Height * 1.8 كف اجعل هذا التحديد بين رقمين مثلا من 37 الى 45 test1201.mdb

بارك الله فيك أستاذى @ابو عارف لى استفسار صغير عندما نفذت على الملف المرفق الاصلى لم تظهر الخطوط كما فى فى الصورة و ملف واريد أن أعرف كيف اجعل هذا الكود بين رقمين للمعرفة If Rcount > 37 Then و أستأذن حضرتك ألا يمكن التنفيذ بعيدا عن ربطها بالنموذج لأن هناك بعد التقارير انفذها بدون نموذج باستعلام التاريخ أو باستعلام بتحديد Id هل يمكن تنفيذها لتعمل على كل انواع التقارير test120 (3).mdb

+ و تلاحظ عند وضع حدود لمربع أن هناك فراغ بين كل سجل بالبحث فى الانترنت هذا الكود مخصص لارتفاع مربع النص Me.serial.Height = "500" Me.الحالة.Height = "500" Me.no.Height = "500" Me.date1.Height = "500" فى المثال الاول كيف اغير القيمة لتصبح بين رقمين If Rcount > 37 Then

أستاذى @ابو عارف جزاك الله خيراً كنت اريد أن اجربها على تقرير عندى و لكن حدث خطأ بعض ان أضفت معيار للتاريخ فى الاستعلام test120 (1) (4).mdb