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

جزاك الله خيرا أستاذى سأقوم بتجربتها غدا على الشبكة و هل يمكن أن تكون البيانات فى الوحدة النمطية أيضا Call OpenServerConnection("\\corp-server\HostingFolder", _ "mydomain\myuser", _ "freddie123") و يتم منادتها فى النموذج مثل هذا الكود فقط Call OpenServerConnection()

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

السلام عليكم ورحمة الله و بركاته فى هذا النموذج أريد ادخال الكود التالى وهو عبارة عن فتح جهاز اخر على الشبكة بواسطة اسم المستخدم وكلمة السر فى وحدة نمطية ليعمل من الزرار الذى فى النموذج عن طريق كود صغيير Dim NetworkObject As Object Dim FSO As Object Dim Directory As Object Dim Filename As Object Dim ServerShare As String Dim UserName As String Dim Password As String ServerShare = "\\corp-server\HostingFolder" UserName = "mydomain\myuser" Password = "freddie123" Set NetworkObject = CreateObject("WScript.Network") Set FSO = CreateObject("Scripting.FileSystemObject") NetworkObject.MapNetworkDrive "", ServerShare, False, UserName, Password Set Directory = FSO.GetFolder(ServerShare) For Each Filename In Directory.Files Debug.Print Filename.Name Next Set Filename = Nothing Set Directory = Nothing Set FSO = Nothing NetworkObject.RemoveNetworkDrive ServerShare, True, False Set NetworkObject = Nothing وجزاكم الله خيرا من فضلكم ليس هناك داعى لعمل اقتباس عند الرد فهذا يقوم بدوره بتشتيت المطلع والباحث عن نفس الموضوع مستقبلاً Ip.accdb

شغال عادى

تفضل من مصدر سجل التقرير افعل كما بالصوره

تفضل كان يجب اضافة الحقول بطريقة صحيحة وانظر التتغيير فى استعلام التقرير متابعة غيابات الطلبة.mdb

تقريبا مينفعش النموذج المراد فتحه مرة ثانيا اعمله نموذج جديد

شكراُ أستاذى @AlwaZeeR شكرا أستاذى @essam rabea هذا هو المطلوب شكراً أستاذى @ابا جودى جزاكم الله كل خير

السلام عليكم ورحمة الله وبركاته ازالة المسافة اول الجملة عن طريق وحدة نمطية مثل الموجود فى المرفق و لكنه يغير حرف ي الى ى فى اخر الكلمة وجزاكم الله خيراً Update -12.mdb

Me.KeyPreview = True من غيرها الزراير مش هتشتغل و ممكن تنفيذها بدون كود من خصائص النموذج اختار مفتاح معاينة بدلا من لا نجعلها نعم أما بانسبة KeyCode = 0 اذا كان الزرار مثل F1 يظهر نعليمات Help لن تظهر التعليمات

أولا فى حدث عند الفتح ضع الكود Me.KeyPreview = True ثانيا فى حدث مفتاح لاسفل ضع الكود If KeyCode = vbKeyF1 Then DoCmd.OpenForm "اسم النموذج" KeyCode = 0 end if

و ويندوذ 10 64 و اوفيس 2016 بس مش عارف 64 و لا 32

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

تفضل أستاذى @ابا جودى New.accdb

أستاذى @ابا جودى بارك الله فيك الكود يعمل واذا دخلت مرة ثانية بدون الكود اى من الشبكة يطلب الجهاز اليوزر و الباسورد و السبب أنه لا يتذكر الكود و بعد تغيير الى الكود التالى يعمل دائما 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